|
DataMuseum.dkPresents historical artifacts from the history of: RegneCentralen RC3600/RC7000 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about RegneCentralen RC3600/RC7000 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 9216 (0x2400) Types: TextFile Names: »REACU«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧
;LAGUD ;01-02-82 RE POUL-HENNING KAMP ;12-02-82 RE POUL-HENNING KAMP ; REV. 1.01 DECIMAL & OCTAL ;22-02-82 RE POUL-HENNING KAMP ; REV 2.01 DECIMAL, OCTAL & ASCII .TITL LAG02 .NREL .RDXO 10 .RDX 10 .TXTM 1 .TXTN 1 PGDS: 1B0+1B15 ;PSPEC TX01 ;PSTAR 0 ;CHAIN PCDS-PGDS ;SIZE .TXT 'LAGUD<0>' ;NAME «ff» TX01: .TXT '80/132 CHR/LN 1/2 <0>' TX02: .TXT 'DEC/OCT/ASC 1/2/3 <0>' TX03: .TXT 'START ADDRESS DEC <0>' TX04: .TXT 'PRINTER FEJL STOP/CONT 1/2 <0>' TX06: .TXT 'LAGUD REV. 2.01 <0>' TX07: .TXT 'DECIMAL <0>' TX08: .TXT 'OCTAL <0>' «ff» TTZON: .TXT 'TTY<0><0><0>' ;ZNAME Z ;SIZE 0 ;ZMODE 1 ;ZKIND 65535 ;ZMASK DEAD ;ZGIVE 1 ;ZFILE 1 ;ZBOLC 0 ;ZCONV TTS0 ;ZBUFF 43 ;ZSIZE (72/2+SSIZE) 0 ;ZLENG 0 ;ZFIRS TTB0*2 ;ZFIRS TTB0*2 ;ZTOP TTS0 ;ZUSED 72 ;ZSHAR 0 ;ZREM .BLK ZAUX ;AUXILIARY WORDS IN ZONE TTS0: 0 ;SOPER 0 ;SCOUN 0 ;SADDR 0 ;SSPEC TTS0 ;SNEXT 0 ;SSTAT TTB0*2 ;SFIRS TTB0: .BLK 36 ;DATA BUFFER LPZON:.TXT 'LPT<0><0>' ;ZNAME Z ;SIZE 0 ;ZMODE 1 ;ZKIND 65535 ;ZMASK FEJL ;GIVE 1 ;ZFILE 1 ;ZBLOC 0 ;ZCONV LPS0 ;ZBUFF 73 ;ZSIZE (132/2+SSIZE) 0 ;ZFORM 0 ;ZLENG LPB0*2 ;ZFIRS LPB0*2 ;ZTOP LPS0 ;ZUSED 132 ;ZSHAR 0 ;ZREM .BLK ZAUX ;AUXILIARY WORDS IN ZONE LPS0: 0 ;SOPER 0 ;SCOUN 0 ;SADDR 0 ;SSPEC LPS0 ;SNEXT 0 ;SSTAT LPB0*2 ;SFIRS LPB0: .BLK 66 ;DATA BUFFER «ff» ASCP1: ASCPG TTZO1:TTZON TX01B:TX01*2 TX02B:TX02*2 TX03B:TX03*2 TX06B:TX06*2 TX07B:TX07*2 TX08B:TX08*2 SBRED:0 FORMA:0 MDL2: 0 CLOIN: STA 3,MDL2 SUB 1,1 CLOSE LDA 0,.1 OPEN JMP @MDL2 CLOOU: STA 3,MDL2 SUB 1,1 CLOSE LDA 0,.3 OPEN JMP @ MDL2 BIRTH:LDA 0,.3 LDA 2,TTZO1 OPEN PROMP:OUTNL LDA 0,TX01B OUTTE JSR CLOIN INCHA LDA 3,.127 AND 1,3 STA 1,SBRED JSR CLOOU LDA 0,TX02B OUTTE JSR CLOIN INCHA LDA 3,.127 AND 1,3 STA 1,FORMA JSR CLOOU LDA 0,TX03B OUTTE JSR CLOIN LDA 1,ARB INNAM LDA 2,CUR LDA 1,ARB2 DECBI STA 1,PGSTA LDA 2,TTZO1 JSR CLOOU SPLT: LDA 0,FORMA LDA 1,ATRE SUB # 0,1,SNR JMP @ ASCP1 LDA 1,ATO SUB # 0,1,SNR «ff» JMP OCTAL LDA 1,AEN SUB # 0,1,SZR JMP PROMP LDA 0,TX07B STA 0,HEADE LDA 0,CONV STA 0,RUTAD JMP TABEL OCTAL: LDA 0,TX08B STA 0,HEADE LDA 1,DIREC STA 1,RUTAD TABEL:LDA 0,.3 LDA 2,LPZO1 OPEN SIDE: LDA 1,.12 OUTEN LDA 1,FJOR OUTEN OUTSP LDA 0,PGSTA JSR@ RUTAD OUTSP LDA 0,HEADE OUTTE LDA 0,TX06B OUTTE OUTNL OUTNL LDA 0,.64 STA 0,LNNO LDA 0,PGSTA STA 0,ADRUD LINE: OUTNL LDA 0,ADRUD JSR@ RUTAD LDA 1,PIL OUTEN OUTSP LDA 0,.16 LDA 1,SBRED LDA 3,ATO SUB # 3,1,SZR LDA 0,.8 STA 0,REST NUMB: LDA@ 0,ADRUD JSR@ RUTAD OUTSP ISZ ADRUD JMP .+1 DSZ REST JMP NUMB DSZ LNNO JMP LINE LDA 0,ADRUD STA 0,PGSTA JMP SIDE «ff» HEADE:0 PIL: 62 FJOR: 14 LPZO1:LPZON MDL: 0 TTZO2:TTZON AEN: 49 ATO: 50 ATRE: 51 PGSTA:0 ADRUD:0 LNNO: 0 REST: 0 RUTAD:0 CONV: .+1 STA 3,MDL LDA 1,ARB2 LDA 2,CUR BINDE LDA 2,LPZO1 LDA 0,ARB2 OUTTE JMP@ MDL DIREC:.+1 STA 3,MDL OUTOC JMP@ MDL ARB2: .+2*2 ARB: .+1 .BLK 4 TX06C: TX06*2 LPZO2: LPZON SBRE1: SBRED MDL4: 0 ASCPG: LDA 0,.3 LDA 2.LPZO1 OPEN ASCPH: LDA 1,.12 OUTEN LDA 1,FJOR OUTEN OUTSP LDA 0,PGSTA STA 0,MDL5 JSR @ CONV OUTSP LDA 0,TX09B OUTTE LDA 0,TX06C OUTTE OUTNL OUTNL LDA @ 1,SBRE1 LDA 0,.64 STA 0,LINNO LDA 0,.32 LDA 3,ATOA SUB 3,1,SNR MOVZL 0,0 STA 0,WDLIN OUTSP OUTSP OUTSP OUTSP SUB 0,0 STA 0,MDL3 STA 0,MDL4 LOPPE: LDA 0,MDL3 LDA 1,WDLIN SGR 1,0 JMP FARD LDA 1,ARB2 LDA 2,CUR BINDE LDA 2,LPZO2 LDA 0,ARB INCL 0,0 INC 0,0 OUTTE OUTSP OUTSP ISZ MDL3 ISZ MDL3 JMP LOPPE FARD: LDA 0,MDL4 MOV 0,0,SZR JMP HELT OUTNL LDA 0,.1 STA 0,MDL3 STA 0,MDL4 OUTSP OUTSP OUTSP OUTSP OUTSP OUTSP JMP LOPPE HELT: OUTNL LOPPH: LDA 0,MDL5 LDA 1,WDLIN DIVIDE LDA 1,ARB2 BINDE LDA 2,LPZO2 LDA 0,ARB INCL 0,0 OUTTE OUTSP LDA 0,WDLIN STA 0,MDL3 LOPPG: LDA @ 1,MDL5 ISZ MDL5 STA 1,MDL4 MOVS 1,1 LDA 0,.127 AND 0,1 SUB # 0,1,SNR LDA 1,.32 LDA 0,.32 SGR 1,0 MOV 0,1 OUTEN LDA 1,MDL4 LDA 0,.127 AND 0,1 SUB #0,1,SNR LDA 0,.32 LDA 0,.32 SGR 1,0 MOV 0,1 OUTEN DSZ MDL3 JMP LOPPG OUTNL DSZ LINNO JMP LOPPH LDA 0,MDL5 STA @ 0,PGST1 JMP ASCPH SPLT1:SPLT TTZO3:TTZON ATOA:50 LINNO:0 PGST1: PGSTA MDL5:0 TX09B: .+1*2 .TXT 'ASCII <0>' MDL3: 0 WDLIN: 0 FEJL: LDA 2,LPZO2 SUB 1,1 CLOSE LDA 2,TTZO3 LDA 0,TX04B OUTTE JSR @ CLOI1 INCHA STA 1,LINNO JSR @ CLOO1 LDA 1,LINNO LDA 0,ATOA SUB # 0,1,SNR JMP @ SPLT1 JMP @ PROM1 DEAD: LDA 2,TTZO3 SUB 1,1 CLOSE LDA 2,CUR STOPPROC JMP @ BIRT1 TX04B:TX04*2 CLOO1: CLOOU PROM1:PROMP BIRT1:BIRTH CLOI1: CLOIN «ff» BUFF1:.+0 .-1 BUFF2 10 PCDS 0 0 0 0 0 BUFF2:.+0 .-1 0 10 PCDS 0 0 0 0 0 PCDS: .+0 .-1 0 0 .TXT 'LAGUD<0>' .+0 .-1 BUFF1 PGDS 0 0 65500 DEAD 0 0 0 0 BIRTH*2 .BLK 6 .END PCDS «ff» «nul»