|
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: 4608 (0x1200) Types: TextFile Names: »REA00«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy └─⟦this⟧ └─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy └─⟦this⟧ └─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧
; SKRIVEPROGRAM (BINÆR) FIL 'FIL' PL 17.1.83 .TITL SKRIV .NREL .RDXO 10 .RDX 10 .TXTM 1 .TXTN 1 PGDS: 1B0+1B5+1B15 LAB00 0 PCDS-PGDS .TXT 'SKRIV' LAB00: TEKST: .+1*2 .TXT &<12> UDSKRIFT AF FIL<13><10>.......................................<10><10><0>& FIADR: FIZON LPADR:LPZON DAT: 0 DATAU: DATUU*2 DATAD: .+1*2 0 DATUU: 0 0 BIRTH: LDA 0,.1 LDA 2,FIADR OPEN LDA 0,.0 LDA 1,.0 SETPO LDA 0,.3 LDA 2,LPADR OPEN LDA 0,TEKST OUTTEXT NYLIN: LDA 0,.16 STA 0,TALLE LDA 0,.0 STA 0,DATAU OUTNL NYTGN: LDA 2,FIADR ISZ DATAU INCHAR STA 1,DAT INCHA MOVS 1,1 LDA 0,DAT ADD 1,0 LDA 1,DATAU LDA 3,.2 SEQ 3,1 JMP VIDRE STA 0,DAT MOV 0,0,SNR JMP DEAD LDA 1,.255 AND 1,0 LDA 1,T260 SUB 0,1 INC 1,1 STA 1,TALLE LDA 0,DAT VIDRE: LDA 3,.3 SNE 3,1 JMP BITUD INC 3,3 SNE 3,1 JMP BITUD INC 3,3 SNE 3,1 JMP BITUD LDA 2,CUR LDA 1,DATAD BINDEC LDA 0,DATAD LDA 2,LPADR OUTTEXT OUTSP FORBI: DSZ TALLE JMP NYTGN JMP NYLIN BITUD: MOVR 0,0 LDA 2,LPADR OUTOC OUTSP JMP FORBI DEAD: STA 0,D0 STA 1,D1 STA 2,D2 STA 3,D3 LDA 1,.1 LDA 2,FIADR CLOSE LDA 1,.1 LDA 2,LPADR CLOSE LDA 2,CUR STOPP JMP BIRTH D0:0 D1:1 D2:2 D3:3 -6 T260: 260 TALLE: 0 T96: 96 T126: 126 FIZON: .TXT 'FIL<0><0><0>' ;ZNAME Z ;SIZE 0 ;ZMODE 1B14+1B13+1B12+1B11 ;ZKIND 65535 ;ZMASK DEAD ;ZGIVE 1 ;ZFILE 1 ;ZBLOC 0 ;ZCONV TTS0 ;ZBUFF 263 ;ZSIZE (72/2+SSIZE) 0 ;ZLENG 0 ;ZFIRS TTB0*2 ;ZFIRS TTB0*2 ;ZTOP TTS0 ;ZUSED 512 ;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 256 ;DATA BUFFER LPZON:.TXT 'LPT<0><0>' ;ZNAME Z ;SIZE 0 ;ZMODE 1 ;ZKIND 65535 ;ZMASK DEAD ;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 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 'SKRIV' .+0 .-1 BUFF1 PGDS 0 0 33 DEAD 0 0 0 0 BIRTH*2 0 1 2 3 4 5 6 7 8 9 10 .END PCDS «ff» «nul»