|
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: 2048 (0x800) Types: TextFile Names: »REA06«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy └─⟦this⟧ └─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy └─⟦this⟧ └─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧
.TITL RETST .NREL .RDXO 10 .RDX 10 .TXTM 1 .TXTN 1 PGDS: 1B0+1B5+1B15 LAB00 0 PCDS-PGDS .TXT 'RETST' LAB00: ADRS: 0 T29: 29 T31: 31 T96:96 XKO: 0 YKO:0 DEAD: LDA 2,CUR STOPP JMP .-2 BIRTH: LDA 0,T29 JSR OCHAR LDA 2,ADRS MOVL # 2,2,SZC JMP DEAD LDA 1,+0,2 LDA 3,.255 MOVS 3,0 AND 1,3 ANDS 1,0 MOVZL 0,1 ADD 1,0 MOVZL 3,1 ADD 1,3 STA 0,YKO STA 3,XKO LDA 0,XKO MOVR 0,1 MOVR 1,1 MOVR 1,1 MOVR 1,1 MOVR 1,1 LDA 0,T31 AND 0,1 LDA 0,.32 ADD 1,0 JSR OCHAR LDA 1,XKO LDA 0,T31 AND 0,1 LDA 0,T96 ADD 1,0 JSR OCHAR LDA 1,YKO MOVR 1,1 MOVR 1,1 MOVR 1,1 MOVR 1,1 MOVR 1,1 LDA 0,T31 AND 0,1 LDA 0,.32 ADD 1,0 JSR OCHAR LDA 1,YKO LDA 0,T31 AND 0,1 LDA 0,.64 ADD 1,0 STA 0,XKO JSR OCHAR SUB 0,0 JSR OCHAR SUB 0,0 JSR OCHAR LDA 0,XKO JSR OCHAR ISZ ADRS JMP BIRTH 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 RETRY JMP @ OCHA0 TXAMX: .+1 .TXT 'AMX<0><0><0>' OCHA0: 0 BUFF: .+1 11*256+7 1 .+2*2 0 MES1: 128 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 'RETST' .+0 .-1 BUFF1 PGDS 0 0 33 DEAD 0 0 0 0 BIRTH*2 .END PCDS «ff» «nul»