|
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: »REA03«
└─⟦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: 32 DEAD: LDA 2,CUR STOPP JMP .-2 HUT: STA 3,TT LDA 2,.3 LDA 0,.0 WAITI LDA 0,.32 JSR @ TT TT:0 BIRTH: LDA 0,LAB00 INC 0,0 LDA 1,.64 SNE 1,0 JSR HUT STA 0,LAB00 JSR OCHAR JMP BIRTH GTY: .+1 15*256+7 1 .+2*2 0 CHARO: 0 ICHAR: STA 3,ICHA0 LDA 1,ICHA1 LDA 2,TXAMX ICHA2:SENDM MOVZL # 2,2,SZC JMP ICHA2 WAITA LDA 1,ICHA3 LDA 0,.255 MOVS 1,1 AND 1,0 JMP @ ICHA0 ICHA1: .+1 9*256+1 1 .+2*2 0 ICHA3: 0 ICHA0: 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 RETRY JMP @ OCHA0 TXAMX: .+1 .TXT 'AMX<0><0><0>' OCHA0: 0 BUFF: .+1 15*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»