Artifact e075133e46a6c8a3ebe1b5322e286a3658a94b60951cec8369af66658040934b:
- File
psl-1983/20-tests/20io.mac
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1092) [annotate] [blame] [check-ins using] [more...]
- File
psl-1983/3-1/tests/20/20io.mac
— part of check-in
[eb17ceb7f6]
at
2020-04-21 19:40:01
on branch master
— Add Reduce 3.0 to the historical section of the archive, and some more
files relating to version sof PSL from the early 1980s. Thanks are due to
Paul McJones and Nelson Beebe for these, as well as to all the original
authors.git-svn-id: https://svn.code.sf.net/p/reduce-algebra/code/historical@5328 2bfe0521-f11c-4a00-b80e-6202646ff360 (user: arthurcnorman@users.sourceforge.net, size: 1092) [annotate] [blame] [check-ins using]
; 20IO: simple 20 Support routines TITLE 20IO SEARCH MONSYM RADIX ^D10 ENTRY GETC20,PUTC20,INIT20,QUIT20,TIMC20,ERR20,PUTI20 ST=15 INIT20: HRROI 1,[Asciz/ Call on Init /] PSOUT JFCL POPJ ST,0 GETC20: PBIN JFCL POPJ ST,0 PUTC20: PBOUT JFCL CAIE 1,10 ; Is it EOL POPJ ST,0 ; No MOVEI 1,13 PBOUT JFCL MOVEI 1,10 POPJ ST,0 PUTI20: MOVEM 1,JUNK MOVE 2,1 MOVEI 1,^O101 MOVEI 3,^D10 NOUT JFCL MOVE 1,JUNK POPJ ST,0 ERR20: MOVEM 1,Junk HRROI 1,[ASCIZ/ *** ERR20: /] PSOUT MOVE 1,Junk PUSHJ ST,PUTI20 MOVEI 1,10 PBOUT HALTF HALTF POPJ ST,0 Junk: Block 1 QUIT20: Hrroi 1,[ASCIZ/ Quitting /] PSOUT HALTF TIMC20: MOVEI 1,-5 RUNTM JFCL MOVEM 1,NTIME ; Hrroi 1,[ASCIZ/ ;Ctime: /] ; PSOUT ; MOVE 1,NTIME ; PUSHJ ST,PutI20 ; Hrroi 1,[ASCIZ/ ms, /] ; PSOUT MOVE 1,NTIME ; SUB 1,OTIME ; PUSHJ ST,PutI20 ; Hrroi 1,[ASCIZ/ ms ; /] ; PSOUT MOVE 1,NTIME MOVEM 1,OTIME POPJ ST,0 Otime: 0 Ntime: 0 END