|
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: 1536 (0x600) Types: TextFile Names: »REA04«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy └─⟦this⟧ └─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy └─⟦this⟧ └─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧
; LPT-DRIVER VED POUL-HENNING KAMP 21-01-83 20:40 .RDXO 16 .RDX 10 .TXTM 1 .TXTN 1 .TITL OLLPT ; LPT-DRIVER FOR OLIVETTI .NREL PGDS: 1B0+1B1+1B7+1B15 PGSTA 0 PCDS-PGDS .TXT 'LPT<0><0><0>' TXAM2: TXTAM INIT: .+1 15*256+12 1 0 0 PGSTA: SUB 1,1 MOVZL 0,0,SNC STA 1,RESER,2 RETR: LDA 2,TXAM2 LDA 1,INIT SENDM MOVZL # 2,2,SZC JMP RETR WAITA LDA 2,CUR LOOP: NEXTO SETRE JMP CONTR NCHAO: LDA 1,ADDRE,2 GETBY MOV 0,0,SNR JMP STA00 JSR OCHAR LDA 2,CUR ISZ ADDRE,2 DSZ COUNT,2 JMP NCHAO STA00: SUB 0,0 RETUR JMP LOOP CONTR: SETCO JMP STA00 PCDS: 0 0 0 PCDSE-PCDS .TXT 'LPT<0><0><0>' .+0 .-1 BUFS PGDS 0 0 40000 PGSTA PCDS 0 PCDS 0 PGSTA*2 0 0 0 0 0 0 0 0 0 BUFS: .+0 .-1 BUFS2 10 PCDS 0 0 0 0 0 BUFS2: .+0 .-1 0 10 PCDS 0 0 0 0 0 OCHAR: STA 3,OCHA0 LDA 1,.255 ANDS 1,0 LDA 1,.128 ADD 1,0 STA 0,MES1 RETRY: LDA 1,BUFF LDA 2,TXAMX SENDM MOVZL # 2,2,SZC JMP RETRY WAITA MOV 0,0,SZR JMP WAIRE JMP @ OCHA0 WAIRE: SUB 1,1 LDA 2,.10 WAITI JMP RETRY TXAMX: .+1 TXTAM: .TXT 'AMX<0><0><0>' OCHA0: 0 BUFF: .+1 15*256+7 1 .+2*2 0 MES1: 128 PCDSE: .END PCDS «ff» «nul»