|
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: 5120 (0x1400)
Types: TextFile
Names: »P4ACU«
└─⟦033e255c7⟧ Bits:30001790 SG0010 Floppy
└─ ⟦this⟧ »/P4ACU«
; LØBENDE UDSKRIFT AF 24 ADRESSER FRA INPUTPARAM /PL 11.2.83
; GENEREL PROGRAMRAMME TIL ASSEMBLERPROGRAM PL 3.2.83
.TITL P1TST
.NREL
.RDXO 16
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'P1TST'
LAB00:
TEKST: .+1*2
.TXT &<12> PL TESTPROGRAM <13><10> 2.2.83
&
DEAD1: DEAD
TT260: 260
FIADR: FIZON
LPADR:LPZON
DAT: 10390
; EN ADRESSE TIL GENERELLE DATA, FX FRA INPUT
DAT2: 0
DAT3:0
DAT4: 0
DAT5: 0
DAT6: 10390
-9
DATAU: DATUU*2
DATYU: DATUU*2+1
DATYY: DATUU*2
DATAD: .+1*2
0
DATUU: 0
0
TALL2: 0
TALL3: 0
BIRTH:
MOV 1,2
LDA 0,5,2
MOV 0,0,SNR
JMP DEFAU
LDA 0,7,2
STA 0,DAT
STA 0,DAT6
DEFAU:
; HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
LDA 0,.3
LDA 2,LPADR
OPEN
LDA 0,TEKST
OUTTEXT
OUTNL
LDA 0,DAT
STA 0,DAT3
OUTOCTAL
OUTNL
JSR RUTIN
OUTNL
IGEN:
LDA 3,.16
STA 3,DAT4
UD:
LDA 3,DAT
LDA 3,0,3
STA 3,DAT3
JSR RUTIN
ISZ DAT
DSZ DAT4
JMP UD
LDA 0,DAT6
STA 0,DAT
LDA 2,LPADR
OUTNL
JMP IGEN
RUTIN: STA 3,DAT2
LDA 0,DAT3
LDA 1,DATAD
LDA 2,CUR
BINDECIMALOMREGNING
LDA 0,DATAD
LDA 2,LPADR
OUTTEXT
OUTSP
JMP @ DAT2
JMP DEAD
; LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
DEAD:
STA 0,D0
STA 1,D1
STA 2,D2
STA 3,D3
JMP LPFIL
LDA 1,.1
LDA 2,FIAD
CLOSE
LDA 1,T27
LDA 2,LPAD
OUTCH
LDA 1,.48
OUTCH
LPFIL:
LDA 1,.1
CLOSE
LDA 2,CUR
STOPP
JMP BIR @
T27: 27
D0:0
D1:1
D2:2
D3:3
-6
T260: 260
TALLE: 0
T96: 96
T126: 126
BIR: BIRTH
FIAD: FIZON
LPAD: LPZON
BLTB: .+1*2
.TXT 1 <0>1
FIZON: .TXT 'FIL<0><0><0>' ;ZNAME
Z ;SIZE
0 ;ZMODE
1B14+1B13+1B12+1B11 ;ZKIND
65535 ;ZMASK
DEAD ;ZGIVE
1 ;ZFILE
1 ;ZBLOC
0 ;ZCONV
TTS0 ;ZBUFF
263 ;ZSIZE (72/2+SSIZE)
0 ;ZLENG
0 ;ZFIRS
TTB0*2 ;ZFIRS
TTB0*2 ;ZTOP
TTS0 ;ZUSED
512 ;ZSHAR
0 ;ZREM
.BLK ZAUX ;AUXILIARY WORDS IN ZONE
TTS0: 0 ;SOPER
0 ;SCOUN
0 ;SADDR
0 ;SSPEC
TTS0 ;SNEXT
0 ;SSTAT
TTB0*2 ;SFIRS
TTB0: .BLK 256 ;DATA BUFFER
LPZON:.TXT 'LPT<0><0><0>' ;ZNAME
Z ;SIZE
0 ;ZMODE
1 ;ZKIND
65535 ;ZMASK
DEAD ;GIVE
1 ;ZFILE
1 ;ZBLOC
0 ;ZCONV
LPS0 ;ZBUFF
117 ;ZSIZE (132/2+SSIZE)
0 ;ZFORM
0 ;ZLENG
LPB0*2 ;ZFIRS
LPB0*2 ;ZTOP
LPS0 ;ZUSED
220 ;ZSHAR
0 ;ZREM
.BLK ZAUX ;AUXILIARY WORDS IN ZONE
LPS0: 0 ;SOPER
0 ;SCOUN
0 ;SADDR
0 ;SSPEC
LPS0 ;SNEXT
0 ;SSTAT
LPB0*2 ;SFIRS
LPB0: .BLK 110 ;DATA BUFFER
; BUFFERE DER ER NØDV NÅR FX. DOMUS-FIL-FUNKTIONER BRUGES!
BUFF1: .+0
.-1
BUFF2
10
PCDS
0
0
0
0
0
BUFF2: .+0
.-1
0
10
PCDS
0
0
0
0
0
; PROCES-DESCRIPTOR:
PCDS: .+0
.-1
0
0
.TXT 'PLTST'
.+0
.-1
BUFF1
PGDS
0
0
33
DEAD
0
0
0
0
BIRTH*2
0
1
2
3
4
5
6
7
8
9
10
.END PCDS
«ff»
«nul»