|
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: 8192 (0x2000)
Types: TextFile
Names: »P3ASG«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
└─⟦this⟧
; RETTET (FÆRDIG) PL 12.11.82 TIDL AFTEN / INDTAST UDELADT NYT
; 3.V3RESION AF SØGE VALGFRI LPT/TTY O.A.; PL 12.11.82 AFTEN
; SØGE TIL TTY / ADR OSSE OCTALT / PL 6.11.82
; P1ASG SØGEPROGRAM SØGER EN TEXT = 1.PARAMETER (LIGE ANTAL BYTE)
; SUPPLERER OP TIL LIGE MED <0>
; VIRKER KORREKT (?) !!!
; SØGEPROGRAM RETTET 15.5.82
; PL PROGRAM TIL AT SØGE VILK TEXT I CORE
; TEXTEN INDTASTESSOM PARAMETER
; OG SUPPLERES AUTOMATISK MED <0> TIL LIGE ANTAL BYTES
.TITL PLSGE
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'PLSGE'
LAB00:
LPZON: .TXT 'LPT<0><0>'
Z
0
1
65535
DEAD
1
1
0
LPS0
83
0
0
LPB0*2
LPB0*2
LPS0
152
0
.BLK ZAUX
LPS0: 0
0
0
0
LPS0
0
LPB0*2
LPB0: .BLK 76
ZONAD: LPZON
ADTAL: 32600
AD: 0
GODK: 0
MSYV: -7
TGAD: 0
LGAD: 0
LGMA: 0
LG: 0
GGG: 19712 ; M*256
TTG1: .+1
.TXT *TTY<0>*
TOLV: 12
BIRTH:
STA 1,TGAD
MOV 1,2
LDA 3,5,2 ; FLG VERSION 3
INC 3,3 ; RETTET 12.11
MOVZR 3,3
ADD 1,3 ; ADR X
LDA 1,MSYV
SUB 1,3 ; ADRESSE PÅ ET EVT T
LDA 1,0,3
LDA 3,GGG
SL 3,1
JMP EJJ
LDA 3,TTG1
LDA 0,0,3 ; TT
LDA 1,1,3 ; Y<0>
LDA 3,ZONAD
STA 0,0,3
STA 1,1,3
LDA 0,.6
STA 0,TOLV
EJJ:
LDA 0,5,2
MOVZR 0,0,SNR
JMP DEAD
STA 0,LGMA
DSZ LGMA
DSZ LGMA
LDA 0,.3
LDA 2,ZONAD
OPEN
NST:
LDA 2,LGMA
STA 2,LG
LDA 2,TGAD
ISZ AD
DSZ ADTAL
JMP .+2
JMP DEAD
LDA 3,AD
FORTS:
LDA 1,0,3
LDA 0,7,2
SE 0,1
JMP NST
INC 3,3
INC 2,2
DSZ LG
JMP FORTS
LDA 0,AD
STA 0,ADUD
SUB 1,1
JSR UDSKR
OUTSP
LDA 0,ADUD
OUTOC
OUTSP ; TILF I VERS 3 FLG
LDA 3,TGAD
LDA 0,6,3
LDA 1,.1
SUB # 0,1,SNR
JMP .+5
LDA 0,.7
ADDZL 3,0 ; BYAD
OUTTEXT
JMP .+3
LDA 0,7,3
OUTOC
OUTNL
LDA 3,ADUD
LDA 2,.5
SUB 2,3
STA 3,ADUD
STA 3,ADUD2
STA 3,ADUD3
LDA 2,TOLV ; RETTET 6.11 82 FRA 16
STA 2,TALLE
NR22:
LDA 3,ADUD
LDA 0,0,3
JSR UDSKR
ISZ ADUD
DSZ TALLE
JMP NR22
OUTNL
LDA 3,TOLV
STA 3,TALLE
LDA 0,.10
SL 0,3 ; 3.VERS
JMP NST
NR33:
LDA 3,ADUD2
LDA 0,0,3
LDA 2,ZONAD
OUTOCTAL
OUTSP
ISZ ADUD2
DSZ TALLE
JMP NR33
OUTNL
JMP EJBYT
LDA 3,ADUD3 ; FLG TILFØJET 12.11.82 INAKTIVT
LDA 2,TOLV
STA 2,TALLE
NR44:
LDA 3,ADUD3
LDA 0,0,3
LDA 3,.255
MOVS 3,3
ANDS 3,0
JSR OTILA
LDA 1,.2
JSR UDSKR
LDA 3,ADUD3
LDA 0,0,3
LDA 3,.255
AND 3,0
JSR OTILA
LDA 1,.2
JSR UDSKR
OUTSP
OUTSP
ISZ ADUD3
DSZ TALLE
JMP NR44 ; SLUT 12.11.82
EJBYT:
OUTNL
JMP NST
UDSKR:
STA 3,TILBA
STA 1,NO5
LDA 1 ,BYAD2
LDA 2,CUR
BINDEC
LDA 1,BYAD2
LDA 0,NO5
ADD 1,0
LDA 2,ZONA4
OUTTEXT
OUTSPACE
OUTSPACE
LDA 1,NO5
JMP @ TILBA
TILBA: 0
TALLE: 0
ADUD: 0
ADUD2: 0
ADUD3: 0
0
BYAD: 0
BYA4: 0
0
0
BYAD1:BYAD
BYAD2: BYAD*2
NO5 : 0
BEGN: BIRTH
DEAD:
ISZ SNDN8
LDA 1,.1
LDA 2,ZONA4
CLOSE
LDA 1,ADR
LDA 2,NADR
SENDMESSAGE
ISZ SNDN9
LDA 2,CUR
STOPP
JMP @ BEGN
ADR: .+1
1B8
0
0
0
NADR: .+1
.TXT 'S'
0
0
OTILA: ; NYT 12.11.82 INAKTIVT
STA 3,OTADR
LDA 1,.48
LDA 3,BYA4
ADD 3,1
STA 1,BYA4
JSR @ OTADR
OTADR: 0
ZONA4: LPZON
BUFF1: .+0
.-1
BUFF2
10
PCDS
0
0
0
0
0
BUFF2: .+0
.-1
0
10
PCDS
0
0
0
0
0
SNDN8: 0
SNDN9: 0
SNDN7: 0
SLUT1: -3
PCDS: .+0
.-1
0
0
.TXT (SØGE<0>(
.+0
.-1
BUFF1
PGDS
0
0
14000
DEAD
0
0
0
0
BIRTH*2
0
10
20
30
40
50
60
70
80
90
100
.END PCDS
«ff»
; 3.V3RESION AF SØGE VALGFRI LPT/TTY O.A.
; PL 12.11.82 AFTEN
; SØGE TIL TTY / ADR OSSE OCTALT / PL 6.11.82
; P1ASG SØGEPROGRAM SØGER EN TEXT = 1.PARAMETER (LIGE ANTAL BYTE)
; SUPPLERER OP TIL LIGE MED <0>
; VIRKER KORREKT (?) !!!
; SØGEPROGRAM RETTET 15.5.82
; PL PROGRAM TIL AT SØGE VILK TEXT I CORE
; TEXTEN INDTASTESSOM PARAMETER
; OG SUPPLERES AUTOMATISK MED <0> TIL LIGE ANTAL BYTES
.TITL PLSGE
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'PLSGE'
LAB00:
LPZON: .TXT 'LPT<0><0>'
Z
0
1
65535
DEAD
1
1
0
LPS0
83
0
0
LPB0*2
LPB0*2
LPS0
152
0
.BLK ZAUX
LPS0: 0
0
0
0
LPS0
0
LPB0*2
LPB0: .BLK 76
ZONAD: LPZON
ADTAL: 32600
AD: 0
GODK: 0
TGAD: 0
LGAD: 0
LGMA: 0
LG: 0
GGG: 19712 ; M*256
TTG1: .TXT *TTY<0>*
TOLV: 12
BIRTH:
STA 1,TGAD
MOV 1,2
LDA 3,5,2 ; FLG VERSION 3
MOVZR 3,3
ADD 1,3 ; ADR X
INC 3,3
INC 3,3 ; ADR X+2
LDA 1,0,3
LDA 3,GGG
SL 3,1
JMP EJJ
LDA 3,TTG1
LDA 0,0,3 ; TT
LDA 1,1,3 ; Y<0>
LDA 3,ZONAD
STA 0,0,3
STA 1,1,3
LDA 0,.6
STA 0,TOLV
EJJ:
LDA 0,5,2
MOVZR 0,0,SNR
JMP DEAD
STA 0,LGMA
DSZ LGMA
DSZ LGMA
LDA 0,.3
LDA 2,ZONAD
OPEN
NST:
LDA 2,LGMA
STA 2,LG
LDA 2,TGAD
ISZ AD
DSZ ADTAL
JMP .+2
JMP DEAD
LDA 3,AD
FORTS:
LDA 1,0,3
LDA 0,7,2
SE 0,1
JMP NST
INC 3,3
INC 2,2
DSZ LG
JMP FORTS
LDA 0,AD
STA 0,ADUD
SUB 1,1
JSR UDSKR
OUTSP
LDA 0,ADUD
OUTOC
OUTSP ; TILF I VERS 3 FLG
LDA 3,TGAD
LDA 0,6,3
LDA 1,.6
SUB # 0,1,SNR
JMP .+5
LDA 0,.7
ADDZL 3,0 ; BYAD
OUTTEXT
JMP .+3
LDA 0,7,3
OUTOC
OUTNL
LDA 3,ADUD
LDA 2,.5
SUB 2,3
STA 3,ADUD
STA 3,ADUD2
LDA 2,TOLV ; RETTET 6.11 82 FRA 16
STA 2,TALLE
NR22:
LDA 3,ADUD
LDA 0,0,3
JSR UDSKR
ISZ ADUD
DSZ TALLE
JMP NR22
OUTNL
LDA 3,TOLV
STA 3,TALLE
LDA 0,.10
SL 0,3 ; 3.VERS
JMP NST
NR33:
LDA 3,ADUD2
LDA 0,0,3
LDA 2,ZONAD
OUTOCTAL
OUTSP
ISZ ADUD2
DSZ TALLE
JMP NR33
OUTNL
OUTNL
JMP NST
UDSKR:
STA 3,TILBA
STA 1,NO5
LDA 1 ,BYAD2
LDA 2,CUR
BINDEC
LDA 1,BYAD2
LDA 0,NO5
ADD 1,0
LDA 2,ZONAD
OUTTEXT
OUTSPACE
OUTSPACE
LDA 1,NO5
JMP @ TILBA
TILBA: 0
TALLE: 0
ADUD: 0
ADUD2: 0
0
BYAD: 0
0
0
0
BYAD1:BYAD
BYAD2: BYAD*2
NO5 : 0
BEGN: BIRTH
DEAD:
ISZ SNDN8
LDA 1,.1
LDA 2,ZONA4
CLOSE
LDA 1,ADR
LDA 2,NADR
SENDMESSAGE
ISZ SNDN9
LDA 2,CUR
STOPP
JMP @ BEGN
ADR: .+1
1B8
0
0
0
NADR: .+1
.TXT 'S'
0
0
ZONA4: LPZON
BUFF1: .+0
.-1
BUFF2
10
PCDS
0
0
0
0
0
BUFF2: .+0
.-1
0
10
PCDS
0
0
0
0
0
SNDN8: 0
SNDN9: 0
SNDN7: 0
SLUT1: -3
PCDS: .+0
.-1
0
0
.TXT (SØGE<0>(
.+0
.-1
BUFF1
PGDS
0
0
14000
DEAD
0
0
0
0
BIRTH*2
0
10
20
30
40
50
60
70
80
90
100
.END PCDS
«ff»
«nul»