|
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: 11776 (0x2e00)
Types: TextFile
Names: »P1A33«
└─⟦954fa3634⟧ Bits:30001792 SG0012 Floppy
└─ ⟦this⟧ »/P1A33«
└─⟦95f236f17⟧ Bits:30001773 PL FAERD ASCII NR 2
└─ ⟦this⟧ »/P1A33«
└─⟦f319a9c26⟧ Bits:30001791 SG0011 Floppy
└─ ⟦this⟧ »/P1A33«
; MESS LOGGER 21.6.82 ATFEN: ANDEN PARAM IKKE MERE SÅ KRITISK
; MESS LOGG : HVIS KØ DA EJ GENTAGEN UDSKRIFT AF CORE SELV OM PARAM >=4 / 21.682 AFTEN
; MESS LOGGER KØRER PÆNT MED PARAM: 2 VILK, 3 VILK, 4 CA 200, 5 CA 500 /PL 21.6.82/ VERSION 3.4
; (0, 1 ELLER 2 PARAMETRE, MEN UDEN PARAM ER IKKE SÆRLIG SPÆNDENDE EJ HELLER GOT)
; SÅLEDES PRØVEKØRT 21.6.82 ... MEN STADIG VILLE DET VÆRE RAREST AT KUNNE STOPPE S ETC
; MESS.LOGGER 21.6.82 NU 2 PARAM (ALM DELAY 2-4, GENT DELAY FX 200)
; YDERL. ÆNDRINGER / DET ER ET PROBL AT S OA??? IKKE MÅ STOPPES
; MESS.LOGGER MED DATA/AFH AF PARAM / VIRKER NOGENLUNDE MED PAR 4 OG 2 / PL 19.6.82 EFTERM
; 18.6.82 ÆNDR TIL STOP/START AF RUNNING PROCES - ETC
; MES LOGGER VERSION 3.3 17.6.82 / FÆRDIG & KØRENDE / FLERE OPTIONS /
; 16.6.82 MODIF
; ARB-MODIF 14.6.82
; 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:
.DO 20
0
100
.BLK 11
.ENDC
; ÆNDRET FRA 1650 I ANL AF STOP/START
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
JMP BVADR
LDA 2,CUR
LDA 1,SPROC
SE 1,2
JMP TESTS
LDA 1,CPROC
SE 1,2
JMP TESTS
BVADR:
MOV 2,0
SUB 1,1
STA @ 1,NBB1
INST: LDA 2,.16 ; ÆNDRES AF PARAM TIL 32, 64, ...
ISZ SODN4
INTEN
WAITINTER
JMP .+1
ISZ SODN6
JMP GENST
TESTS:
SUBZL 1,1
STA 1,NBB1 @
LDA 2,CUR
ISZ SODN5
INTEN
STOPPROCES
JMP .+1
GENST:
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
SPROC: 9139
CPROC: 8039
TRETT: 13
NBB1: NBB
; 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
TXB: TXC*2
GEM9: GEM8
TRET: 13
INST1: INST
GOD1: GOD
NAMA4: NAMAM*2
CU3: 0
INDE: 0
STABK: LAB00
STMAG: LAB01
0
TG: 62
SNDN4: 0
SNDVT: 0
SNDN5: 0
SNDSL: 0
SNDN6: 0
SNDN0: 0
LPZO6: LPZON
SNDNN: SNDN1
SNDNM: SNDN2
SNDNP: SNDN3
UDSK: UDSKR
TXC: .TXT 'MESSAGE-LOGGER PL VERS 3.4 21.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
LDA 1,.4
SL 0,1
STA 0,VTID
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
LDA 0,10,2
STA 0,GEM9 @
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 @ UDSK1
LDA 0,SNDN4
JSR @ UDSK1
LDA 0,SNDVT
SUB 1,1
JSR @ UDSK1
LDA 2,LPZO3
OUTSPACE
SUB 1,1
LDA 2,INDE2
LDA 0,2,2
LDA 1,.0
JSR @ UDSK1
LDA 0,3,2
JSR @ UDSK1
LDA 0,4,2
JSR @ UDSK1
LDA 0,5,2
JSR UDSK1 @
JMP .+10
0
LPZO3: LPZON
LOGAD: LAB00
INDE2: 0
CU2: 0
VTID: 0
UDSK1: UDSKR
-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 UDSK1 @
LDA 0,11,2
JSR UDSK1 @
LDA 0,12,2
JSR UDSK1 @
ISZ SMDN4 @
LDA 0,9,2
LDA 1,.2
STA 1,L2
LDA 1,.1
AND 0,1,SNR
JMP IKUD
ISZ SMDN6 @
BBB:
SUB 0,0
STA 0,NB
LDA 2,INDE2
LDA 0,11,2
STA 0,MDL
LDA 1,10,2
MOV 1,1,SNR
JMP IKUD
LDA 0,.32 ; SKAL NORMALT VÆRE 128 PÅ OLIVETTI
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
LDA 2,INDE2
LDA 0,9,2
LDA 1,.2
AND 0,1,SZR
JMP IKUD
LDA 0,VTID
MOV 0,0,SNR
JMP IKUD
ISZ @ SMMD7
DSZ L2
JMP .+2
JMP IKUD
LDA 2,NBB
MOV 2,2,SNR
JMP .+4
LDA 2,INDE2
LDA 2,1,2
STARTPROC
SUBZL 1,1
STA 1,NB
; 18.6.82
; LDA 0,VTID
; STA 0,VTARB
; DSZ VTARB
; LDA 2,.16 ; LISOM I INST!
; MOVZL 2,2
; DSZ VTARB
; JMP .-2
LDA 2,SMMN5 @
LDA 1,SMMN2 @
STA 1,TES1
STA 2,TES2
SNE 1,2 ; INGEN DELAY HVIS 1=2
JMP .+5
INC 2,2
SNE 1,2 ; UBETYDELIGT DELAY HVIS KUN 1 FORSKEL
JMP .+5 ; I SÅ FALD UDSKR STRAX
JMP IKUD
LDA 2,GEM8
SUB 1,1
WAITINT
LDA 2,LPZO1
LDA 0, TXSP
OUTTEXR
JMP BBB
IKUD:
LDA 3,LOGAD
ISZ 0,3
LDA 1,NBB
MOV # 1,1,SNR
JMP @ LOP7
LDA 1,NB
LDA 2,INDE2
LDA 2,1,2
STA 2,TEST1
MOV 1,1,SNR
STARTPROC
JMP @ LOP7
LOP7: LOP
-36
NO2: 2
NB: 0
SMDN4: SNDSL
SMDN6: SNDN6
LPZO1: LPZON
MDL: 0
NO: 0
A33: 0
L2: 2
VTARB: 0
SMMD7: SNDN7
NBB: 0
SMMN5: SNDN5
TES1: 100
TES2: 200
9999
SMMN2: SODN2
TEST1: 7
GEM8: 200
.-1
.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: EJPAR
SEND1: SEND
TXSP: .+1*2
.TXT '<13><10>'
.DO 42
.TXT ' '
.ENDC
0
.TXT *DEAD*
DEAD:
ISZ SNDN8
LDA 0,SEND1 @
STA 0,004
LDA 1,.1
LDA 2,LPZO1
CLOSE
LDA 2,CUR
STOPP
ISZ SNDN9
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»
▶11◀E«ff»
«nul»