|
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: 8704 (0x2200)
Types: TextFile
Names: »P1A34«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
└─⟦this⟧
; 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 258
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
LDA 2,.16
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*
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
TRET: 13
LPZO3: LPZON
NAMA4: NAMAM*2
UDSK: UDSKR
SNDNN: SNDN1
SNDNM: SNDN2
TG: 62
KLAR: 0
SNDN4: 0
SNDVT: 0
SNDN5: 0
SNDSL: 0
SNDN6: 0
SNDN0: 0
STABK: LAB00
STMAG: LAB01
INDE: 0
CU3: 0
TXB: .+2*2
-1
.TXT 'MESSAGE-LOGGER PL VERS 3.1 8.6.82 UNDT. TIL/FRA <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,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,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
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 3,3,2
LDA 0,+000,3
LDA 1,.1B4
AND 0,1,SNR
JMP IKUD
ISZ SMDN6 @
LDA 0,+002,3
STA 0,MDL
LDA 1,+002,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 3,LOGAD
ISZ 0,3
JMP 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»