|
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: 1536 (0x600)
Types: TextFile
Names: »REA50«
└─⟦466f46364⟧ Bits:30001785 SG0005 Floppy
└─ ⟦this⟧ »/REA50«
.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
; PROGRAM-DESCRIPTOR:
;
PGDS: ; PROGRAM-DESCRIPTOR
1B0+1B1+1B7+1B15 ; SPECIFICATION
PBREA ; START
0 ; CHAIN
PCDS-PGDS ; SIZE
.TXT 'RELPT' ; NAME
.EJEC
; BREAK-PROCEDURE
;
.MACRO QW
LDA 2,.64
STA 2,TAEL
DSZ TAEL
JMP .-1
%
TAEL:0
.RDX 16
CMD: 0705
DSR: 0708
CHR: 0020
.RDX 10
PBREA: LDA 0,DSR
DOA 0,42
QW
LOOP: LDA 0,CMD
DOA 0,42
QW
DIA 1,42
LDA 0,CHR
MOVL 1,1,SZC
MOVZL 0,0
DOAS 0,9
SKPBZ 9
JMP .-1
JMP LOOP
PCDS: ; PROCESS-DESCRIPTOR:
0 ; NEXT
0 ; PREV
0 ; CHAIN
PCDSE-PCDS ; SIZE
.TXT 'LPT<0><0><0>' ; NAME
.+0 ; FIRST EVENT
.-1 ; LAST EVENT
0 ; BUFFER
PGDS ; PROGRAM
0 ; STATE
0 ; TIMER
50000 ; PRIORITY
PBREA ; BREAK ADDRESS
PCDS ; AC0
0 ; AC1
PCDS ; AC2
0 ; AC3
PBREA*2 ; PSW
0 ; SAVE
0 ; BUF
0 ; ADDRESS
0 ; COUNT
0 ; RESERVER
0 ; CONVERSION TABLE
0 ; SAFETY
.END PCDS
«ff»
«nul»