|
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: 5120 (0x1400) Types: TextFile Names: »BBB03«, »P1A03«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy └─⟦this⟧ └─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy └─⟦this⟧ └─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧ └─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy └─⟦this⟧
; RÆKKEUDSKRIFTVERSION (SPARE PAPIR) ; PL 19.1.83 ; BINÆR FIL BLOK-BYTE-UDSKRIFT / NAVN: BBUNN (NN=NUMMER) ELLER P1ABB ; VIDEREUDVIKL PÅ PHK REA00 SOM ER VIDEREUDVIKL AF PROGRAMMET : ; 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 BINÆR FIL MED BYTE-OMBYTNING<13><10> PL / PH.KAMP 19.1.83<13><10>....................<10><10><27>><0>& FIADR: FIZON LPADR:LPZON DAT: 0 DATAU: DATUU*2 DATYY: DATUU*2 DATAD: .+1*2 0 DATUU: 0 0 TALL2: 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,.12 STA 0,TALL2 STA 0,TALLE LDA 0,.0 STA 0,DATAU OUTNL OUTNL OUTNL 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 ; PL IGEN 19.1.83 BYTEUDSKRIFT OG I KOLONNE STA 0,DAT LDA 1,.255 MOVS 1,1 ANDS 1,0 LDA 2,CUR LDA 1,DATAD BINDEC LDA 0,DATYY LDA 2,LPADR OUTTEXT OUTSP LDA 0,DAT LDA 1,.255 AND 1,0 LDA 2 ,CUR LDA 1,DATAD BINDEC LDA 0,DATYY LDA 2, LPADR OUTTEXT OUTSP OUTSP OUTSP FORBI: LDA 2,LPADR 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,T27 LDA 2,LPADR OUTCH LDA 1,.48 OUTCH LDA 1,.1 CLOSE LDA 2,CUR STOPP JMP BIRTH T27: 27 D0:0 D1:1 D2:2 D3:3 -6 T260: 260 TALLE: 0 T96: 96 T126: 126 BLTB: .+1*2 .TXT 1 <0>1 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»