|
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: 6656 (0x1a00)
Types: TextFile
Names: »Q1QQ4«
└─⟦a137c8bca⟧ Bits:30001766 PL FAERD ASCII NR 9
└─ ⟦this⟧ »/Q1QQ4«
; GENEREL PROGRAMRAMME TIL ASSEMBLERPROGRAM PL 3.2.83
.TITL P1TST
.NREL
.RDXO 10
.RDX 10
.TXTM 1
.TXTN 1
PGDS: 1B0+1B5+1B15
LAB00
0
PCDS-PGDS
.TXT 'P1TST'
LAB00:
TEKST: .+1*2
.TXT &<12> DESCRIPTOR-UDSKRIFT STUDIEKREDS 24.02.83<10><10><10>&
DEAD1: DEAD
TT260: 260
FIADR: FIZON
LPADR:LPZON
DAT: -9 ; EN ADRESSE TIL GENERELLE DATA, FX FRA INPUT
-9
DATAU: DATUU*2
DATYU: DATUU*2+1
DATYY: DATUU*2
DATAD: .+1*2
0
DATUU: 0
0
TALL2: 0
TALL3: 0
MOV 1,2
LDA 0,5,2
MOV 0,0,SNR
JMP DEFAU
LDA 0,7,2
STA 0,DAT
DEFAU:
; HHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHHH
BIRTH:
LDA 0,.3
LDA 2,LPADR
OPEN
LDA 0,TEKST
OUTTEXT
OUTNL
LDA 2,.32
IGEN: LDA 3,2,2
«ff»
STA 3,DAT ; DAT INDE HOLDER NUTALLET PÅ ADR. 34 (1.PRG.DSC.)
MOV 3,3,SNR
JMP DEAD ; HVIS IKKE FLERE PRG.DSC.
KARL: LDA 0,0,3
LDA 1,DATAD
LDA 2,CUR
BINDEC
LDA 0,DATAD
LDA 2,LPADR
OUTTEXT ; 1. TAL I DECR.UDSKREVET
OUTSP
ISZ DAT
LDA 3,DAT
DSZ KONTR ; VI SKAL HAVE SKREVET DE NÆSTE ADR. INHO.UD
JMP KARL
LDA 0,DAT
MOVL 0,0 ; UDSKRIVER DECP.NAVN
LDA 2,LPADR
OUTTEXT
OUTNL
LDA 0,DAT ; FORBEREDELSE TIL NÆSTE DESCR.
LDA 2,.4
SUB 2,0
STA 2,KONTR
LDA 2,.24
MOV 0,2 ; AKK.2 FORBEREDES TIL NÆSTE DESCR.
JMP IGEN
KONTR:4
; LLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLLL
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 2,LPADR
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»
X
2640 NEXT II
2650 REM
2660 REM MATEMATISK PENDUL
2670 REM
2680 REM USIKKERHED
2690 READ FILE(1)USL,USN,UST,USMLOD,AS
2700 FOR XX=1 TO AS
2710 LET MUSTID=0; MUSTB=0; MG=0; MUSG=0; MUSALFA=0
2720 READ FILE(1)AF,A,B,MLOD
2730 PRINT USING "<12><13><10><14> M<97><116><101><109><97><116><105><115><107> P<101><110><100><117><108><15><13><10> S<101><114><105><101> 1 # (##) (<97><108><102><97> <107><111><110><115><116><97><110><116>) ",CHR(XX+96)«ff»
«nul»