|
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: 4096 (0x1000)
Types: TextFile
Names: »REA03«
└─⟦466f46364⟧ Bits:30001785 SG0005 Floppy
└─⟦this⟧
; REV. 00.01 NU DIREKTE OVER AMX(HW) ; XXX XXXXXXXXXXXX XXXXXXXXXXXXXXX ; XXX XXXXXXXXXXXX XXXXXXXXXXXXXXX ; XXX XXX XXX XXX ; XXX XXX XXX XXX ; XXX XXX XXX XXX ; XXX XXX XXX XXX ; XXX XXXXXXXXXXXX XXX ; XXX XXXXXXXXXXXX XXX ; XXX XXX XXX ; XXX XXX XXX ; XXX XXX XXX ; XXX XXX XXX ; XXXXXXXXXXXXXXX XXX XXX ; XXXXXXXXXXXXXXX XXX XXX ; ; TIL TRODS FOR ALLE PROBLEMER FØLGER HEREFTER LPT- ; DRIVEREN TIL OLIVETTIEN. .EJEC ; DOMAC-SPECIFICATION ; .RDXO 16 ; OUTPUT I HEX .RDX 10 ; INPUT I DEC .TXTM 1 ; STD. TXT MODES .TXTN 1 ; .TITL RELPT ; TITEL OF PROGRAM .NREL ; ALM. RELOCATION .EJEC .MACRO WT MOVS # 0,0 MOVS # 0,0 MOVS # 0,0 MOVS # 0,0 MOVS # 0,0 % ; PROGRAM-DESCRIPTOR: ; PGDS: ; PROGRAM-DESCRIPTOR 1B0+1B1+1B7+1B15 ; SPECIFICATION PBREA ; START 0 ; CHAIN PCDS-PGDS ; SIZE .TXT 'RELPT' ; NAME .EJEC ; BREAK-PROCEDURE ; PBREA: SUB 1,1 ; BREAK: MOVZL 0,0,SNC ; IF POWERINT THEN STA 1,RESER,2 ; CLEAR RESERVER .EJEC ; MUS-INTERFACE ; MLOOP: ; MAIN-LOOP NEXTO ; NEXT OPERATION: SETRE ; +0 CONTROL JMP STA00 ; +1 INPUT (IRELEVANT) ; +2 OUTPUT .EJEC ; OUTPUT-CHARACTER-PROCEDURE ; JMP OCHAR INITA: LDA 0,INIT1 DOC 0,42 LDA 0,INIT2 DOC 0,42 LDA 0,INIT3 DOC 0,42 LDA 0,INIT4 DOA 0,42 WT LDA 0,INIT5 DOA 0,42 JMP PBREA .RDX 16 INIT1: 0720 INIT2: 0730 INIT3: 0715 INIT4: 0712 INIT5: 0718 INIT6: 0705 INIT7: 0707 .RDX 10 OCHAR: LDA 0,INIT6 DOA 0,42 WT DIA 1,42 MOVL 1,2 MOVL 2,2,SZC JMP BUFU MOVL 2,2,SZC JMP OFLI LDA 0,INIT7 DOA 0,42 WT DIA 1,42 MOVL 1,1 MOVL 1,1,SNC JMP OCHAR LDA 2,CUR LDA 1,ADDRE,2 GETBY LDA 1,.127 AND 1,0 LDA 1,.7 MOVS 1,1 ADD 1,0 DOB 0,42 JMP UPDAT BUFU: SUB 1,1 LDA 2,.48 WAITI LDA 0,INIT6 DOA 0,42 WT DIA 0,42 MOVL 0,0,SZC JMP BUFU JMP OCHAR OFLI: LDA 0,.1B1 JMP STAXX CHAR: 0 .EJEC ; UPDATE VARIABELS ; UPDAT: ; UPDATE VARIABELS LDA 2,CUR ; LOAD PCDS ISZ ADDRE,2 ; INC ADDRESS OF CHARACTER DSZ COUNT,2 ; DEC COUNT OF CHARACTERS JMP OCHAR ; REPEAT UNTIL END STA00: SUB 0,0 ; RETURN STATUS 0 STAXX: RETUR ; RETURN ANSWER JMP MLOOP ; JMP TO MAINLOOP .EJEC ; PROCESS-DESCRIPTOR ; PCDS: ; PROCESS-DESCRIPTOR: 0 ; NEXT 0 ; PREV 0 ; CHAIN PCDSE-PCDS ; SIZE .TXT 'LPT<0><0><0>' ; NAME .+0 ; FIRST EVENT .-1 ; LAST EVENT BUFF ; BUFFER PGDS ; PROGRAM 0 ; STATE 0 ; TIMER 50000 ; PRIORITY PBREA ; BREAK ADDRESS PCDS ; AC0 0 ; AC1 PCDS ; AC2 0 ; AC3 INITA*2 ; PSW 0 ; SAVE 0 ; BUF 0 ; ADDRESS 0 ; COUNT 0 ; RESERVER 0 ; CONVERSION TABLE 0 ; SAFETY BUFF: ; BUFFERS: .+0 ; NEXT .-1 ; PREV BUFF2 ; CHAIN 10 ; SIZE PCDS ; SENDE 0 ; MESS0 0 ; MESS1 0 ; MESS2 0 ; MESS3 BUFF2: .+0 .-1 0 10 PCDS 0 0 0 0 PCDSE: .END PCDS «ff» «nul»