|
DataMuseum.dkPresents historical artifacts from the history of: MIKADOS |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about MIKADOS Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 15264 (0x3ba0)
Types: TextFile
Notes: Mikados_K
Names: »BAS11.K«
└─⟦9104a212b⟧ Bits:30004703 Regn + Debug
└─⟦this⟧ »BAS11.K«
NLIST ;SYMBOLSKE KONSTANTER FOR COMAL - 790710
;***************************************************************************
;
;
; III DDD CCC OO M M A L
; I D D C O O M M M M A A L
; I D D C O O M M M AAAAA L
; III DDD CCC OO M M A A LLLLL
;
;
; TOM ØSTERBY, INSTITUTTET FOR DATATEKNIK
;
;********************************************************************
;* BAS11 - DEFINITION AF SYMBOLSKE KONSTANTER
;********************************************************************
;
;
;
;*********************************************************************
; STYRING AF BETINGET ASSEMBLERING
;*********************************************************************
;
ONN: EQU 1
OFF: EQU 0
NON: EQU 1
;
MULTI: EQU OFF ;VERSION FOR FLERE BRUGERE
FUERR: EQU ONN ;FEJLMEDDELELSER SOM TEKST (ONN), NUMRE (OFF)
DEDIC: EQU ONN ;DEDIKERET SYSTEM
SOROC: EQU ONN ;VERSION FOR SOROC DATASKÆRM
TEC: EQU OFF ;VERSION FOR MICRO TEC DATASKÆRM
TEC70: EQU OFF ;VERSION FOR TEC MODEL 70
;
;
;*************************************************************
; DIVERSE SYSTEMPARAMETRE
;*************************************************************
;
PREC: EQU 4
ANCI: EQU 6 ; ANTAL AF CIFRE
ILLEG: EQU #31
ANBL: EQU #2 ; ANTAL BLANKE TIL IND/UDRYKNING
MAXI: EQU #16 ;MAKSIMALT ANTAL TEGN I IDENTIFIKATORER
KRMAX: EQU #20 ;MAKSIMALT ANTAL LINIER INDEN REGNEKREDSEN
; SKAL FRIGIVES
MAXBF: EQU #79 ;MAKSIMALT ANTAL TEGN I UDDATABUFFER
;
;
;
;
;*************************************************************
; DEFINITION AF KONTROLKODER FOR DATASKÆRM
;*************************************************************
;
LF: EQU 0A
CR: EQU 0D
BELL: EQU 07
;
;
IF TEC
CNTRL: EQU 1B ;ESCAPE CHARACTER
ESCAP: EQU 0
HOME: EQU 1E
EEOL: EQU 0B ;ERASE TO END OF LINE
EEOS: EQU 05 ;ERASE TO END OF PAGE
UPC: EQU 0B ;CURSOR UP
DOWNC: EQU 0A ;CURSOR DOWN
ENDIF
IF SOROC
CNTRL: EQU 1B
ESCAP: EQU 7F
HOME: EQU 1E
EEOL: EQU 'T'
EEOS: EQU '*'
UPC: EQU 0B
DOWNC: EQU 0A
ENDIF
IF TEC70
CNTRL: EQU 1B
ESCAP: EQU 1B
HOME: EQU 08
EEOL: EQU 0B
EEOS: EQU 05
UPC: EQU 01
DOWNC: EQU 02
ENDIF
;
;
;
;**************************************************************************
;
; DIREKTE ADRESSERBARE ARBEJDSCELLER
;
;**************************************************************************
;
;
MSTRT: EQU 6800
;
KTPX: EQU MSTRT ; SÆTNINGSNUMMER UNDER UDFØRELSE
KTPY: EQU KTPX+2 ; 1. SÆTNINGSNUMMER UDEN FOR TILLADTINTERVA
INDP: EQU KTPY+2 ; INDEHOLDER PIL VED SYNTAKSANALYSE OG UDPE
UDPI: EQU INDP+2 ; ANGIVER LAGRINGSADRESSE FOR UDSKRIFT
FLAGS: EQU UDPI+#2 ; DIVERSE FLAG (SE NEDENFOR)
INVT: EQU FLAGS+1 ; INDEHOLDER STARTREFERENCE TIL VARIABELTAB
INIB: EQU INVT+2 ; INDEHOLDER STARTREFERENCE TIL INDBUFFER
INPS: EQU INIB ; INDEHOLDER STARTREFERENCE TIL PROGRAMSTAK
INUB: EQU INIB+2 ; INDEHOLDER STARTREFERENCE TIL UDBUFFER
INPR: EQU INUB+2 ; INDEHOLDER STARTREFERENCE TIL PROGRAMOMRÅ
FGST: EQU INPR+2 ; ANTAL I PROGRAMSTAK, 1 BYTE
FGSP: EQU FGST+1 ; PIL TIL PROGRAMSTAK
TEGN: EQU FGSP+2 ; TEGN INDLÆST
SKTT: EQU TEGN ; TEGN TIL UDSKRIVNING
BLAN: EQU SKTT+1 ; ANTAL BLANKE I INDRYKNING VED PRINT
CSEMA: EQU BLAN+1 ; ADRESSE PÅ KONSOLSEMAFOR
LSEMA: EQU CSEMA+2 ; ADRESSE PÅ LISTSEMAFOR
USEMA: EQU LSEMA+2 ; ADRESSE PÅ UDDATASEMAFOR
REGIN: EQU USEMA+2 ; NUMMER PÅ AKTUEL HOVEDLAGERREGION
FILSY: EQU REGIN+1 ; PIL TIL AKTIVE FKB I FKB-KÆDE
FKBFR: EQU FILSY+2 ; PIL TIL FØRSTE FKB I FKB KÆDE
PARA: EQU FKBFR+2 ; FILNAVN
DRIVX: EQU PARA+8 ; PLADELAGERBETEGNELSE
TALB: EQU DRIVX+2 ; TALBUFFER
XP10: EQU TALB+#21 ; 10-EXPONENT
PUPO: EQU XP10+1
PUEK: EQU PUPO+1 ; PUNKTUM EKSISTERER
OPSP: EQU PUEK+1 ; OPERANDSTAKPOINTER
OPST: EQU OPSP+2 ; OPERANDSTAKTÆLLER
OTSP: EQU OPST+1 ; OPERATORSTAKPOINTER
OTST: EQU OTSP+2 ; OPERATORSTAKTÆLLER
PACK: EQU OTST+1 ; = 1 => PAKKET UDSKRIFT
RNDV: EQU PACK+1 ; SYSTEMVARIABEL FOR PSEUDORANDOM
USTA: EQU RNDV+2 ; BRUGERAREALETS STATUS
PSTA: EQU USTA+1 ; BRUGERPROGRAMMETS STATUS
CHST: EQU PSTA+1 ; REFERENCE TIL FØRSTE PROGRAMSÆTNING
RFCH: EQU CHST+2 ; REFERENCE TIL FØRSTE I HOPKÆDE
SEQN: EQU RFCH+2
SQRE: EQU SEQN+2 ; REFERENCE TIL SÆTNING UNDER UDFØRELSE
NSQR: EQU SQRE+2 ; REFERENCE TIL NÆSTE SÆTNING
RFLA: EQU NSQR+2 ; REFERENCE TIL SIDSTE I HOPKÆDE
DACS: EQU RFLA+2 ; DATAKÆDENS STARTREFERENCE
DACD: EQU DACS+2 ; REFERENCE INDEN DEN ENKELTE DATASÆT.
DACW: EQU DACD+2 ; DATAKÆDENS ARBEJDSREFERENCE
DACF: EQU DACW+2 ; DATAKÆDENS SLUTREF.
DATP: EQU DACF+2 ; POINTER TIL FØRSTE LEDIGE I DATAAREAL
GDPO: EQU DATP+2 ;
PRGP: EQU GDPO+2 ; POINTER FOR PROGRAMLAGRING
CASTÆ: EQU PRGP+2 ; CASE TÆLLER.
LACAV: EQU CASTÆ+1 ; LAGRING AF PIL TIL RESULTAT I CASE
KRTÆL: EQU LACAV+4 ; TÆLLER FOR RESERVATION AF REGNEKREDS
DIVER: EQU KRTÆL+1 ; 10 OKTETTER RESERVERET FOR SENERE
FINI: EQU DIVER+#10 ; SLUT PÅ DIREKTE ADRESSERBART OMRÅDE
;
;
;
; DEFINITION AF DIVERSE FLAG DER LIGGER I 'FLAGS'
;
EDITF: EQU 1 ; EDITERINGSTILSTAND
AUTOF: EQU 2 ; AUTO MODE
PRNTF: EQU 4 ; PRINTER RESERVERET
CONTF: EQU 10 ; CONTINUE KOMMANDO LOVLIG
;
;
;
;*************************************************************
;FILSYSTEM KONSTANTER
;*************************************************************
;
BUFSE: EQU #01 ;DISCBUFFER N:= 1
NÆFKB: EQU #00 ;KÆDE TIL NÆSTE FKB
DIRSK: EQU #02 ;DIREKT/SEKVENTIEL FLAG
FKBST: EQU #03 ;FIL STATUS
FKBBZ: EQU #04 ;FKB OPTAGET FLAG
PAETI: EQU #05 ;PLADELAGER ETIKETTE NAVN
DCBDI: EQU PAETI+8 ;ANTAL OKTETTER FRA START AF FKB TIL DKB
FINIS: EQU 130+DCBDI ;LÆNGDE AF EN FKB
;
;
;
;**************************************************************************
;
; ARBEJDSOMRÅDER, HVORTIL DER REFERERES VIA PILE
;
;
; FØLGENDE OMRÅDER ER DEFINERET
;
; OMRÅDENAVN LÆNGDE PIL TIL OMRÅDE
;
; 1. OPERANDSTAK STKL1 OPSP
; 2. OPERATORSTAK STKL2 OTSP
; 3. PROGRAMSTAK STSA INPS (*)
; 4. INDDATABUFFER BUFLI INIB
; 5. UDDATABUFFER BUFLU INUB
; 6. PROGRAMOMRÅDE INPR
; 7. DATAOMRÅDE INVT (*)
; 8. VARIABELTABEL INVTL INVT
;
; PILENE MÆRKET MED (*) UDPEGER DEN FØRSTE OKTET EFTER DET
; PÅGÆLDENDE ARBEJDSOMRÅDE
;
; DEN SAMLEDE LÆNGDE AF PROGRAM- OG DATAOMRÅDET ER 'PRLEN'
;
;***************************************************************************
;
STKL1: EQU #80 ;BEREGNES SOM PREC*#20
STKL2: EQU #20
STSA: EQU #179
BUFLI: EQU #80
BUFLU: EQU #110
PRLEN: EQU #5300
INVTL: EQU #58
;
;
;*****************************************************************
;* SYMBOLSKE VÆRDIER FOR TERMINALE SYMBOLER.
;*****************************************************************
;
GOTO: EQU #129
IF: EQU #130
FOR: EQU #131
NEXT: EQU #132
ON: EQU #133
LET: EQU #134
DIM: EQU #135
DEF: EQU #136
REM: EQU #137
GOSU: EQU #138
RETU: EQU #139
END: EQU #140
STOP: EQU #141
DATA: EQU #142
READD: EQU #143
REST: EQU #144
INPU: EQU #145
PRIN: EQU #146
WHIL: EQU #147
ENDW: EQU #148
LOOP: EQU #149
ENDL: EQU #150
REPE: EQU #151
UNTI: EQU #152
EXITT: EQU #153
ELSE: EQU #154
ENDI: EQU #155
IFCL: EQU #156
EXEC: EQU #157
PROC: EQU #158
ENDP: EQU #159
CLEA: EQU #160
CURSO: EQU #161
CASE: EQU #162
WHEN: EQU #163
ECASE: EQU #164
OUTP: EQU #165
RAND: EQU #166
OPN: EQU #167
CLSE: EQU #168
GET: EQU #169
PUT: EQU #170
WEOF: EQU #171
CHN: EQU #172
CLL: EQU #173
CREA: EQU #174
IND: EQU CREA+1
OUTD: EQU IND+1
EDTI: EQU OUTD+1
;
THEN: EQU #182
TO: EQU THEN+1
STEP: EQU THEN+2
USIN: EQU THEN+3
OF: EQU THEN+4
DOK: EQU THEN+5
;
SIN: EQU #190
COS: EQU #191
TAN: EQU #192
ATN: EQU #193
EXP: EQU #194
LOG: EQU #195
ABS: EQU #196
SQR: EQU #197
INT: EQU #198
RND: EQU #199
SGN: EQU #200
ASIN: EQU #201
ACOS: EQU #202
LN: EQU #203
LEN: EQU #204
ORD: EQU #205
STATS: EQU #206
CHR: EQU #207
TAB: EQU #210
FN: EQU #211
NOT: EQU #217
AND: EQU #218
OR: EQU #219
UNEQ: EQU #225
LESE: EQU #223
BIGE: EQU #224
EQUA: EQU #220
BIG: EQU #222
LESS: EQU #221
PLUS: EQU #226
MINU: EQU #227
POW: EQU #230
MUL: EQU #228
DIV: EQU #229
DIVH: EQU #231
MOD: EQU #232
MONI: EQU #233
SEMC: EQU #235
COMM: EQU #236
VPAR: EQU #237
HPAR: EQU #238
DOLL: EQU #239
COLO: EQU #240
KONK: EQU #241
NUKNS: EQU #254
;
PUNK: EQU #46 ; '.' I ASCII
EXPC: EQU #37 ; 'PROCENTTEGN' I ASCII
NUNC: EQU #35 ; '#' I ASCII
;
;******************************************************************
;* SYMBOLSKE VÆRDIER FOR VARIABELTYPER
;******************************************************************
;
SIRV: EQU #32 ; SIMPEL REEL VARIABEL
INRV: EQU #64 ; INDICERET REEL VARIABEL
SISV: EQU #96 ; SIMPEL STRENGVARIABEL
FUNK: EQU #160 ; FUNKTION (BRUGERDEFINERET)
FOPA: EQU #192 ; FORMEL PARAMETER
IPRO: EQU #128 ; PROCEDURE
FOPP: EQU #48 ; FORMEL PROCEDURE PARAMETER
REVA: EQU 8 ; REEL VÆRDI
STCO: EQU #16 ; DELSTRENG
;*************************************************************
;
;SYMBOLISKE ADRESSE OFFSET TIL MASKIN KALD HJÆLPE RUTINER
;
;*************************************************************
;
FIXFL: EQU 0 ;FIXED TIL FLOAT
FLFIX: EQU 1 ;FLOAT TIL FIXED
GETNM: EQU 2 ;HENT NUMERISKE
PUTNM: EQU 3 ;GEM NUMERISKE
GETST: EQU 4 ;HENT STRENG
PUTST: EQU 5 ;GEM STRENG
DELIM: EQU 0FF ;SYNTACTIC DELIMATOR
;*************************************************************
;-----------------------------------------------------------------
; KODER FOR OPERATIONER PÅ REGNEKREDSEN
;-----------------------------------------------------------------
KSIN: EQU 2 ;
KCOS: EQU 3 ;
KTAN: EQU 4 ;
KATA: EQU 7 ;
KASI: EQU 5 ;
KACO: EQU 6 ;
KEXP: EQU #10 ;
KLOG: EQU 8 ;
KSQR: EQU 1 ;
KLN: EQU 9 ;
KPWR: EQU #11 ;
KADD: EQU #16 ;
KSUB: EQU #17 ;
KMUL: EQU #18 ;
KDIV: EQU #19 ;
FIXD: EQU #30;
FLTD: EQU #28 ;
KIMU: EQU #46 ;
KIAD: EQU #44 ;
KISU: EQU #45 ;
KIDI: EQU #47
FIXS: EQU #31 ;
PTOD: EQU #55 ;
POPF: EQU #24 ;
CHSF: EQU #21 ;
PTOF: EQU #23
PTOS: EQU #119
FLTS: EQU #29
XCHF: EQU #25
;
RKDA: EQU 0E8 ; ADRESSE FOR DATA TIL REGNEKREDSEN
RKOP: EQU 0E9 ; ADRESSE FOR OPERATIONSKODE/STATUS FOR
; REGNEKREDSEN
LIST
0x0000…0041 Line {l1=0x3f, l2=» NLIST ;SYMBOLSKE KONSTANTER FOR COMAL - 790710«, l3=0x3f}
0x0041…008f Line {l1=0x4c, l2=»;***************************************************************************«, l3=0x4c}
0x008f…0092 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x0095…00d7 Line {l1=0x40, l2=»; III DDD CCC OO M M A L«, l3=0x40}
0x00d7…0119 Line {l1=0x40, l2=»; I D D C O O M M M M A A L«, l3=0x40}
0x0119…015b Line {l1=0x40, l2=»; I D D C O O M M M AAAAA L«, l3=0x40}
0x015b…01a1 Line {l1=0x44, l2=»; III DDD CCC OO M M A A LLLLL«, l3=0x44}
0x01a1…01a4 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x01a7…01d2 Line {l1=0x29, l2=»; TOM ØSTERBY, INSTITUTTET FOR DATATEKNIK«, l3=0x29}
0x01d2…01d5 Line {l1=0x01, l2=»;«, l3=0x01}
0x01d5…021c Line {l1=0x45, l2=»;********************************************************************«, l3=0x45}
0x021c…0253 Line {l1=0x35, l2=»;* BAS11 - DEFINITION AF SYMBOLSKE KONSTANTER«, l3=0x35}
0x0253…029a Line {l1=0x45, l2=»;********************************************************************«, l3=0x45}
0x029a…029d Line {l1=0x01, l2=»;«, l3=0x01}
[…0x2…]
0x02a3…02eb Line {l1=0x46, l2=»;*********************************************************************«, l3=0x46}
0x02eb…030f Line {l1=0x22, l2=»; STYRING AF BETINGET ASSEMBLERING«, l3=0x22}
0x030f…0357 Line {l1=0x46, l2=»;*********************************************************************«, l3=0x46}
0x0357…035a Line {l1=0x01, l2=»;«, l3=0x01}
0x035a…036c Line {l1=0x10, l2=»ONN: EQU 1«, l3=0x10}
0x036c…037e Line {l1=0x10, l2=»OFF: EQU 0«, l3=0x10}
0x037e…0390 Line {l1=0x10, l2=»NON: EQU 1«, l3=0x10}
0x0390…0393 Line {l1=0x01, l2=»;«, l3=0x01}
0x0393…03c6 Line {l1=0x31, l2=»MULTI: EQU OFF ;VERSION FOR FLERE BRUGERE«, l3=0x31}
0x03c6…040c Line {l1=0x44, l2=»FUERR: EQU ONN ;FEJLMEDDELELSER SOM TEKST (ONN), NUMRE (OFF)«, l3=0x44}
0x040c…0436 Line {l1=0x28, l2=»DEDIC: EQU ONN ;DEDIKERET SYSTEM«, l3=0x28}
0x0436…046b Line {l1=0x33, l2=»SOROC: EQU ONN ;VERSION FOR SOROC DATASKÆRM«, l3=0x33}
0x046b…04a4 Line {l1=0x37, l2=»TEC: EQU OFF ;VERSION FOR MICRO TEC DATASKÆRM«, l3=0x37}
0x04a4…04d6 Line {l1=0x30, l2=»TEC70: EQU OFF ;VERSION FOR TEC MODEL 70«, l3=0x30}
0x04d6…04d9 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x04dc…051c Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x051c…0538 Line {l1=0x1a, l2=»; DIVERSE SYSTEMPARAMETRE«, l3=0x1a}
0x0538…0578 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x0578…057b Line {l1=0x01, l2=»;«, l3=0x01}
0x057b…058f Line {l1=0x12, l2=»PREC: EQU 4«, l3=0x12}
0x058f…05b7 Line {l1=0x26, l2=»ANCI: EQU 6 ; ANTAL AF CIFRE«, l3=0x26}
0x05b7…05cb Line {l1=0x12, l2=»ILLEG: EQU #31«, l3=0x12}
0x05cb…0604 Line {l1=0x37, l2=»ANBL: EQU #2 ; ANTAL BLANKE TIL IND/UDRYKNING«, l3=0x37}
0x0604…0644 Line {l1=0x3e, l2=»MAXI: EQU #16 ;MAKSIMALT ANTAL TEGN I IDENTIFIKATORER«, l3=0x3e}
0x0644…0687 Line {l1=0x41, l2=»KRMAX: EQU #20 ;MAKSIMALT ANTAL LINIER INDEN REGNEKREDSEN«, l3=0x41}
0x0687…06af Line {l1=0x26, l2=» ; SKAL FRIGIVES«, l3=0x26}
0x06af…06ec Line {l1=0x3b, l2=»MAXBF: EQU #79 ;MAKSIMALT ANTAL TEGN I UDDATABUFFER«, l3=0x3b}
0x06ec…06ef Line {l1=0x01, l2=»;«, l3=0x01}
[…0x3…]
0x06f8…0738 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x0738…0764 Line {l1=0x2a, l2=»; DEFINITION AF KONTROLKODER FOR DATASKÆRM«, l3=0x2a}
0x0764…07a4 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x07a4…07a7 Line {l1=0x01, l2=»;«, l3=0x01}
0x07a7…07ba Line {l1=0x11, l2=»LF: EQU 0A«, l3=0x11}
0x07ba…07cd Line {l1=0x11, l2=»CR: EQU 0D«, l3=0x11}
0x07cd…07e0 Line {l1=0x11, l2=»BELL: EQU 07«, l3=0x11}
0x07e0…07e3 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x07e6…07fa Line {l1=0x12, l2=» IF TEC«, l3=0x12}
0x07fa…0824 Line {l1=0x28, l2=»CNTRL: EQU 1B ;ESCAPE CHARACTER«, l3=0x28}
0x0824…0836 Line {l1=0x10, l2=»ESCAP: EQU 0«, l3=0x10}
0x0836…0849 Line {l1=0x11, l2=»HOME: EQU 1E«, l3=0x11}
0x0849…0877 Line {l1=0x2c, l2=»EEOL: EQU 0B ;ERASE TO END OF LINE«, l3=0x2c}
0x0877…08a5 Line {l1=0x2c, l2=»EEOS: EQU 05 ;ERASE TO END OF PAGE«, l3=0x2c}
0x08a5…08c8 Line {l1=0x21, l2=»UPC: EQU 0B ;CURSOR UP«, l3=0x21}
0x08c8…08ed Line {l1=0x23, l2=»DOWNC: EQU 0A ;CURSOR DOWN«, l3=0x23}
0x08ed…08fb Line {l1=0x0c, l2=» ENDIF«, l3=0x0c}
0x08fb…0911 Line {l1=0x14, l2=» IF SOROC«, l3=0x14}
0x0911…0924 Line {l1=0x11, l2=»CNTRL: EQU 1B«, l3=0x11}
0x0924…0937 Line {l1=0x11, l2=»ESCAP: EQU 7F«, l3=0x11}
0x0937…094a Line {l1=0x11, l2=»HOME: EQU 1E«, l3=0x11}
0x094a…095e Line {l1=0x12, l2=»EEOL: EQU 'T'«, l3=0x12}
0x095e…0972 Line {l1=0x12, l2=»EEOS: EQU '*'«, l3=0x12}
0x0972…0985 Line {l1=0x11, l2=»UPC: EQU 0B«, l3=0x11}
0x0985…0998 Line {l1=0x11, l2=»DOWNC: EQU 0A«, l3=0x11}
0x0998…09a6 Line {l1=0x0c, l2=» ENDIF«, l3=0x0c}
0x09a6…09bc Line {l1=0x14, l2=» IF TEC70«, l3=0x14}
0x09bc…09cf Line {l1=0x11, l2=»CNTRL: EQU 1B«, l3=0x11}
0x09cf…09e2 Line {l1=0x11, l2=»ESCAP: EQU 1B«, l3=0x11}
0x09e2…09f5 Line {l1=0x11, l2=»HOME: EQU 08«, l3=0x11}
0x09f5…0a08 Line {l1=0x11, l2=»EEOL: EQU 0B«, l3=0x11}
0x0a08…0a1b Line {l1=0x11, l2=»EEOS: EQU 05«, l3=0x11}
0x0a1b…0a2e Line {l1=0x11, l2=»UPC: EQU 01«, l3=0x11}
0x0a2e…0a41 Line {l1=0x11, l2=»DOWNC: EQU 02«, l3=0x11}
0x0a41…0a4f Line {l1=0x0c, l2=» ENDIF«, l3=0x0c}
0x0a4f…0a52 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x2…]
0x0a58…0aa5 Line {l1=0x4b, l2=»;**************************************************************************«, l3=0x4b}
0x0aa5…0aa8 Line {l1=0x01, l2=»;«, l3=0x01}
0x0aa8…0adc Line {l1=0x32, l2=»; DIREKTE ADRESSERBARE ARBEJDSCELLER«, l3=0x32}
0x0adc…0adf Line {l1=0x01, l2=»;«, l3=0x01}
0x0adf…0b2c Line {l1=0x4b, l2=»;**************************************************************************«, l3=0x4b}
0x0b2c…0b2f Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x0b32…0b47 Line {l1=0x13, l2=»MSTRT: EQU 6800«, l3=0x13}
0x0b47…0b4a Line {l1=0x01, l2=»;«, l3=0x01}
0x0b4a…0b84 Line {l1=0x38, l2=»KTPX: EQU MSTRT ; SÆTNINGSNUMMER UNDER UDFØRELSE«, l3=0x38}
0x0b84…0bc9 Line {l1=0x43, l2=»KTPY: EQU KTPX+2 ; 1. SÆTNINGSNUMMER UDEN FOR TILLADTINTERVA«, l3=0x43}
0x0bc9…0c0e Line {l1=0x43, l2=»INDP: EQU KTPY+2 ; INDEHOLDER PIL VED SYNTAKSANALYSE OG UDPE«, l3=0x43}
0x0c0e…0c4e Line {l1=0x3e, l2=»UDPI: EQU INDP+2 ; ANGIVER LAGRINGSADRESSE FOR UDSKRIFT«, l3=0x3e}
0x0c4e…0c84 Line {l1=0x34, l2=»FLAGS: EQU UDPI+#2 ; DIVERSE FLAG (SE NEDENFOR)«, l3=0x34}
0x0c84…0cc9 Line {l1=0x43, l2=»INVT: EQU FLAGS+1 ; INDEHOLDER STARTREFERENCE TIL VARIABELTAB«, l3=0x43}
0x0cc9…0d0c Line {l1=0x41, l2=»INIB: EQU INVT+2 ; INDEHOLDER STARTREFERENCE TIL INDBUFFER«, l3=0x41}
0x0d0c…0d51 Line {l1=0x43, l2=»INPS: EQU INIB ; INDEHOLDER STARTREFERENCE TIL PROGRAMSTAK«, l3=0x43}
0x0d51…0d93 Line {l1=0x40, l2=»INUB: EQU INIB+2 ; INDEHOLDER STARTREFERENCE TIL UDBUFFER«, l3=0x40}
0x0d93…0dd8 Line {l1=0x43, l2=»INPR: EQU INUB+2 ; INDEHOLDER STARTREFERENCE TIL PROGRAMOMRÅ«, l3=0x43}
0x0dd8…0e0f Line {l1=0x35, l2=»FGST: EQU INPR+2 ; ANTAL I PROGRAMSTAK, 1 BYTE«, l3=0x35}
0x0e0f…0e3e Line {l1=0x2d, l2=»FGSP: EQU FGST+1 ; PIL TIL PROGRAMSTAK«, l3=0x2d}
0x0e3e…0e66 Line {l1=0x26, l2=»TEGN: EQU FGSP+2 ; TEGN INDLÆST«, l3=0x26}
0x0e66…0e96 Line {l1=0x2e, l2=»SKTT: EQU TEGN ; TEGN TIL UDSKRIVNING«, l3=0x2e}
0x0e96…0ed5 Line {l1=0x3d, l2=»BLAN: EQU SKTT+1 ; ANTAL BLANKE I INDRYKNING VED PRINT«, l3=0x3d}
0x0ed5…0f09 Line {l1=0x32, l2=»CSEMA: EQU BLAN+1 ; ADRESSE PÅ KONSOLSEMAFOR«, l3=0x32}
0x0f09…0f3b Line {l1=0x30, l2=»LSEMA: EQU CSEMA+2 ; ADRESSE PÅ LISTSEMAFOR«, l3=0x30}
0x0f3b…0f6f Line {l1=0x32, l2=»USEMA: EQU LSEMA+2 ; ADRESSE PÅ UDDATASEMAFOR«, l3=0x32}
0x0f6f…0fac Line {l1=0x3b, l2=»REGIN: EQU USEMA+2 ; NUMMER PÅ AKTUEL HOVEDLAGERREGION«, l3=0x3b}
0x0fac…0fe5 Line {l1=0x37, l2=»FILSY: EQU REGIN+1 ; PIL TIL AKTIVE FKB I FKB-KÆDE«, l3=0x37}
0x0fe5…101e Line {l1=0x37, l2=»FKBFR: EQU FILSY+2 ; PIL TIL FØRSTE FKB I FKB KÆDE«, l3=0x37}
0x101e…1041 Line {l1=0x21, l2=»PARA: EQU FKBFR+2 ; FILNAVN«, l3=0x21}
0x1041…1071 Line {l1=0x2e, l2=»DRIVX: EQU PARA+8 ; PLADELAGERBETEGNELSE«, l3=0x2e}
0x1071…1096 Line {l1=0x23, l2=»TALB: EQU DRIVX+2 ; TALBUFFER«, l3=0x23}
0x1096…10bd Line {l1=0x25, l2=»XP10: EQU TALB+#21 ; 10-EXPONENT«, l3=0x25}
0x10bd…10d4 Line {l1=0x15, l2=»PUPO: EQU XP10+1«, l3=0x15}
0x10d4…1102 Line {l1=0x2c, l2=»PUEK: EQU PUPO+1 ; PUNKTUM EKSISTERER«, l3=0x2c}
0x1102…1130 Line {l1=0x2c, l2=»OPSP: EQU PUEK+1 ; OPERANDSTAKPOINTER«, l3=0x2c}
0x1130…115d Line {l1=0x2b, l2=»OPST: EQU OPSP+2 ; OPERANDSTAKTÆLLER«, l3=0x2b}
0x115d…118c Line {l1=0x2d, l2=»OTSP: EQU OPST+1 ; OPERATORSTAKPOINTER«, l3=0x2d}
0x118c…11ba Line {l1=0x2c, l2=»OTST: EQU OTSP+2 ; OPERATORSTAKTÆLLER«, l3=0x2c}
0x11ba…11ec Line {l1=0x30, l2=»PACK: EQU OTST+1 ; = 1 => PAKKET UDSKRIFT«, l3=0x30}
0x11ec…1227 Line {l1=0x39, l2=»RNDV: EQU PACK+1 ; SYSTEMVARIABEL FOR PSEUDORANDOM«, l3=0x39}
0x1227…1258 Line {l1=0x2f, l2=»USTA: EQU RNDV+2 ; BRUGERAREALETS STATUS«, l3=0x2f}
0x1258…128c Line {l1=0x32, l2=»PSTA: EQU USTA+1 ; BRUGERPROGRAMMETS STATUS«, l3=0x32}
0x128c…12cb Line {l1=0x3d, l2=»CHST: EQU PSTA+1 ; REFERENCE TIL FØRSTE PROGRAMSÆTNING«, l3=0x3d}
0x12cb…1305 Line {l1=0x38, l2=»RFCH: EQU CHST+2 ; REFERENCE TIL FØRSTE I HOPKÆDE«, l3=0x38}
0x1305…131b Line {l1=0x14, l2=»SEQN: EQU RFCH+2«, l3=0x14}
0x131b…135c Line {l1=0x3f, l2=»SQRE: EQU SEQN+2 ; REFERENCE TIL SÆTNING UNDER UDFØRELSE«, l3=0x3f}
0x135c…1393 Line {l1=0x35, l2=»NSQR: EQU SQRE+2 ; REFERENCE TIL NÆSTE SÆTNING«, l3=0x35}
0x1393…13cd Line {l1=0x38, l2=»RFLA: EQU NSQR+2 ; REFERENCE TIL SIDSTE I HOPKÆDE«, l3=0x38}
0x13cd…1402 Line {l1=0x33, l2=»DACS: EQU RFLA+2 ; DATAKÆDENS STARTREFERENCE«, l3=0x33}
0x1402…1442 Line {l1=0x3e, l2=»DACD: EQU DACS+2 ; REFERENCE INDEN DEN ENKELTE DATASÆT.«, l3=0x3e}
0x1442…1479 Line {l1=0x35, l2=»DACW: EQU DACD+2 ; DATAKÆDENS ARBEJDSREFERENCE«, l3=0x35}
0x1479…14a8 Line {l1=0x2d, l2=»DACF: EQU DACW+2 ; DATAKÆDENS SLUTREF.«, l3=0x2d}
0x14a8…14e9 Line {l1=0x3f, l2=»DATP: EQU DACF+2 ; POINTER TIL FØRSTE LEDIGE I DATAAREAL«, l3=0x3f}
0x14e9…1504 Line {l1=0x19, l2=»GDPO: EQU DATP+2 ;«, l3=0x19}
0x1504…153a Line {l1=0x34, l2=»PRGP: EQU GDPO+2 ; POINTER FOR PROGRAMLAGRING«, l3=0x34}
0x153a…1562 Line {l1=0x26, l2=»CASTÆ: EQU PRGP+2 ; CASE TÆLLER.«, l3=0x26}
0x1562…15a0 Line {l1=0x3c, l2=»LACAV: EQU CASTÆ+1 ; LAGRING AF PIL TIL RESULTAT I CASE«, l3=0x3c}
0x15a0…15e0 Line {l1=0x3e, l2=»KRTÆL: EQU LACAV+4 ; TÆLLER FOR RESERVATION AF REGNEKREDS«, l3=0x3e}
0x15e0…161d Line {l1=0x3b, l2=»DIVER: EQU KRTÆL+1 ; 10 OKTETTER RESERVERET FOR SENERE«, l3=0x3b}
0x161d…165c Line {l1=0x3d, l2=»FINI: EQU DIVER+#10 ; SLUT PÅ DIREKTE ADRESSERBART OMRÅDE«, l3=0x3d}
0x165c…165f Line {l1=0x01, l2=»;«, l3=0x01}
[…0x2…]
0x1665…1698 Line {l1=0x31, l2=»; DEFINITION AF DIVERSE FLAG DER LIGGER I 'FLAGS'«, l3=0x31}
0x1698…169b Line {l1=0x01, l2=»;«, l3=0x01}
0x169b…16c8 Line {l1=0x2b, l2=»EDITF: EQU 1 ; EDITERINGSTILSTAND«, l3=0x2b}
0x16c8…16ec Line {l1=0x22, l2=»AUTOF: EQU 2 ; AUTO MODE«, l3=0x22}
0x16ec…1719 Line {l1=0x2b, l2=»PRNTF: EQU 4 ; PRINTER RESERVERET«, l3=0x2b}
0x1719…174c Line {l1=0x31, l2=»CONTF: EQU 10 ; CONTINUE KOMMANDO LOVLIG«, l3=0x31}
0x174c…174f Line {l1=0x01, l2=»;«, l3=0x01}
[…0x2…]
0x1755…1795 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x1795…17ac Line {l1=0x15, l2=»;FILSYSTEM KONSTANTER«, l3=0x15}
0x17ac…17ec Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x17ec…17ef Line {l1=0x01, l2=»;«, l3=0x01}
0x17ef…1819 Line {l1=0x28, l2=»BUFSE: EQU #01 ;DISCBUFFER N:= 1«, l3=0x28}
0x1819…1845 Line {l1=0x2a, l2=»NÆFKB: EQU #00 ;KÆDE TIL NÆSTE FKB«, l3=0x2a}
0x1845…1875 Line {l1=0x2e, l2=»DIRSK: EQU #02 ;DIREKT/SEKVENTIEL FLAG«, l3=0x2e}
0x1875…1899 Line {l1=0x22, l2=»FKBST: EQU #03 ;FIL STATUS«, l3=0x22}
0x1899…18c3 Line {l1=0x28, l2=»FKBBZ: EQU #04 ;FKB OPTAGET FLAG«, l3=0x28}
0x18c3…18f5 Line {l1=0x30, l2=»PAETI: EQU #05 ;PLADELAGER ETIKETTE NAVN«, l3=0x30}
0x18f5…1936 Line {l1=0x3f, l2=»DCBDI: EQU PAETI+8 ;ANTAL OKTETTER FRA START AF FKB TIL DKB«, l3=0x3f}
0x1936…1962 Line {l1=0x2a, l2=»FINIS: EQU 130+DCBDI ;LÆNGDE AF EN FKB«, l3=0x2a}
0x1962…1965 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x2…]
0x196b…19b8 Line {l1=0x4b, l2=»;**************************************************************************«, l3=0x4b}
0x19b8…19bb Line {l1=0x01, l2=»;«, l3=0x01}
0x19bb…19f9 Line {l1=0x3c, l2=»; ARBEJDSOMRÅDER, HVORTIL DER REFERERES VIA PILE«, l3=0x3c}
0x19f9…19fc Line {l1=0x01, l2=»;«, l3=0x01}
0x19fc…1a0c Line {l1=0x0e, l2=»; «, l3=0x0e}
0x1a0c…1a2d Line {l1=0x1f, l2=»; FØLGENDE OMRÅDER ER DEFINERET«, l3=0x1f}
0x1a2d…1a30 Line {l1=0x01, l2=»;«, l3=0x01}
0x1a30…1a72 Line {l1=0x40, l2=»; OMRÅDENAVN LÆNGDE PIL TIL OMRÅDE«, l3=0x40}
0x1a72…1a75 Line {l1=0x01, l2=»;«, l3=0x01}
0x1a75…1ab0 Line {l1=0x39, l2=»; 1. OPERANDSTAK STKL1 OPSP«, l3=0x39}
0x1ab0…1aeb Line {l1=0x39, l2=»; 2. OPERATORSTAK STKL2 OTSP«, l3=0x39}
0x1aeb…1b2a Line {l1=0x3d, l2=»; 3. PROGRAMSTAK STSA INPS (*)«, l3=0x3d}
0x1b2a…1b65 Line {l1=0x39, l2=»; 4. INDDATABUFFER BUFLI INIB«, l3=0x39}
0x1b65…1ba0 Line {l1=0x39, l2=»; 5. UDDATABUFFER BUFLU INUB«, l3=0x39}
0x1ba0…1bdb Line {l1=0x39, l2=»; 6. PROGRAMOMRÅDE INPR«, l3=0x39}
0x1bdb…1c1a Line {l1=0x3d, l2=»; 7. DATAOMRÅDE INVT (*)«, l3=0x3d}
0x1c1a…1c55 Line {l1=0x39, l2=»; 8. VARIABELTABEL INVTL INVT«, l3=0x39}
0x1c55…1c58 Line {l1=0x01, l2=»;«, l3=0x01}
0x1c58…1c94 Line {l1=0x3a, l2=»; PILENE MÆRKET MED (*) UDPEGER DEN FØRSTE OKTET EFTER DET«, l3=0x3a}
0x1c94…1cb0 Line {l1=0x1a, l2=»; PÅGÆLDENDE ARBEJDSOMRÅDE«, l3=0x1a}
0x1cb0…1cb3 Line {l1=0x01, l2=»;«, l3=0x01}
0x1cb3…1cef Line {l1=0x3a, l2=»; DEN SAMLEDE LÆNGDE AF PROGRAM- OG DATAOMRÅDET ER 'PRLEN'«, l3=0x3a}
0x1cef…1cf2 Line {l1=0x01, l2=»;«, l3=0x01}
0x1cf2…1d40 Line {l1=0x4c, l2=»;***************************************************************************«, l3=0x4c}
0x1d40…1d43 Line {l1=0x01, l2=»;«, l3=0x01}
0x1d43…1d73 Line {l1=0x2e, l2=»STKL1: EQU #80 ;BEREGNES SOM PREC*#20«, l3=0x2e}
0x1d73…1d87 Line {l1=0x12, l2=»STKL2: EQU #20«, l3=0x12}
0x1d87…1d9c Line {l1=0x13, l2=»STSA: EQU #179«, l3=0x13}
0x1d9c…1db0 Line {l1=0x12, l2=»BUFLI: EQU #80«, l3=0x12}
0x1db0…1dc5 Line {l1=0x13, l2=»BUFLU: EQU #110«, l3=0x13}
0x1dc5…1ddb Line {l1=0x14, l2=»PRLEN: EQU #5300«, l3=0x14}
0x1ddb…1def Line {l1=0x12, l2=»INVTL: EQU #58«, l3=0x12}
0x1def…1df2 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x1df5…1e39 Line {l1=0x42, l2=»;*****************************************************************«, l3=0x42}
0x1e39…1e6a Line {l1=0x2f, l2=»;* SYMBOLSKE VÆRDIER FOR TERMINALE SYMBOLER.«, l3=0x2f}
0x1e6a…1eae Line {l1=0x42, l2=»;*****************************************************************«, l3=0x42}
0x1eae…1eb1 Line {l1=0x01, l2=»;«, l3=0x01}
0x1eb1…1ec6 Line {l1=0x13, l2=»GOTO: EQU #129«, l3=0x13}
0x1ec6…1edb Line {l1=0x13, l2=»IF: EQU #130«, l3=0x13}
0x1edb…1ef0 Line {l1=0x13, l2=»FOR: EQU #131«, l3=0x13}
0x1ef0…1f05 Line {l1=0x13, l2=»NEXT: EQU #132«, l3=0x13}
0x1f05…1f1a Line {l1=0x13, l2=»ON: EQU #133«, l3=0x13}
0x1f1a…1f2f Line {l1=0x13, l2=»LET: EQU #134«, l3=0x13}
0x1f2f…1f44 Line {l1=0x13, l2=»DIM: EQU #135«, l3=0x13}
0x1f44…1f59 Line {l1=0x13, l2=»DEF: EQU #136«, l3=0x13}
0x1f59…1f6e Line {l1=0x13, l2=»REM: EQU #137«, l3=0x13}
0x1f6e…1f83 Line {l1=0x13, l2=»GOSU: EQU #138«, l3=0x13}
0x1f83…1f98 Line {l1=0x13, l2=»RETU: EQU #139«, l3=0x13}
0x1f98…1fad Line {l1=0x13, l2=»END: EQU #140«, l3=0x13}
0x1fad…1fc2 Line {l1=0x13, l2=»STOP: EQU #141«, l3=0x13}
0x1fc2…1fd7 Line {l1=0x13, l2=»DATA: EQU #142«, l3=0x13}
0x1fd7…1fec Line {l1=0x13, l2=»READD: EQU #143«, l3=0x13}
0x1fec…2001 Line {l1=0x13, l2=»REST: EQU #144«, l3=0x13}
0x2001…2016 Line {l1=0x13, l2=»INPU: EQU #145«, l3=0x13}
0x2016…202b Line {l1=0x13, l2=»PRIN: EQU #146«, l3=0x13}
0x202b…2040 Line {l1=0x13, l2=»WHIL: EQU #147«, l3=0x13}
0x2040…2055 Line {l1=0x13, l2=»ENDW: EQU #148«, l3=0x13}
0x2055…206a Line {l1=0x13, l2=»LOOP: EQU #149«, l3=0x13}
0x206a…207f Line {l1=0x13, l2=»ENDL: EQU #150«, l3=0x13}
0x207f…2094 Line {l1=0x13, l2=»REPE: EQU #151«, l3=0x13}
0x2094…20a9 Line {l1=0x13, l2=»UNTI: EQU #152«, l3=0x13}
0x20a9…20be Line {l1=0x13, l2=»EXITT: EQU #153«, l3=0x13}
0x20be…20d3 Line {l1=0x13, l2=»ELSE: EQU #154«, l3=0x13}
0x20d3…20e8 Line {l1=0x13, l2=»ENDI: EQU #155«, l3=0x13}
0x20e8…20fd Line {l1=0x13, l2=»IFCL: EQU #156«, l3=0x13}
0x20fd…2112 Line {l1=0x13, l2=»EXEC: EQU #157«, l3=0x13}
0x2112…2127 Line {l1=0x13, l2=»PROC: EQU #158«, l3=0x13}
0x2127…213c Line {l1=0x13, l2=»ENDP: EQU #159«, l3=0x13}
0x213c…2151 Line {l1=0x13, l2=»CLEA: EQU #160«, l3=0x13}
0x2151…2166 Line {l1=0x13, l2=»CURSO: EQU #161«, l3=0x13}
0x2166…217b Line {l1=0x13, l2=»CASE: EQU #162«, l3=0x13}
0x217b…2190 Line {l1=0x13, l2=»WHEN: EQU #163«, l3=0x13}
0x2190…21a5 Line {l1=0x13, l2=»ECASE: EQU #164«, l3=0x13}
0x21a5…21ba Line {l1=0x13, l2=»OUTP: EQU #165«, l3=0x13}
0x21ba…21cf Line {l1=0x13, l2=»RAND: EQU #166«, l3=0x13}
0x21cf…21e4 Line {l1=0x13, l2=»OPN: EQU #167«, l3=0x13}
0x21e4…21f9 Line {l1=0x13, l2=»CLSE: EQU #168«, l3=0x13}
0x21f9…220e Line {l1=0x13, l2=»GET: EQU #169«, l3=0x13}
0x220e…2223 Line {l1=0x13, l2=»PUT: EQU #170«, l3=0x13}
0x2223…2238 Line {l1=0x13, l2=»WEOF: EQU #171«, l3=0x13}
0x2238…224d Line {l1=0x13, l2=»CHN: EQU #172«, l3=0x13}
0x224d…2262 Line {l1=0x13, l2=»CLL: EQU #173«, l3=0x13}
0x2262…2277 Line {l1=0x13, l2=»CREA: EQU #174«, l3=0x13}
0x2277…228e Line {l1=0x15, l2=»IND: EQU CREA+1«, l3=0x15}
0x228e…22a4 Line {l1=0x14, l2=»OUTD: EQU IND+1«, l3=0x14}
0x22a4…22bb Line {l1=0x15, l2=»EDTI: EQU OUTD+1«, l3=0x15}
0x22bb…22be Line {l1=0x01, l2=»;«, l3=0x01}
0x22be…22d3 Line {l1=0x13, l2=»THEN: EQU #182«, l3=0x13}
0x22d3…22ea Line {l1=0x15, l2=»TO: EQU THEN+1«, l3=0x15}
0x22ea…2301 Line {l1=0x15, l2=»STEP: EQU THEN+2«, l3=0x15}
0x2301…2318 Line {l1=0x15, l2=»USIN: EQU THEN+3«, l3=0x15}
0x2318…232f Line {l1=0x15, l2=»OF: EQU THEN+4«, l3=0x15}
0x232f…2346 Line {l1=0x15, l2=»DOK: EQU THEN+5«, l3=0x15}
0x2346…2349 Line {l1=0x01, l2=»;«, l3=0x01}
0x2349…235e Line {l1=0x13, l2=»SIN: EQU #190«, l3=0x13}
0x235e…2373 Line {l1=0x13, l2=»COS: EQU #191«, l3=0x13}
0x2373…2388 Line {l1=0x13, l2=»TAN: EQU #192«, l3=0x13}
0x2388…239d Line {l1=0x13, l2=»ATN: EQU #193«, l3=0x13}
0x239d…23b2 Line {l1=0x13, l2=»EXP: EQU #194«, l3=0x13}
0x23b2…23c7 Line {l1=0x13, l2=»LOG: EQU #195«, l3=0x13}
0x23c7…23dc Line {l1=0x13, l2=»ABS: EQU #196«, l3=0x13}
0x23dc…23f1 Line {l1=0x13, l2=»SQR: EQU #197«, l3=0x13}
0x23f1…2406 Line {l1=0x13, l2=»INT: EQU #198«, l3=0x13}
0x2406…241b Line {l1=0x13, l2=»RND: EQU #199«, l3=0x13}
0x241b…2430 Line {l1=0x13, l2=»SGN: EQU #200«, l3=0x13}
0x2430…2445 Line {l1=0x13, l2=»ASIN: EQU #201«, l3=0x13}
0x2445…245a Line {l1=0x13, l2=»ACOS: EQU #202«, l3=0x13}
0x245a…246f Line {l1=0x13, l2=»LN: EQU #203«, l3=0x13}
0x246f…2484 Line {l1=0x13, l2=»LEN: EQU #204«, l3=0x13}
0x2484…2499 Line {l1=0x13, l2=»ORD: EQU #205«, l3=0x13}
0x2499…24ae Line {l1=0x13, l2=»STATS: EQU #206«, l3=0x13}
0x24ae…24c3 Line {l1=0x13, l2=»CHR: EQU #207«, l3=0x13}
0x24c3…24d8 Line {l1=0x13, l2=»TAB: EQU #210«, l3=0x13}
0x24d8…24ed Line {l1=0x13, l2=»FN: EQU #211«, l3=0x13}
0x24ed…2502 Line {l1=0x13, l2=»NOT: EQU #217«, l3=0x13}
0x2502…2517 Line {l1=0x13, l2=»AND: EQU #218«, l3=0x13}
0x2517…252c Line {l1=0x13, l2=»OR: EQU #219«, l3=0x13}
0x252c…2541 Line {l1=0x13, l2=»UNEQ: EQU #225«, l3=0x13}
0x2541…2556 Line {l1=0x13, l2=»LESE: EQU #223«, l3=0x13}
0x2556…256b Line {l1=0x13, l2=»BIGE: EQU #224«, l3=0x13}
0x256b…2580 Line {l1=0x13, l2=»EQUA: EQU #220«, l3=0x13}
0x2580…2595 Line {l1=0x13, l2=»BIG: EQU #222«, l3=0x13}
0x2595…25aa Line {l1=0x13, l2=»LESS: EQU #221«, l3=0x13}
0x25aa…25bf Line {l1=0x13, l2=»PLUS: EQU #226«, l3=0x13}
0x25bf…25d4 Line {l1=0x13, l2=»MINU: EQU #227«, l3=0x13}
0x25d4…25e9 Line {l1=0x13, l2=»POW: EQU #230«, l3=0x13}
0x25e9…25fe Line {l1=0x13, l2=»MUL: EQU #228«, l3=0x13}
0x25fe…2613 Line {l1=0x13, l2=»DIV: EQU #229«, l3=0x13}
0x2613…2628 Line {l1=0x13, l2=»DIVH: EQU #231«, l3=0x13}
0x2628…263d Line {l1=0x13, l2=»MOD: EQU #232«, l3=0x13}
0x263d…2652 Line {l1=0x13, l2=»MONI: EQU #233«, l3=0x13}
0x2652…2667 Line {l1=0x13, l2=»SEMC: EQU #235«, l3=0x13}
0x2667…267c Line {l1=0x13, l2=»COMM: EQU #236«, l3=0x13}
0x267c…2691 Line {l1=0x13, l2=»VPAR: EQU #237«, l3=0x13}
0x2691…26a6 Line {l1=0x13, l2=»HPAR: EQU #238«, l3=0x13}
0x26a6…26bb Line {l1=0x13, l2=»DOLL: EQU #239«, l3=0x13}
0x26bb…26d0 Line {l1=0x13, l2=»COLO: EQU #240«, l3=0x13}
0x26d0…26e5 Line {l1=0x13, l2=»KONK: EQU #241«, l3=0x13}
0x26e5…26fa Line {l1=0x13, l2=»NUKNS: EQU #254«, l3=0x13}
0x26fa…26fd Line {l1=0x01, l2=»;«, l3=0x01}
0x26fd…2724 Line {l1=0x25, l2=»PUNK: EQU #46 ; '.' I ASCII«, l3=0x25}
0x2724…2755 Line {l1=0x2f, l2=»EXPC: EQU #37 ; 'PROCENTTEGN' I ASCII«, l3=0x2f}
0x2755…277c Line {l1=0x25, l2=»NUNC: EQU #35 ; '#' I ASCII«, l3=0x25}
0x277c…277f Line {l1=0x01, l2=»;«, l3=0x01}
0x277f…27c4 Line {l1=0x43, l2=»;******************************************************************«, l3=0x43}
0x27c4…27ef Line {l1=0x29, l2=»;* SYMBOLSKE VÆRDIER FOR VARIABELTYPER«, l3=0x29}
0x27ef…2834 Line {l1=0x43, l2=»;******************************************************************«, l3=0x43}
0x2834…2837 Line {l1=0x01, l2=»;«, l3=0x01}
0x2837…2862 Line {l1=0x29, l2=»SIRV: EQU #32 ; SIMPEL REEL VARIABEL«, l3=0x29}
0x2862…2890 Line {l1=0x2c, l2=»INRV: EQU #64 ; INDICERET REEL VARIABEL«, l3=0x2c}
0x2890…28bc Line {l1=0x2a, l2=»SISV: EQU #96 ; SIMPEL STRENGVARIABEL«, l3=0x2a}
0x28bc…28ed Line {l1=0x2f, l2=»FUNK: EQU #160 ; FUNKTION (BRUGERDEFINERET)«, l3=0x2f}
0x28ed…2915 Line {l1=0x26, l2=»FOPA: EQU #192 ; FORMEL PARAMETER«, l3=0x26}
0x2915…2935 Line {l1=0x1e, l2=»IPRO: EQU #128 ; PROCEDURE«, l3=0x1e}
0x2935…2966 Line {l1=0x2f, l2=»FOPP: EQU #48 ; FORMEL PROCEDURE PARAMETER«, l3=0x2f}
0x2966…2987 Line {l1=0x1f, l2=»REVA: EQU 8 ; REEL VÆRDI«, l3=0x1f}
0x2987…29a7 Line {l1=0x1e, l2=»STCO: EQU #16 ; DELSTRENG«, l3=0x1e}
0x29a7…29aa Line {l1=0x01, l2=» «, l3=0x01}
0x29aa…29ea Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x29ea…29ed Line {l1=0x01, l2=»;«, l3=0x01}
0x29ed…2a28 Line {l1=0x39, l2=»;SYMBOLISKE ADRESSE OFFSET TIL MASKIN KALD HJÆLPE RUTINER«, l3=0x39}
0x2a28…2a2b Line {l1=0x01, l2=»;«, l3=0x01}
0x2a2b…2a6b Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x2a6b…2a6e Line {l1=0x01, l2=»;«, l3=0x01}
0x2a6e…2a97 Line {l1=0x27, l2=»FIXFL: EQU 0 ;FIXED TIL FLOAT«, l3=0x27}
0x2a97…2ac0 Line {l1=0x27, l2=»FLFIX: EQU 1 ;FLOAT TIL FIXED«, l3=0x27}
0x2ac0…2ae8 Line {l1=0x26, l2=»GETNM: EQU 2 ;HENT NUMERISKE«, l3=0x26}
0x2ae8…2b0f Line {l1=0x25, l2=»PUTNM: EQU 3 ;GEM NUMERISKE«, l3=0x25}
0x2b0f…2b34 Line {l1=0x23, l2=»GETST: EQU 4 ;HENT STRENG«, l3=0x23}
0x2b34…2b58 Line {l1=0x22, l2=»PUTST: EQU 5 ;GEM STRENG«, l3=0x22}
0x2b58…2b85 Line {l1=0x2b, l2=»DELIM: EQU 0FF ;SYNTACTIC DELIMATOR«, l3=0x2b}
0x2b85…2bc5 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x2bc5…2c09 Line {l1=0x42, l2=»;-----------------------------------------------------------------«, l3=0x42}
0x2c09…2c35 Line {l1=0x2a, l2=»; KODER FOR OPERATIONER PÅ REGNEKREDSEN«, l3=0x2a}
0x2c35…2c79 Line {l1=0x42, l2=»;-----------------------------------------------------------------«, l3=0x42}
0x2c79…2c8e Line {l1=0x13, l2=»KSIN: EQU 2 ;«, l3=0x13}
0x2c8e…2ca3 Line {l1=0x13, l2=»KCOS: EQU 3 ;«, l3=0x13}
0x2ca3…2cb8 Line {l1=0x13, l2=»KTAN: EQU 4 ;«, l3=0x13}
0x2cb8…2ccd Line {l1=0x13, l2=»KATA: EQU 7 ;«, l3=0x13}
0x2ccd…2ce2 Line {l1=0x13, l2=»KASI: EQU 5 ;«, l3=0x13}
0x2ce2…2cf7 Line {l1=0x13, l2=»KACO: EQU 6 ;«, l3=0x13}
0x2cf7…2d0d Line {l1=0x14, l2=»KEXP: EQU #10 ;«, l3=0x14}
0x2d0d…2d22 Line {l1=0x13, l2=»KLOG: EQU 8 ;«, l3=0x13}
0x2d22…2d37 Line {l1=0x13, l2=»KSQR: EQU 1 ;«, l3=0x13}
0x2d37…2d4c Line {l1=0x13, l2=»KLN: EQU 9 ;«, l3=0x13}
0x2d4c…2d62 Line {l1=0x14, l2=»KPWR: EQU #11 ;«, l3=0x14}
0x2d62…2d78 Line {l1=0x14, l2=»KADD: EQU #16 ;«, l3=0x14}
0x2d78…2d8e Line {l1=0x14, l2=»KSUB: EQU #17 ;«, l3=0x14}
0x2d8e…2da4 Line {l1=0x14, l2=»KMUL: EQU #18 ;«, l3=0x14}
0x2da4…2dba Line {l1=0x14, l2=»KDIV: EQU #19 ;«, l3=0x14}
0x2dba…2dcf Line {l1=0x13, l2=»FIXD: EQU #30;«, l3=0x13}
0x2dcf…2de5 Line {l1=0x14, l2=»FLTD: EQU #28 ;«, l3=0x14}
0x2de5…2dfb Line {l1=0x14, l2=»KIMU: EQU #46 ;«, l3=0x14}
0x2dfb…2e11 Line {l1=0x14, l2=»KIAD: EQU #44 ;«, l3=0x14}
0x2e11…2e27 Line {l1=0x14, l2=»KISU: EQU #45 ;«, l3=0x14}
0x2e27…2e3b Line {l1=0x12, l2=»KIDI: EQU #47«, l3=0x12}
0x2e3b…2e51 Line {l1=0x14, l2=»FIXS: EQU #31 ;«, l3=0x14}
0x2e51…2e67 Line {l1=0x14, l2=»PTOD: EQU #55 ;«, l3=0x14}
0x2e67…2e7d Line {l1=0x14, l2=»POPF: EQU #24 ;«, l3=0x14}
0x2e7d…2e93 Line {l1=0x14, l2=»CHSF: EQU #21 ;«, l3=0x14}
0x2e93…2ea7 Line {l1=0x12, l2=»PTOF: EQU #23«, l3=0x12}
0x2ea7…2ebb Line {l1=0x12, l2=»PTOS: EQU #119«, l3=0x12}
0x2ebb…2ecf Line {l1=0x12, l2=»FLTS: EQU #29«, l3=0x12}
0x2ecf…2ee3 Line {l1=0x12, l2=»XCHF: EQU #25«, l3=0x12}
0x2ee3…2ee6 Line {l1=0x01, l2=»;«, l3=0x01}
0x2ee6…2f1e Line {l1=0x36, l2=»RKDA: EQU 0E8 ; ADRESSE FOR DATA TIL REGNEKREDSEN«, l3=0x36}
0x2f1e…2f5a Line {l1=0x3a, l2=»RKOP: EQU 0E9 ; ADRESSE FOR OPERATIONSKODE/STATUS FOR«, l3=0x3a}
0x2f5a…2f86 Line {l1=0x2a, l2=» ; REGNEKREDSEN«, l3=0x2a}
0x2f86…2f93 Line {l1=0x0b, l2=» LIST«, l3=0x0b}
0x2f93…2fa0 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
0x2fa0…2fc0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 ┆ ┆
[…0x5f…]