|
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: 7168 (0x1c00)
Types: TextFile
Names: »P1A38«
└─⟦92491b7d7⟧ Bits:30001772 UDVIKLING AF CALLRUTINER ETC NR 2
└─⟦this⟧
└─⟦ee9e554ad⟧ Bits:30001809 SG0107 Floppy
└─⟦this⟧
; LILLE RETTELSE 8.5.82 I UDSK
; P1A38/ P1B31/ MESSAGELOGGER IKKE HELT FÆRDIG 8.5.82 KL 15
; VIRKER I VISSE TILFÆLDE MEN KRÆVER NYOPSTART, SPEC EFTER BRUG
; 8.5.82 KL 15
; P1A38 VERS 8.5.82 MED DECIMALTAL OG RESERV/BESKYTTELSE (NÆPPE FÆRDIG)
; P1A38 /PL 6.4.82 FARLIGT OG UFÆRDIGT PROGRAM /KRÆVER TEXTPARAM/
; PLPROJEKT LOGNING AF SENDM / EFTER PHKAMP / VILK PROC
; KALDES MED EEN TEXTPARAMERER / PL 6.5.82 STATUS
; PL FORSØG MED REA37 26.4.82 FIL P1A38
.TITL LPMES
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'LPMES'
LAB00:
.TXT 'STATUS FOR INDG: '
SNDN1: 0
SNDN2: 0
SNDN3: 0
LPZON: .TXT 'LPT<0><0>'
Z
0
1
65535
DEAD
1
1
0
LPS0
73
0
0
LPB0*2
LPB0*2
LPS0
132
0
.BLK ZAUX
LPS0: 0
0
0
0
LPS0
0
LPB0*2
LPB0: .BLK 66
-3
GOD: ; JMP SPRIN
ISZ SNDN2
LDA 1,NAMA2
MOV # 0,0,SNR
JMP .+3
SE 0,1
JMP RETU
LDA 0,CUR
LDA 1,.4
ADD 1,0
MOV 0,3
LDA 0,0,3
LDA 1,NAMAM
SNE 0,1
JMP RETU
JMP SPRIN
LDA 1,NAMA2
SNE 0,1
JMP RETU
SPRIN: ISZ SNDN3
LDA 0,A0
STA 0,A10
LDA 0,A1
STA 0,A11
LDA 0,A2
STA 0,A12
LDA 0,A3
STA 0,A13
LDA 2,CUR
STA 2,CU1 @
STA 2,CU3
VENT:
LDA 1,KLAR
MOV 1,1,SZR
JMP FORTS
LDA 2,.4
SUB 1,1
WAITI
JMP 1,1
ISZ SNDN0
JMP VENT
FORTS:
LDA 2,FPCDS
START
LDA 2,CUR
STOPP
LDA 0,A10
LDA 1,A11
LDA 2,A12
LDA 3,A13
JMP @ SEND
FPCDS: PCDS
; FLG VARIABELT!
NAMA2: .TXT 'S<0>'
NAMAM: .TXT 'LP'
A0: 0
A1: 0
A2: 0
A3: 0
A10: 0
A11: 0
A12: 0
A13: 0
SNDNN: SNDN1
SNDNM: SNDN2
-2
RU: .+1
STA 0,A0
STA 1,A1
STA 2,A2
STA 3,A3
ISZ @ SNDNN
LDA 0,+000,2
LDA 1,NAMAM
SE 0,1
JMP GOD
RETU: LDA 0,A0
LDA 1,A1
LDA 2,A2
LDA 3,A3
«ff»
; SIDESKIFT NR 1 >>>>>>>>>>>>>>>>>>>>
JMP @ SEND
SEND: 0
UDSK: UDSKR
TG: 62
KLAR: 0
SNDN4: 0
SNDN5: 0
SNDN6: 0
SNDN0: 0
CU1: CU
CU3: 0
-1
.TXT 'STATUS BIRTH:'
BIRTH:
MOV 1,2
LDA 0,6,2
LDA 1,.4
SNE 0,1
JMP .+3 ; TIDL DEAD2
LDA 0,7,2
STA 0,NAMA2
LDA 2,LPZO1
LDA 0,.3
OPEN
LDA 1,.10
OUTEN
LDA 0,SNDNN
OUTOC
OUTSP
LDA 0,SNDNN
LDA 1,.0
JSR @ UDSK
OUTNL
OUTNL
INTDS
LDA 0,004
STA 0,SEND
LDA 0,RU
STA 0,004
LOP:
ISZ SNDN4
LDA 2,LPZO1
OUTNL
LDA 2,CU
START
LDA 2,CUR
SUBZL 0,0
INTEN
STA 0,KLAR
STOPP
ISZ SNDN5
SUB 0,0
STA 0,KLAR
LDA 2,LPZO1
LDA 0,SNDNN @
LDA 1,.1
JSR @ UDSK
LDA 0,SNDNM @
JSR @ UDSK
LDA 1,.3
LDA 0,SNDN4
JSR @ UDSK
LDA 0,A10
LDA 1,.0
JSR @ UDSK
LDA 0,A11
JSR @ UDSK
LDA 0,A12
JSR @ UDSK
LDA 0,A13
JSR @ UDSK
LDA 0,CU
LDA 1,.2
STA 1,NO2
LDA 1,.4
ADD 1,0
NR2: MOVZL 0,0
STA 0,MDL
LDA 1,.5
STA 1,NO
JMP .+2
CU: 0
LOP1: LDA 1,MDL
GETBY
LDA 2,LPZO1
MOV 0,1,SNR
LDA 1,.32
OUTEN
ISZ MDL
DSZ NO
JMP LOP1
OUTSP
LDA 0,A12
DSZ NO2
JMP NR2
LDA 3,A11
STA 3,A33
LDA 0,+000,3
OUTOC
OUTSP
LDA 3,A33
LDA 0,+001,3
SUB 1,1
JSR UDSKR
LDA 3,A33
LDA 0,+002,3
JSR UDSKR
LDA 3,A33
LDA 0,+003,3
JSR UDSKR
LDA 3,A33
LDA 0,+000,3
LDA 1,.1B4
AND 0,1,SNR
JMP IKUD
ISZ SNDN6
LDA 0,+002,3
STA 0,MDL
LDA 1,+001,3
LDA 0,.64
SG 0,1
MOV 0,1
STA 1,NO
LOP2: LDA 1,MDL
GETBY
LDA 1,.127
AND 1,0
MOV 0,0,SNR
LDA 0,.64
SNE 1,0
LDA 0,.32
LDA 1,.32
LDA 2,LPZO1
SG 0,1
LDA 0,.32
MOV 0,1
OUTEN
ISZ MDL
DSZ NO
JMP LOP2
IKUD: LDA 2,CU
START
JMP LOP
LPZO1: LPZON
MDL: 0
NO2: 2
NO: 0
A33: 0«ff»
; SIDESKIFT NR 2 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
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,LPZO1
OUTTEXT
OUTSPACE
LDA 1,NO5
JMP @ TILBA
TILBA: 0
BYAD: 0
0
0
0
BYAD1:BYAD
BYAD2: BYAD*2
NO5 : 0
BEGN: BIRTH
SEND1: SEND
DEAD:
ISZ SNDN8
LDA 0,SEND1 @
STA 0,004
LDA 1,.1
LDA 2,LPZO1
CLOSE
LDA 2,CU
START
LDA 2,CUR
STOPP
DSZ SLUT1
JMP .-2
JMP @ BEGN
ADR: .+1
1B8
0
0
0
NADR: .+1
.TXT 'S'
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: -1
PCDS: .+0
.-1
0
0
.TXT 'LPMES'
.+0
.-1
BUFF1
PGDS
0
0
14000
DEAD
0
0
0
0
BIRTH*2
.BLK 8
.END PCDS
«ff»
«nul»