|
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: »P1A34«
└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
└─ ⟦this⟧ »/P1A34«
; MESSAGE-LOGGER PL 3.2 13.8.82 (SMÅÆNDR: ØGET STACK & DELAYTIME ETC)
; MESSAGE-LOGGER PL 3.2 11.6.82
; RETTET OG RIMELIGT PÆN (*) MED FORSK PARAMOPTIONS (SE I PRG) 11.6.82
; RETTET 11 TIL 10 OG CHECK 0 ETC FOR TEXTUDSKR / O.A. 10-11.6.82 /PL
; RETTET TEXT-UDSKRIVN.DELEN (FEJL!) OG IØVR REDIG OUTPUT
; PL MESSAGE-LOGGER 9.6.82 /// F A R L I G /// (FARE UKENDT!) ///
; VIRKER VISTNOK KORREKT, MEN NYOPSTART AF SYATEM VIGTIG EFTER BRUG !!!
;RETTET 9.6.82 AFFTEN
; STACKSTRUKTUR ÆNDRES 8.6.82 AFTEN OG PROCESS SINKES IKKE
; RETTET 8.6.82
; RETTET / KORER ?! / 4.6.82
; PL MESS.LOGGER VERSION 3.1 : PROCESSERNE STOPPES IKKE / 3.6.82 PÅBEG /
; 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:
0
0
.BLK 1650
LAB01: .+0
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 *STACKPAR*
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
.TXT *GODK*
GOD:
ISZ SNDN3
ISZ SODN1
LDA 2,STADR
LDA 1,TRETT
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
LDA 3,4,2
LDA 0,0,3
STA 0,6,2
LDA 0,1,3
STA 0,7,2
LDA 0,2,3
STA 0,8,2
LDA 3,3,2
LDA 0,0,3
STA 0,9,2
LDA 0,1,3
STA 0,10,2
LDA 0,2,3
STA 0,11,2
LDA 0,3,3
STA 0,12,2
SUB 1,1
STA 1,13,2
SUBZL 1,1
STA 1,0,2
ISZ SODN2
MOV 2,0
SUB 1,1
INST: LDA 2,.16 ; ÆNDRES AF PARAM TIL 32, 64, ...
INTEN
WAITINTER
JMP .+1
;(GENSTART:)
INTDS
ISZ SODN3
EJFLE:
MOV 0,3
LDA 0,2,3
LDA 1,3,3
LDA 2,4,3
LDA 3,5,3
INTEN
JMP @ SEND
-25
TRETT: 13
; STACKSTRUKTUR RETTET 8.6.82
;RETTET 3.6.82 VED MANGE UDELADELSER
;SLUT 21.5.82 /PL
«ff»
; SIDESKIFT >>>>>>>>>>>
.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
-2
.TXT *INDG*
PRFTS:
STA 0,A0
STA 1,A1
STA 2,A2
STA 3,A3
ISZ @ SNDNN
JMP .+1
JMP @ AAAA
SSSS:
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
JMP @ SEND
AAAA: SSSS
RU: PRFTS
«ff»
; SIDESKIFT NR 1 >>>>>>>>>>>>>>>>>>>>
.TXT *LOGKTR*
-3
SEND: 0
TRET: 13
INST1: INST
GOD1: GOD
LPZO3: LPZON
NAMA4: NAMAM*2
SNDNN: SNDN1
SNDNM: SNDN2
SNDNP: SNDN3
TG: 62
KLAR: 0
SNDN4: 0
SNDVT: 0
SNDN5: 0
SNDSL: 0
SNDN6: 0
SNDN0: 0
STABK: LAB00
STMAG: LAB01
INDE: 0
CU3: 0
UDSK: UDSKR
TXB: .+2*2
-1
.TXT 'MESSAGE-LOGGER PL VERS 3.2 11.6.82 UNDT. TIL/FRA <27>=<0>'
BIRTH:
MOV 1,2
LDA 0,6,2
LDA 1,.4
SNE 0,1
JMP EJPAR ; TIDL DEAD2
LDA 0,7,2
STA 0,NAMA2
MOV # 0,0,SNR
DSZ INST1 @
INC # 0,0,SZR
JMP .+3
LDA 0,GOD1
STA 0,AAAA
; OPTION PARAM=-1 TILFØJET 11.6.82
LDA 1,.10
SLE 0,1
JMP EJPAR
DSZ INST1 @
DSZ 7,2
JMP .-2
EJPAR:
LDA 2,LPZO3
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,LPZO3
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,LPZO3
OUTNL
; FLG UDSKIFTET I DENNE VERSION 3.6.82
LDA 2,LOGAD
LDA 1,TRET
ADD 1,2
LDA 0,STMAG
SUBZ # 2,0,SNC
LDA 2,STABK
STA 2,LOGAD
MOV 2,0
INTEN
JMP .+8
VENT:
ISZ SNDVT
JMP .+1
JMP .+1
SUB 1,1
LDA 2,.4
WAITINTERR
JMP .+1
LDA 3,LOGAD
LDA 0,0,3
LDA 2,.1
SE 0,2
JMP VENT
ISZ 0,3
ISZ SNDN5
INTEN
LDA 1,1,3
STA 3,INDE2
STA 1,CU2
; ÆNDR. SLUT
LDA 0,SNDNN @
LDA 1,.1
JSR @ UDSK
LDA 0,SNDNM @
JSR @ UDSK
LDA 1,.3
LDA 0,SNDNP @
JSR @ UDSK
LDA 0,SNDN4
JSR @ UDSK
LDA 0,SNDVT
SUB 1,1
JSR @ UDSK
LDA 2,LPZO1
OUTSPACE
SUB 1,1
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 UDSKR
JMP .+7
0
LOGAD: LAB00
INDE2: 0
CU2: 0
-14
0
LDA 0,1,2
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
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,LOGAD
LDA 0,.6
ADD 2,0
DSZ NO2
JMP NR2
LDA 2,LOGAD
LDA 0,9,2
LDA 2,LPZO1
OUTOC
OUTSP
LDA 2,LOGAD
LDA 0,10,2
SUB 1,1
JSR UDSKR
LDA 0,11,2
JSR UDSKR
LDA 0,12,2
JSR UDSKR
ISZ SMDN4 @
LDA 0,9,2
LDA 1,.2
AND 0,1,SNR
JMP IKUD
ISZ SMDN6 @
LDA 0,11,2
STA 0,MDL
LDA 1,10,2
MOV 1,1,SNR
JMP IKUD
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 3,LOGAD
ISZ 0,3
JMP @ LOP7
LOP7: LOP
-36
SMDN4: SNDSL
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,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
1
2
3
4
5
6
7
8
9
.END PCDS
«ff»
«nul»