|
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: 2560 (0xa00)
Types: TextFile
Names: »MMARC«
└─⟦98efadbea⟧ Bits:30001819 SG0118 Floppy
└─ ⟦this⟧ »/MMARC«
PRDE1
XYADR
.TXT @XYADR<0><0><0>@
GRAPH
.TXT @GRAPH<0><0><0>@
OUTVE
.TXT @OUTVECT<0>@
0
OUTP0: LDA 0,COUT,3
LDA 2,CUR
F.OCHAR
JMP IOER
RET1
IOER: BCALL IOERR
RET0
XYADR: 2
0
REAL
LDA 0,.3,0
STA 0,U.S02,3
LDA 1,NU134
EXECUTE
OUTP0
RET1
LDA 1,NU80
STA 1,U.S01,3
EXECUTE
XYCALC
RET1
LDA 1,.24,0
STA 1,U.S01,3
ISZ U.STK,3
EXECUTE
XYCALC
RET1
XYCAL: LDA 2,U.STK,3
LDA 2,0,2
LDA 0,0,2
LDA 1,1,2
BCALL FIX
NEG 1,1
COM 1,1
LDA 2,U.S01,3
BCALL IDIV
DSZ U.S02,3
JMP .+4
LDA 1,NU23
SUB 0,1
MOV 1,0,SKP
MOV 0,1
LDA 2,NU96
ADD 2,1
AND # 2,0,SNR
JMP .+5
LDA 2,.64,0
SUB 2,1
AND # 2,0,SZR
SUB 2,1
EXECUTE
OUTP0
RET1
RET1
NU23: 23
NU80: 80
NU134: 134
OUTVE: 2
REAL
REAL
LDA 0,NU96
LDA 2,1,2
EXECUTE
GRFCALC
LDA 2,U.STK,3
LDA 2,0,2
LDA 0,.64,0
EXECUTE
GRFCALC
F.OBLOCK
JMP IOER
RET1
NU96: 96
GRAPH: 2
REAL
REAL
LDA 1,NU29
EXECUTE
OUTP0
LDA 2,U.STK,3
JMP .-20
NU29: 29
GRFCA: STA 0,U.S03,3
LDA 0,0,2
LDA 1,1,2
BCALL FIX
STA 1,U.S01,3
LDA 2,.32,0
BCALL IDIV
LDA 0,NU31
AND 0,1
ADD 0,1
EXECUTE
OUTP0
RET1
LDA 1,U.S01,3
LDA 0,NU96
AND 0,1
LDA 0,U.S03,3
ADD 0,1
EXECUTE
OUTP0
RET1
PRDE2
«ff»
«nul»