[Simh] Interdata OS/32: hello-world in CAL32
Don Stalkowski
dstalk at execulink.com
Mon Feb 15 13:58:26 EST 2016
For those following the Interdata OS/32 saga, here's an example
of "HELLO WORLD" in CAL32 and how to assemble/link it.
---
"HELLO WORLD" in CAL32
The spacing in the .CAL file is important! I don't know what the exact
spacing requirements are, but this worked.
The "os32st" directory on bitsavers contains a "Program Reference"
manual that proved helpful in writing this.
*L EDIT32
TSKID = EDIT32
*ST
*13:19:38 EDIT32:PERKIN-ELMER OS/32 EDIT 03-145 R04-01
*EDIT32>GET HELLO.CAL
*EDIT32>T 1-12
*13:19:48 EDIT32: 1 SVC 1,SAY
*13:19:48 EDIT32: 2 SVC 3,0
*13:19:48 EDIT32: 3 ALIGN ADC
*13:19:48 EDIT32: 4 SAY DB X'28'
*13:19:48 EDIT32: 5 DB X'00'
*13:19:48 EDIT32: 6 DS 2
*13:19:48 EDIT32: 7 DC A(SAY1)
*13:19:48 EDIT32: 8 DC A(SAY2)
*13:19:48 EDIT32: 9 DAS 2
*13:19:48 EDIT32: 10 SAY1 DC C'HELLO WORLD '
*13:19:48 EDIT32: 11 SAY2 EQU *-1
*13:19:48 EDIT32: 12 END
*EDIT32>END
*13:19:59 EDIT32:END OF TASK 0
*
Simulation stopped, PC: 22C9A (BAL R12,19064)
sim> as lpt cal02
LPT: creating new file
sim> c
L CAL32
TSKID = CAL32
*AS 1,HELLO.CAL
AL HELLO.OBJ,IN,126
*AS 2,HELLO.OBJ
*AS 3,PR:
*ST
*13:27:19 CAL32:CAL/32 03-338R01-01
*13:27:19 CAL32: NO ERRORS TABLE SPACE USED : 1K
*13:27:19 CAL32:END OF TASK 0
*L LINK
TSKID = LINK
*ST
*13:27:32 LINK:PERKIN-ELMER OS/32 LINKAGE EDITOR 03-242 R01-03
*LINK>IN HELLO.OBJ
*LINK>BU
*13:27:40 LINK:ENTER FILE DESCRIPTOR FOR IMAGE*LINK>HELLO.TSK
*13:27:46 LINK:MAP?*LINK>NO
*LINK>END
*13:27:53 LINK:END OF TASK 0
*L HELLO
TSKID = HELLO
*AS 0,CON:
*ST
*13:28:15 HELLO:HELLO WORLD
*13:28:15 HELLO:END OF TASK 0
*
More information about the Simh
mailing list