|
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: 3072 (0xc00) Types: TextFile Names: »REA07«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy └─⟦this⟧ └─⟦8ae3926ab⟧ Bits:30001789 SG0009 Floppy └─⟦this⟧ └─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy └─⟦this⟧
; ******** ********** ******** ****** ********** ; ** ** ** ** ** ** ** ** ; ** ** ** ** ** ** ** ** ; ******** ******* ******** ** ** ** ; ** ** ** ** ** ** ** ** ; ** ** ** ** ** ** ** ** ; ** ** ********** ******** ****** ** ; ; SCREEN-ORENTED EDITOR ; BY POUL-HENNING KAMP ; (C) 1983 BY POUL-HENNING KAMP ; ; REVISION HISTORY: ; ; 830122 FIRST VERSION «ff» ; ASSEMBLER DIRECTIVES .TITL REB07 .RDXO 16 .RDX 10 .TXTM 1 .TXTN 1 .NREL «ff» ; PROGRAM-DESCRIPTOR PGDS: 1B0+1B1+1B5+1B15 .+6 0 PCDS-PGDS .TXT 'REB07<0>' «ff» ; OCHAR-ROUTINE OCHAR: STA 3,OCHA3 STA 2,OCHA2 STA 1,OCHA1 STA 0,OCHA0 LDA 1,.255 ANDS 1,0 LDA 1,.128 ADD 1,0 STA 0,OCHA4 OCHA5: LDA 1,OCHA6 LDA 2,OCHA7 SENDM MOVZL # 2,2,SZC JMP OCHA5 WAITA MOV 0,0,SZR JMP DEAD LDA 0,OCHA0 LDA 1,OCHA1 LDA 2,OCHA2 LDA 3,OCHA3 JMP +0,3 OCHA0: 0 OCHA1: 0 OCHA2: 0 OCHA3: 0 OCHA6: .+1 10*256+7 1 .+2*2 0 OCHA4: 128 OCHA7: .+1 .TXT 'AMX<0><0><0>' «ff» ; XY-ROUTINE XY: STA 0,XY0 STA 1,XY1 STA 2,XY2 STA 3,XY3 LDA 0,.6 JSR OCHAR LDA 0,XY0 LDA 2,.32 SLS 0,2 JMP XY4 LDA 3,T96 ADD 3,0 JSR OCHAR JMP XY5 XY4: LDA 2,.64 SLS 0,2 JMP XY6 LDA 3,.32 ADD 3,0 JSR OCHAR JMP XY5 XY6: LDA 2,.32 SUB 2,0 JSR OCHAR XY5: LDA 0,XY1 JSR OCHAR LDA 0,XY0 LDA 1,XY1 LDA 2,XY2 LDA 3,XY3 JMP +0,3 XY0: 0 XY1: 0 XY2: 0 XY3: 0 T96: 96 «ff» ; OTXT-ROUTINE OTXT: STA 0,OTX0 STA 1,OTX1 STA 2,OTX2 STA 3,OTX3 STA 0,OTX4 OTX5: LDA 1,OTX4 GETBY MOV 0,0,SNR JMP OTX6 JSR OCHAR ISZ OTX4 JMP OTX5 OTX6: LDA 0,OTX0 LDA 1,OTX1 LDA 2,OTX2 LDA 3,OTX3 JMP +0,3 OTX0: 0 OTX1: 0 OTX2: 0 OTX3: 0 OTX4: 0«ff» ; PARAMETER-CHECK PARAE: PARAD BIRTH: MOV 1,2 LDA 0,+0,2 LDA 1,.10 SEQ 1,0 JMP DEAD LDA 0,+1,2 LDA 1,.255 AND 0,1,SZR JMP DEAD LDA 3,ZONE LDA 0,+2,2 STA 0,+0,3 LDA 0,+3,2 STA 0,+1,3 LDA 0,+4,2 STA 0,+2,3 LDA 0,.12 JSR OCHAR LDA 0,.0 LDA 1,T23 JSR XY LDA 0,ZONE MOVZL 0,0 JSR OTXT JMP DEAD T23: 23«ff» ;DEAD-ROUTINE DEAD: LDA 2,CUR STOPP JMP DEAD «ff» ; ZONE ZONE: .+1 .TXT 'EMPTY<0>' Z 0 1B14+1B13+1B12+1B11 65535 DEAD 1 1 0 SHAR 263 0 0 BUFF*2 BUFF*2 SHAR 512 0 .BLK ZAUX SHAR: 0 0 0 0 SHAR 0 BUFF*2 BUFF: .BLK 256«ff» ; PROCESS-DESCRIPTOR PCDS: .+0 .-1 0 0 .TXT 'REB07<0>' .+0 .-1 MSGBU PGDS 0 0 100 DEAD 0 0 0 0 BIRTH*2 0 0 0 0 0 0 0 0 0 0 0 0 0 MSGBU: .+0 .-1 MSG02 10 PCDS 0 0 0 0 0 MSG02: .+0 .-1 0 10 PCDS 0 0 0 0 0 PARAD: .END PCDS «ff» «nul»