|
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: »P1A37«
└─⟦92491b7d7⟧ Bits:30001772 UDVIKLING AF CALLRUTINER ETC NR 2
└─ ⟦this⟧ »/P1A37«
└─⟦ee9e554ad⟧ Bits:30001809 SG0107 Floppy
└─ ⟦this⟧ »/P1A37«
; PL MESS.LOGGER 25.5.82 FLYT EN OUTSP (AC2 FEJL) O.A.
; PL MESSAGELOGGER 23.5.82 AFTEN / UNDER INDKØRING
; NY VERSION 21.5.82 MERE GENEREL OG SIKKER (?!)
; 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:
.BLK 180
LAB01: .-1
0
0
0
0
0
0
0
0
0
0
0
.TXT 'STATUS FOR INDG: '
SNDN1: 0
SNDN2: 0
SNDN3: 0
SMDN3: 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
.TXT *STACKPARAM: *
STABG: LAB00
STADR: LAB00
STMAK: LAB01
STNR: 0
PIL: LAB00
AKTST: LAB00
AKTS2: 0
AKTS3: 0
-14
SODN1: 0
SODN2: 0
SODN3: 0
SODN4: 0
SODN5: 0
SODN6: 0
SODN7: 0
SODN8: 0
SODN9: 0
-4
GOD:
ISZ SNDN3
ISZ SODN1
LDA 2,STADR
LDA 1,.6
ADD 1,2
LDA 1,STMAK
SUBZ # 2,1,SNC
LDA 2,STABG
STA 2,STADR
ISZ STNR
LDA 0,A0
STA 0,2,2
LDA 0,A1
STA 0,3,2
LDA 0,A2
STA 0,4,2
LDA 0,A3
STA 0,5,2
LDA 0,CUR
STA 0,1,2
SUBZL 1,1
STA 1,0,2
LDA 3,KLAR
MOV # 3,3,SNR
JMP VENTE
ISZ SODN2
SUB 0,0
STA 0,KLAR
STA 0,0,2
MOV 2,1
STA 2,INDE ;
LDA 3,1,2
STA 3,CU3
STA 2,AKTST
LDA 2,FPCDS
STARTPROC
LDA 2,CUR
INTEN
STOPPROC
;(GENSTART:)
INTDS
ISZ SODN3
STA 1,AKTS2
GOON:
ISZ SODN6
LDA 3,.6
ADD 1,3
LDA 1,STMAK
SUBZ # 1,3,SNC
LDA 3,STABG
STA 3,PIL
LDA 1,0,3
MOV # 1,1,SNR
JMP EJFL1
SUB 0,0
STA 0,0,3
LDA 2,FPCDS
STA 3,INDE
LDA 3,1,3
STA 3,CU3
STARTPROC
JMP EJFLE
EJFL1:
SUBZL 0,0
STA 0,KLAR
EJFLE:
LDA 3,AKTS2
LDA 0,2,3
LDA 1,3,3
LDA 2,4,3
LDA 3,5,3
INTEN
JMP @ SEND
-25
.TXT *VENT*
VENTE:
ISZ SODN4
LDA 2,CUR
INTEN
STOPPROC
;(GENSTART:)
INTDS
ISZ SODN5
STA 1,AKTS3
JMP GOON
;SLUT 21.5.82 /PL
«ff»
.TXT *INKTRL*
FPCDS: PCDS
LPZO2: LPZON
NAMAM: .TXT 'LP '
NAMA2: .TXT 'S<0>'
A0: 0
A1: 0
A2: 0
A3: 0
A10: 0
A11: 0
A12: 0
A13: 0
SNDNN: SNDN1
SNDNM: SNDN2
-2
.TXT *INDG*
RU: .+1
STA 0,A0
STA 1,A1
STA 2,A2
STA 3,A3
ISZ @ SNDNN
LDA 0,+000,2
LDA 1,NAMAM
SNE 0,1
JMP RETU
LDA 0,CUR
LDA 3,.4
ADD 0,3
LDA 0,0,3
SNE 0,1
JMP RETU
ISZ @ SNDNM
LDA 1,NAMA2
MOV 1,1,SNR
JMP GOD
SNE 0,1
JMP RETU
LDA 0,0,2
SE 0,1
JMP GOD
RETU: LDA 0,A0
LDA 1,A1
LDA 2,A2
LDA 3,A3
«ff»
; SIDESKIFT NR 1 >>>>>>>>>>>>>>>>>>>>
JMP @ SEND
.TXT *LOGKTR*
-3
SEND: 0
NAMA4: NAMAM*2
UDSK: UDSKR
TG: 62
KLAR: 0
SNDN4: 0
SNDN5: 0
SNDN6: 0
SNDN0: 0
INDE: 0
INDE2: 0
CU1: CU
CU3: 0
TXB: .+2*2
-1
.TXT 'MESSAGE-LOGGER PL VERS 2.1 EFT PHK /23.5.82 <0>'
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,LPZO2
LDA 0,.3
OPEN
LDA 1,.10
OUTEN
LDA 0,SNDNN
OUTOC
OUTSP
LDA 0,SNDNN
LDA 1,.0
JSR @ UDSK
LDA 0,TXB
LDA 2,LPZO2
OUTTEXT
LDA 0,NAMA4
OUTTEXT
OUTNL
OUTNL
INTDS
LDA 0,004
STA 0,SEND
LDA 0,RU
STA 0,004
LOP:
ISZ SNDN4
LDA 2,LPZO1
OUTNL
LDA 2,CU2
START
LDA 2,CUR
SUBZL 0,0
INTEN
STA 0,KLAR
STOPP
INTDS
ISZ SNDN5
SUB 0,0
STA 0,KLAR
LDA 2,INDE
STA 2,INDE2
LDA 3,CU3
STA 3,CU2
INTEN
LDA 0,SNDNN @
LDA 1,.1
JSR @ UDSK
LDA 0,SNDNM @
JSR @ UDSK
LDA 1,.3
LDA 0,SNDN4
JSR @ UDSK
LDA 2,INDE2
LDA 0,2,2
LDA 1,.0
JSR @ UDSK
LDA 0,3,2
JSR @ UDSK
LDA 0,4,2
JSR @ UDSK
LDA 0,5,2
JSR @ UDSK
LDA 0,CU2
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 .+4
CU: 0
CU2: 0
-14
LOP1: LDA 1,MDL
GETBY
LDA 2,LPZO1
MOV 0,1,SNR
LDA 1,.32
OUTEN
ISZ MDL
DSZ NO
JMP LOP1
OUTSPACE
LDA 2,INDE2
LDA 0,4,2
DSZ NO2
JMP NR2
LDA 2,INDE2
LDA 3,3,2
STA 3,A33
LDA 2,LPZO1
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 SMDN6 @
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
-36
SMDN6: SNDN6
LPZO1: LPZON
MDL: 0
NO2: 2
NO: 0
A33: 0
.TXT *UDSK*
«ff»
; SIDESKIFT NR 2 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
; AC0 = VALUE AC1=0-4 AC2=?? AC3=LINK
; DESROY = = DESTROY
UDSKR:
STA 3,TILBA
STA 2,GEM2
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 2,GEM2
LDA 1,NO5
JMP @ TILBA
TILBA: 0
BYAD: 0
0
0
0
BYAD1:BYAD
BYAD2: BYAD*2
NO5 : 0
GEM2: 0
BEGN: BIRTH
SEND1: SEND
.TXT *DEAD*
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'
0
0
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»