|
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: 9216 (0x2400)
Types: TextFile
Names: »REACU«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
└─⟦this⟧
;LAGUD
;01-02-82 RE POUL-HENNING KAMP
;12-02-82 RE POUL-HENNING KAMP
; REV. 1.01 DECIMAL & OCTAL
;22-02-82 RE POUL-HENNING KAMP
; REV 2.01 DECIMAL, OCTAL & ASCII
.TITL LAG02
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B15 ;PSPEC
TX01 ;PSTAR
0 ;CHAIN
PCDS-PGDS ;SIZE
.TXT 'LAGUD<0>' ;NAME
«ff»
TX01: .TXT '80/132 CHR/LN 1/2 <0>'
TX02: .TXT 'DEC/OCT/ASC 1/2/3 <0>'
TX03: .TXT 'START ADDRESS DEC <0>'
TX04: .TXT 'PRINTER FEJL STOP/CONT 1/2 <0>'
TX06: .TXT 'LAGUD REV. 2.01 <0>'
TX07: .TXT 'DECIMAL <0>'
TX08: .TXT 'OCTAL <0>'
«ff»
TTZON: .TXT 'TTY<0><0><0>' ;ZNAME
Z ;SIZE
0 ;ZMODE
1 ;ZKIND
65535 ;ZMASK
DEAD ;ZGIVE
1 ;ZFILE
1 ;ZBOLC
0 ;ZCONV
TTS0 ;ZBUFF
43 ;ZSIZE (72/2+SSIZE)
0 ;ZLENG
0 ;ZFIRS
TTB0*2 ;ZFIRS
TTB0*2 ;ZTOP
TTS0 ;ZUSED
72 ;ZSHAR
0 ;ZREM
.BLK ZAUX ;AUXILIARY WORDS IN ZONE
TTS0: 0 ;SOPER
0 ;SCOUN
0 ;SADDR
0 ;SSPEC
TTS0 ;SNEXT
0 ;SSTAT
TTB0*2 ;SFIRS
TTB0: .BLK 36 ;DATA BUFFER
LPZON:.TXT 'LPT<0><0>' ;ZNAME
Z ;SIZE
0 ;ZMODE
1 ;ZKIND
65535 ;ZMASK
FEJL ;GIVE
1 ;ZFILE
1 ;ZBLOC
0 ;ZCONV
LPS0 ;ZBUFF
73 ;ZSIZE (132/2+SSIZE)
0 ;ZFORM
0 ;ZLENG
LPB0*2 ;ZFIRS
LPB0*2 ;ZTOP
LPS0 ;ZUSED
132 ;ZSHAR
0 ;ZREM
.BLK ZAUX ;AUXILIARY WORDS IN ZONE
LPS0: 0 ;SOPER
0 ;SCOUN
0 ;SADDR
0 ;SSPEC
LPS0 ;SNEXT
0 ;SSTAT
LPB0*2 ;SFIRS
LPB0: .BLK 66 ;DATA BUFFER
«ff»
ASCP1: ASCPG
TTZO1:TTZON
TX01B:TX01*2
TX02B:TX02*2
TX03B:TX03*2
TX06B:TX06*2
TX07B:TX07*2
TX08B:TX08*2
SBRED:0
FORMA:0
MDL2: 0
CLOIN: STA 3,MDL2
SUB 1,1
CLOSE
LDA 0,.1
OPEN
JMP @MDL2
CLOOU: STA 3,MDL2
SUB 1,1
CLOSE
LDA 0,.3
OPEN
JMP @ MDL2
BIRTH:LDA 0,.3
LDA 2,TTZO1
OPEN
PROMP:OUTNL
LDA 0,TX01B
OUTTE
JSR CLOIN
INCHA
LDA 3,.127
AND 1,3
STA 1,SBRED
JSR CLOOU
LDA 0,TX02B
OUTTE
JSR CLOIN
INCHA
LDA 3,.127
AND 1,3
STA 1,FORMA
JSR CLOOU
LDA 0,TX03B
OUTTE
JSR CLOIN
LDA 1,ARB
INNAM
LDA 2,CUR
LDA 1,ARB2
DECBI
STA 1,PGSTA
LDA 2,TTZO1
JSR CLOOU
SPLT: LDA 0,FORMA
LDA 1,ATRE
SUB # 0,1,SNR
JMP @ ASCP1
LDA 1,ATO
SUB # 0,1,SNR
«ff»
JMP OCTAL
LDA 1,AEN
SUB # 0,1,SZR
JMP PROMP
LDA 0,TX07B
STA 0,HEADE
LDA 0,CONV
STA 0,RUTAD
JMP TABEL
OCTAL: LDA 0,TX08B
STA 0,HEADE
LDA 1,DIREC
STA 1,RUTAD
TABEL:LDA 0,.3
LDA 2,LPZO1
OPEN
SIDE: LDA 1,.12
OUTEN
LDA 1,FJOR
OUTEN
OUTSP
LDA 0,PGSTA
JSR@ RUTAD
OUTSP
LDA 0,HEADE
OUTTE
LDA 0,TX06B
OUTTE
OUTNL
OUTNL
LDA 0,.64
STA 0,LNNO
LDA 0,PGSTA
STA 0,ADRUD
LINE: OUTNL
LDA 0,ADRUD
JSR@ RUTAD
LDA 1,PIL
OUTEN
OUTSP
LDA 0,.16
LDA 1,SBRED
LDA 3,ATO
SUB # 3,1,SZR
LDA 0,.8
STA 0,REST
NUMB: LDA@ 0,ADRUD
JSR@ RUTAD
OUTSP
ISZ ADRUD
JMP .+1
DSZ REST
JMP NUMB
DSZ LNNO
JMP LINE
LDA 0,ADRUD
STA 0,PGSTA
JMP SIDE
«ff»
HEADE:0
PIL: 62
FJOR: 14
LPZO1:LPZON
MDL: 0
TTZO2:TTZON
AEN: 49
ATO: 50
ATRE: 51
PGSTA:0
ADRUD:0
LNNO: 0
REST: 0
RUTAD:0
CONV: .+1
STA 3,MDL
LDA 1,ARB2
LDA 2,CUR
BINDE
LDA 2,LPZO1
LDA 0,ARB2
OUTTE
JMP@ MDL
DIREC:.+1
STA 3,MDL
OUTOC
JMP@ MDL
ARB2: .+2*2
ARB: .+1
.BLK 4
TX06C: TX06*2
LPZO2: LPZON
SBRE1: SBRED
MDL4: 0
ASCPG: LDA 0,.3
LDA 2.LPZO1
OPEN
ASCPH: LDA 1,.12
OUTEN
LDA 1,FJOR
OUTEN
OUTSP
LDA 0,PGSTA
STA 0,MDL5
JSR @ CONV
OUTSP
LDA 0,TX09B
OUTTE
LDA 0,TX06C
OUTTE
OUTNL
OUTNL
LDA @ 1,SBRE1
LDA 0,.64
STA 0,LINNO
LDA 0,.32
LDA 3,ATOA
SUB 3,1,SNR
MOVZL 0,0
STA 0,WDLIN
OUTSP
OUTSP
OUTSP
OUTSP
SUB 0,0
STA 0,MDL3
STA 0,MDL4
LOPPE: LDA 0,MDL3
LDA 1,WDLIN
SGR 1,0
JMP FARD
LDA 1,ARB2
LDA 2,CUR
BINDE
LDA 2,LPZO2
LDA 0,ARB
INCL 0,0
INC 0,0
OUTTE
OUTSP
OUTSP
ISZ MDL3
ISZ MDL3
JMP LOPPE
FARD: LDA 0,MDL4
MOV 0,0,SZR
JMP HELT
OUTNL
LDA 0,.1
STA 0,MDL3
STA 0,MDL4
OUTSP
OUTSP
OUTSP
OUTSP
OUTSP
OUTSP
JMP LOPPE
HELT: OUTNL
LOPPH: LDA 0,MDL5
LDA 1,WDLIN
DIVIDE
LDA 1,ARB2
BINDE
LDA 2,LPZO2
LDA 0,ARB
INCL 0,0
OUTTE
OUTSP
LDA 0,WDLIN
STA 0,MDL3
LOPPG: LDA @ 1,MDL5
ISZ MDL5
STA 1,MDL4
MOVS 1,1
LDA 0,.127
AND 0,1
SUB # 0,1,SNR
LDA 1,.32
LDA 0,.32
SGR 1,0
MOV 0,1
OUTEN
LDA 1,MDL4
LDA 0,.127
AND 0,1
SUB #0,1,SNR
LDA 0,.32
LDA 0,.32
SGR 1,0
MOV 0,1
OUTEN
DSZ MDL3
JMP LOPPG
OUTNL
DSZ LINNO
JMP LOPPH
LDA 0,MDL5
STA @ 0,PGST1
JMP ASCPH
SPLT1:SPLT
TTZO3:TTZON
ATOA:50
LINNO:0
PGST1: PGSTA
MDL5:0
TX09B: .+1*2
.TXT 'ASCII <0>'
MDL3: 0
WDLIN: 0
FEJL: LDA 2,LPZO2
SUB 1,1
CLOSE
LDA 2,TTZO3
LDA 0,TX04B
OUTTE
JSR @ CLOI1
INCHA
STA 1,LINNO
JSR @ CLOO1
LDA 1,LINNO
LDA 0,ATOA
SUB # 0,1,SNR
JMP @ SPLT1
JMP @ PROM1
DEAD: LDA 2,TTZO3
SUB 1,1
CLOSE
LDA 2,CUR
STOPPROC
JMP @ BIRT1
TX04B:TX04*2
CLOO1: CLOOU
PROM1:PROMP
BIRT1:BIRTH
CLOI1: CLOIN
«ff»
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 'LAGUD<0>'
.+0
.-1
BUFF1
PGDS
0
0
65500
DEAD
0
0
0
0
BIRTH*2
.BLK 6
.END PCDS
«ff»
«nul»