|
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: 10112 (0x2780)
Types: TextFile
Notes: Mikados_K
Names: »SYMB.K«
└─⟦eac5e1fdf⟧ Bits:30004669/disk3.imd MIKADOS Utility Programs (Relocatable)
└─⟦this⟧ »SYMB.K«
NLIST
;SYMBOLDEFINITIONER FOR MIK SYSTEM - CT-801120
;COPYRIGHT (C) 1979 BY DANSK DATA ELEKTRONIK APS
;
;****************************************************************
; DEFINITION AF SYMBOLSKE KONSTANTER I MIK SYSTEM
;****************************************************************
;
;
;
;****************************************************************
; GRUNDLÆGGENDE SYSTEMKONSTANTER
;****************************************************************
;
;
INTRP: EQU 0FE ;ADRESSE PÅ INTERRUPT PRIORITETS MODUL
BANKR: EQU 0FC ;ADRESSE PÅ BANK SWITCH KONTROL
;
;
;****************************************************************
; SYMBOLSKE DEFINITIONER AF RELATIVE FELTADRESSER I
; PROCES KONTROL BLOKKE (KORUTINEBESKRIVELSER)
;****************************************************************
;
STPIL: EQU 2 ;STAKPIL
PRIO: EQU 4 ;PROCESSENS PRIORITET
BSKED: EQU 5 ;ADRESSE PÅ MODTAGEN BESKEDBUFFER
KVANT: EQU 7 ;LÆNGDE AF TIDSKVANT
SBUND: EQU 8 ;ADRESSE PÅ STAKBUND
STTOP: EQU #10 ;ADRESSE PÅ MAKSIMAL STAKTOP
ARBJD: EQU #12 ;ADRESSE PÅ ARBEJDSAREAL
KOSEM: EQU #14 ;KORUTINESEMAFOR
HJSEM: EQU #16 ;HJÆLPESEMAFOR.
PKDIV: EQU #18 ;DIVERSE.
PKBID: EQU #20 ;PROCES KONTROL BLOK IDENTIFIKATION
PKBNK: EQU #21 ;BANK KODE (0 I SYSTEMER UDEN BANK SWITCH)
PKKÆD: EQU #23 ;PKB HÆGTE FOR HOVEDLAGERADMINISTRATION
PKBEG: EQU #25 ;ADRESSE PÅ FØRSTE OKTET I PROGRAMMET
PKEND: EQU #27 ;ADRESSE PÅ FØRSTE OKTET EFTER PROGRAMMET.
PKPRG: EQU #29 ;SPOR/SEKTOR ADRESSE PÅ PROGRAMFIL
PKPLA: EQU #32 ;PIL TIL PLADELAGERBESKRIVELSE FOR PROGRAMFIL
STCK1: EQU PKKÆD+#11 ;STAKTOP (STAKBESKYTTELSE)
;
PROCL: EQU STCK1 ;LÆNGDE AF EN PROCES KONTROL BLOK
SSTKL: EQU #62 ;STAKLÆNGDE FOR SYSTEMPROCES
BSTKL: EQU #90 ;STAKLÆNGDE FOR BRUGERPROCES (SKAL VÆRE ET
; LIGE TAL)
;
SEMLN: EQU 6 ;LÆNGDE AF EN SEMAFOR
;
;
;***********************************************************************
; MEDDELELSER
;***********************************************************************
;
MSLEN: EQU #16 ;ANTAL OKTETTER I EN MEDDELELSE
;
;
;***********************************************************************
; RESSOURCEADMINISTRATIONEN
;***********************************************************************
;
RROFF: EQU #10 ;RELATIV ADRESS PÅ HÆGTE I RESS. ELEM.
;
RRLEN: EQU #13 ;LÆNGDEN AF ET RESSOURCEELEMENT
;
;
;****************************************************************
; SYMBOLSKE RELATIVE ADRESSER I DKB.
;*****************************************************************
;
FILUD: EQU #10 ;ANTAL FILUDVIDELSER.
BASIS: EQU #11 ;SEKTORANTAL I BASISFILEN.
FILNÆ: EQU #13 ;ADR. PÅ NÆSTE FILUDVIDELSE (ELLER 0).
FILFO: EQU #16 ;ADR. PÅ FOREGÅENDE FILUDV. (ELLER 0).
SEKT1: EQU #19 ;ADR. PÅ FØRSTE SEKTOR I BUFFEREN.
SANT: EQU #22 ;ANTAL SEKTORER I BUFFEREN.
BFLGD: EQU #23 ;BUFFERLÆNGDE I SEKTORER.
DFLAG: EQU #24 ;DIVERSE FLAG.
FILDE: EQU #25 ;ADR. PÅ DENNE FILS START.
NRPST: EQU #28 ;NR. PÅ NÆSTE POST, DER SKAL LÆSES/SKRIVES.
NÆPST: EQU #30 ;BUFFERADRESSE PÅ NRPST.
PLBET: EQU #32 ;ADR. I PLADELAGERTABELLEN PÅ DET ELEMENT
;SOM BESKRIVER FILENS PLADELAGER.
PSLGD: EQU #34 ;POSTLÆNGDEN I OKTETTER.
ANDET: EQU #36 ;ANVENDES INTERNT AF KTSØG.
DKÅBN: EQU #41 ;DKB'ENS ÅBEN-FLAG.
FILBA: EQU #42 ;ADR. PÅ BASISFILENS START.
BUFF: EQU #48 ;BUFFERSTART.
;
;
;******************************************************************
; SYMBOLSKE RELATIVE ADRESSER I PLADELAGERTABELLEN.
;***************************************************************
;
PLBT1: EQU 2 ;ANTAL OKTETTER TIL FØRSTE PLADELAGERBETEGNELSE.
;
PSPOR: EQU 2 ;ANTAL SPOR PÅ PLADELAGERET.
KGRUP: EQU 4 ;ANTAL KATALOGGRUPPER-1.
SPRGP: EQU 6 ;ANTAL KATALOGSEKTORER PR. GRUPPE.
ASPSP: EQU 7 ;ANTAL SEKTORER PR. SPOR
SUBDR: EQU 8 ;ADRESSE PÅ FYSISK SUBDRIVPROGRAM
FPLID: EQU #10 ;FYSISK PLADELAGERIDENTIFIKATION.
BACYL: EQU #11 ;BASISCYLINDER.
OPTIO: EQU #13 ;DIVERSE BIT VEDR. SÆREGENHEDER VED SUBDRIVER
;BIT 7: 1 HVIS LÆS-EFTER-SKRIV TEST ØNSKES
;BIT 6: 1 HVIS DER IKKE SKAL TAGES HENSYN TIL
; SPOROVERGANGE
;BIT 5: 1 HVIS EN OVERFØRSEL IKKE MÅ STRÆKKE
; SIG OVER MIDTEN AF ET SPOR
;
PLSTR: EQU #14 ;STØRRELSE AF EET PLADELAGERS INFORMATION.
;
;************************************************************************
;SYMBOLSKE RELATIVE ADRESSE I PRINTERTABELLEN
;*************************************************************************
;
PRSTR: EQU 7 ;STØRRELSE AF EN RINTERBESKRIVELSE
;
; FLERE FØLGER SENERE !!!!!!!!!!!!!!!!!!!!!
;
;
;******************************************************************
; SYMBOLSKE RELATIVE ADRESSER I PLADELAGERBESKRIVELSEN.
;*****************************************************************
;
PLIDN: EQU 0 ;PLADELAGERBETEGNELSE
LEDIG: EQU #10 ;ADR. PÅ FØRSTE LEDIGE SEKTOR.
PLART: EQU #13 ;PLADELAGERART
PLDTO: EQU #18 ;DATO FOR SIDSTE KOPIERING
PLBTG: EQU #28 ;PLADELAGERETIKETTE
PNUDA: EQU #38 ;NUVÆRENDE DATO
;
;
;*****************************************************************
; SYMBOLSKE RELATIVE ADRESSER I FILINFORMATIONEN.
; (DE FLESTE ER DE SAMME SOM FOR DKB'EN).
;*****************************************************************
;
NÆFIL: EQU #19 ;ADR. PÅ NÆSTE FIL PÅ PLADELAGER.
POSTL: EQU #25 ;POSTLÆNGDEN I OKTETTER.
FBUFF: EQU #32 ;LÆNGDEN AF FILINFORMATIONEN.
;
;
;*************************************************************
; SYMBOLSKE NAVNE FOR FEJLKODER I FILSYSTEMET.
;*************************************************************
;
NXIST: EQU 1 ;FILNAVNET EKSISTERER IKKE.
EXIST: EQU 2 ;FILNAVNET ER TIDLIGERE OPRETTET.
EJPLD: EQU 3 ;IKKE PLADS TIL FILEN PÅ PLADELAGERET.
UPOST: EQU 4 ;ULOVLIG POSTLÆNGDE.
FRESV: EQU 5 ;FILEN ER RESERVERET AF EN ANDEN BRUGER.
UÅBEN: EQU 6 ;DKB'EN ER IKKE ÅBNET KORREKT.
EJLUK: EQU 7 ;DKB'EN ER IKKE LUKKET.
UDV25: EQU 8 ;FORSØG PÅ AT UDVIDE FILEN 26. GANG.
UNAVN: EQU 9 ;ULOVLIGT FILNAVN.
UPLAD: EQU #10 ;ULOVLIG PLADELAGERBETEGNELSE.
IXPST: EQU #11 ;FORSØG PÅ AT POSITIONERE FIL TIL IKKE
;EKSISTERENDE POST.
UDNFR: EQU #12 ;FORSØG PÅ AT LÆSE/SKRIVE EN POST, DER HELT
;ELLER DELVIS LIGGER UDEN FOR FILEN.
NSKRV: EQU #13 ;FIL IKKE ÅBNET TIL SKRIVNING.
KFULD: EQU #14 ;KATALOGET ER FULDT.
UDKBL: EQU #15 ;ULOVLIG DKB-LÆNGDE.
SKTFJ: EQU #16 ;ULOVLIGT SEKTORANTAL I FILEN.
UTYPE: EQU #17 ;ULOVLIG FILTYPE.
EJRES: EQU #18 ;NAVN, DER IKKE ER RESERVERET FORSØGES FRIGIVET
ULLÆN: EQU #19 ;POSTLÆNGDE VISER IKKE KILDETEKSTFORMAT.
;
NRESS: EQU #30 ;INTET LEDIGT RESSOURCEELEMENT.
;
NTRDY: EQU #40 ;PLADELAGER IKKE KLAR
DERRO: EQU #42 ;HÅRD FEJL PÅ PLADELAGER
WPROT: EQU #44 ;PLADELAGER SKRIVEBESKYTTET
;
;
;*****************************************************************
; SYMBOLSKE KONSTANTER DER HAR RELATION TIL
; HOVEDLAGERADMINISTRATIONSPROCESSEN.
;******************************************************************
;
;
HLAPR: EQU 3 ;HOVEDLAGERADMINISTRATIONENS PRIORITET
;
;
; PROGRAMFILINFORMATION I BASISSEKTOR.
;
HLIND: EQU #64 ;START FOR PROGRAMEKSEKVERING
HLADR: EQU #66 ;STARTADRESSE FOR PROGRAMMET I HOVEDLAGERET.
;
; FEJLKODER FRA HOVEDLAGERADMINISTRATIONSPROCES.
;
HLIPK: EQU #61 ;INGEN LEDIG PROCES KONTROL BLOK
HLULP: EQU #62 ;ULOVLIG PRIORITET.
HLUGR: EQU #63 ;ULOVLIGE HOVEDLAGERGRÆNSER.
HLUAD: EQU #64 ;ULOVLIG INDHOPSADRESSE.
HLUST: EQU #65 ;ULOVLIG PROGRAMFILSTRUKTUR.
HLUPK: EQU #66 ;ADRESSE UDPEGER IKKE PROCES KONTROL BLOK.
HLKOD: EQU #67 ;ULOVLIG OPERATIONSKODE
;
;
;*********************************************************************
; PRIORITETSGRÆNSER
;*********************************************************************
;
MINPR: EQU 4 ;HØJESTE TILLADTE PRIORITET (NUMERISK MINDST)
MAXPR: EQU 8 ;LAVEST TILLADTE PRIORITET (NUMERISK STØRST)
;
;
;*********************************************************************
; RELATIVE ADRESSER I TERMINALBESKRIVELSEN I OPERATØRKOMMUNIKATIONEN.
;*********************************************************************
;
OPSMK: EQU 2 ;TERMINALSEMAFORADRESSE
OPSMP: EQU 4 ;PRINTERSEMAFORADRESSE
OPREG: EQU 6 ;REGIONSBESKRIVELSE (TYPE OG BANK)
;
OPLÆN: EQU 7 ;LÆNGDE AF ROM DATAOMRÅDE FOR EEN TERMINAL
;
OPSMC: EQU 0 ;KONSOLSEMAFORADRESSE
OPSML: EQU 2 ;LISTSEMAFORADRESSE
OPSMF: EQU 4 ;FEJLSEMAFORADRESSE
OPBRK: EQU 6 ;BREAK FLAG FOR TERMINAL
OPFIL: EQU 7 ;(RESERVERET FREMTIDIGE UDVIDELSER)
OPBUF: EQU 9 ;TERMINAL INDDATA BUFFER (OPKOM)
;
; VARIABELT DATAOMRÅDE
;
LIST
0x0000…000e Line {l1=0x0c, l2=» NLIST«, l3=0x0c}
0x000e…0054 Line {l1=0x44, l2=»;SYMBOLDEFINITIONER FOR MIK SYSTEM - CT-801120«, l3=0x44}
0x0054…0087 Line {l1=0x31, l2=»;COPYRIGHT (C) 1979 BY DANSK DATA ELEKTRONIK APS«, l3=0x31}
0x0087…008a Line {l1=0x01, l2=»;«, l3=0x01}
0x008a…00cd Line {l1=0x41, l2=»;****************************************************************«, l3=0x41}
0x00cd…0100 Line {l1=0x31, l2=»; DEFINITION AF SYMBOLSKE KONSTANTER I MIK SYSTEM«, l3=0x31}
0x0100…0143 Line {l1=0x41, l2=»;****************************************************************«, l3=0x41}
0x0143…0146 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x2…]
0x014c…018f Line {l1=0x41, l2=»;****************************************************************«, l3=0x41}
0x018f…01b1 Line {l1=0x20, l2=»; GRUNDLÆGGENDE SYSTEMKONSTANTER«, l3=0x20}
0x01b1…01f4 Line {l1=0x41, l2=»;****************************************************************«, l3=0x41}
0x01f4…01f7 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x01fa…0239 Line {l1=0x3d, l2=»INTRP: EQU 0FE ;ADRESSE PÅ INTERRUPT PRIORITETS MODUL«, l3=0x3d}
0x0239…0271 Line {l1=0x36, l2=»BANKR: EQU 0FC ;ADRESSE PÅ BANK SWITCH KONTROL«, l3=0x36}
0x0271…0274 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x0277…02ba Line {l1=0x41, l2=»;****************************************************************«, l3=0x41}
0x02ba…02ef Line {l1=0x33, l2=»; SYMBOLSKE DEFINITIONER AF RELATIVE FELTADRESSER I«, l3=0x33}
0x02ef…031f Line {l1=0x2e, l2=»; PROCES KONTROL BLOKKE (KORUTINEBESKRIVELSER)«, l3=0x2e}
0x031f…0362 Line {l1=0x41, l2=»;****************************************************************«, l3=0x41}
0x0362…0365 Line {l1=0x01, l2=»;«, l3=0x01}
0x0365…0386 Line {l1=0x1f, l2=»STPIL: EQU 2 ;STAKPIL«, l3=0x1f}
0x0386…03b4 Line {l1=0x2c, l2=»PRIO: EQU 4 ;PROCESSENS PRIORITET«, l3=0x2c}
0x03b4…03ee Line {l1=0x38, l2=»BSKED: EQU 5 ;ADRESSE PÅ MODTAGEN BESKEDBUFFER«, l3=0x38}
0x03ee…041b Line {l1=0x2b, l2=»KVANT: EQU 7 ;LÆNGDE AF TIDSKVANT«, l3=0x2b}
0x041b…0448 Line {l1=0x2b, l2=»SBUND: EQU 8 ;ADRESSE PÅ STAKBUND«, l3=0x2b}
0x0448…047d Line {l1=0x33, l2=»STTOP: EQU #10 ;ADRESSE PÅ MAKSIMAL STAKTOP«, l3=0x33}
0x047d…04ae Line {l1=0x2f, l2=»ARBJD: EQU #12 ;ADRESSE PÅ ARBEJDSAREAL«, l3=0x2f}
0x04ae…04d7 Line {l1=0x27, l2=»KOSEM: EQU #14 ;KORUTINESEMAFOR«, l3=0x27}
0x04d7…04ff Line {l1=0x26, l2=»HJSEM: EQU #16 ;HJÆLPESEMAFOR.«, l3=0x26}
0x04ff…0521 Line {l1=0x20, l2=»PKDIV: EQU #18 ;DIVERSE.«, l3=0x20}
0x0521…055d Line {l1=0x3a, l2=»PKBID: EQU #20 ;PROCES KONTROL BLOK IDENTIFIKATION«, l3=0x3a}
0x055d…05a0 Line {l1=0x41, l2=»PKBNK: EQU #21 ;BANK KODE (0 I SYSTEMER UDEN BANK SWITCH)«, l3=0x41}
0x05a0…05e0 Line {l1=0x3e, l2=»PKKÆD: EQU #23 ;PKB HÆGTE FOR HOVEDLAGERADMINISTRATION«, l3=0x3e}
0x05e0…061e Line {l1=0x3c, l2=»PKBEG: EQU #25 ;ADRESSE PÅ FØRSTE OKTET I PROGRAMMET«, l3=0x3c}
0x061e…0661 Line {l1=0x41, l2=»PKEND: EQU #27 ;ADRESSE PÅ FØRSTE OKTET EFTER PROGRAMMET.«, l3=0x41}
0x0661…069c Line {l1=0x39, l2=»PKPRG: EQU #29 ;SPOR/SEKTOR ADRESSE PÅ PROGRAMFIL«, l3=0x39}
0x069c…06e2 Line {l1=0x44, l2=»PKPLA: EQU #32 ;PIL TIL PLADELAGERBESKRIVELSE FOR PROGRAMFIL«, l3=0x44}
0x06e2…0718 Line {l1=0x34, l2=»STCK1: EQU PKKÆD+#11 ;STAKTOP (STAKBESKYTTELSE)«, l3=0x34}
0x0718…071b Line {l1=0x01, l2=»;«, l3=0x01}
0x071b…0755 Line {l1=0x38, l2=»PROCL: EQU STCK1 ;LÆNGDE AF EN PROCES KONTROL BLOK«, l3=0x38}
0x0755…078a Line {l1=0x33, l2=»SSTKL: EQU #62 ;STAKLÆNGDE FOR SYSTEMPROCES«, l3=0x33}
0x078a…07cd Line {l1=0x41, l2=»BSTKL: EQU #90 ;STAKLÆNGDE FOR BRUGERPROCES (SKAL VÆRE ET«, l3=0x41}
0x07cd…07f1 Line {l1=0x22, l2=» ; LIGE TAL)«, l3=0x22}
0x07f1…07f4 Line {l1=0x01, l2=»;«, l3=0x01}
0x07f4…0822 Line {l1=0x2c, l2=»SEMLN: EQU 6 ;LÆNGDE AF EN SEMAFOR«, l3=0x2c}
0x0822…0825 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x0828…0872 Line {l1=0x48, l2=»;***********************************************************************«, l3=0x48}
0x0872…0881 Line {l1=0x0d, l2=»; MEDDELELSER«, l3=0x0d}
0x0881…08cb Line {l1=0x48, l2=»;***********************************************************************«, l3=0x48}
0x08cb…08ce Line {l1=0x01, l2=»;«, l3=0x01}
0x08ce…0906 Line {l1=0x36, l2=»MSLEN: EQU #16 ;ANTAL OKTETTER I EN MEDDELELSE«, l3=0x36}
0x0906…0909 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x090c…0956 Line {l1=0x48, l2=»;***********************************************************************«, l3=0x48}
0x0956…0973 Line {l1=0x1b, l2=»; RESSOURCEADMINISTRATIONEN«, l3=0x1b}
0x0973…09bd Line {l1=0x48, l2=»;***********************************************************************«, l3=0x48}
0x09bd…09c0 Line {l1=0x01, l2=»;«, l3=0x01}
0x09c0…09ff Line {l1=0x3d, l2=»RROFF: EQU #10 ;RELATIV ADRESS PÅ HÆGTE I RESS. ELEM.«, l3=0x3d}
0x09ff…0a02 Line {l1=0x01, l2=»;«, l3=0x01}
0x0a02…0a3a Line {l1=0x36, l2=»RRLEN: EQU #13 ;LÆNGDEN AF ET RESSOURCEELEMENT«, l3=0x36}
0x0a3a…0a3d Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x0a40…0a83 Line {l1=0x41, l2=»;****************************************************************«, l3=0x41}
0x0a83…0aa9 Line {l1=0x24, l2=»; SYMBOLSKE RELATIVE ADRESSER I DKB.«, l3=0x24}
0x0aa9…0aed Line {l1=0x42, l2=»;*****************************************************************«, l3=0x42}
0x0aed…0af0 Line {l1=0x01, l2=»;«, l3=0x01}
0x0af0…0b1e Line {l1=0x2c, l2=»FILUD: EQU #10 ;ANTAL FILUDVIDELSER.«, l3=0x2c}
0x0b1e…0b51 Line {l1=0x31, l2=»BASIS: EQU #11 ;SEKTORANTAL I BASISFILEN.«, l3=0x31}
0x0b51…0b90 Line {l1=0x3d, l2=»FILNÆ: EQU #13 ;ADR. PÅ NÆSTE FILUDVIDELSE (ELLER 0).«, l3=0x3d}
0x0b90…0bcf Line {l1=0x3d, l2=»FILFO: EQU #16 ;ADR. PÅ FOREGÅENDE FILUDV. (ELLER 0).«, l3=0x3d}
0x0bcf…0c0a Line {l1=0x39, l2=»SEKT1: EQU #19 ;ADR. PÅ FØRSTE SEKTOR I BUFFEREN.«, l3=0x39}
0x0c0a…0c3e Line {l1=0x32, l2=»SANT: EQU #22 ;ANTAL SEKTORER I BUFFEREN.«, l3=0x32}
0x0c3e…0c70 Line {l1=0x30, l2=»BFLGD: EQU #23 ;BUFFERLÆNGDE I SEKTORER.«, l3=0x30}
0x0c70…0c97 Line {l1=0x25, l2=»DFLAG: EQU #24 ;DIVERSE FLAG.«, l3=0x25}
0x0c97…0cca Line {l1=0x31, l2=»FILDE: EQU #25 ;ADR. PÅ DENNE FILS START.«, l3=0x31}
0x0cca…0d0e Line {l1=0x42, l2=»NRPST: EQU #28 ;NR. PÅ NÆSTE POST, DER SKAL LÆSES/SKRIVES.«, l3=0x42}
0x0d0e…0d3f Line {l1=0x2f, l2=»NÆPST: EQU #30 ;BUFFERADRESSE PÅ NRPST.«, l3=0x2f}
0x0d3f…0d81 Line {l1=0x40, l2=»PLBET: EQU #32 ;ADR. I PLADELAGERTABELLEN PÅ DET ELEMENT«, l3=0x40}
0x0d81…0dbb Line {l1=0x38, l2=» ;SOM BESKRIVER FILENS PLADELAGER.«, l3=0x38}
0x0dbb…0dec Line {l1=0x2f, l2=»PSLGD: EQU #34 ;POSTLÆNGDEN I OKTETTER.«, l3=0x2f}
0x0dec…0e20 Line {l1=0x32, l2=»ANDET: EQU #36 ;ANVENDES INTERNT AF KTSØG.«, l3=0x32}
0x0e20…0e4c Line {l1=0x2a, l2=»DKÅBN: EQU #41 ;DKB'ENS ÅBEN-FLAG.«, l3=0x2a}
0x0e4c…0e80 Line {l1=0x32, l2=»FILBA: EQU #42 ;ADR. PÅ BASISFILENS START.«, l3=0x32}
0x0e80…0ea6 Line {l1=0x24, l2=»BUFF: EQU #48 ;BUFFERSTART.«, l3=0x24}
0x0ea6…0ea9 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x0eac…0ef1 Line {l1=0x43, l2=»;******************************************************************«, l3=0x43}
0x0ef1…0f26 Line {l1=0x33, l2=»; SYMBOLSKE RELATIVE ADRESSER I PLADELAGERTABELLEN.«, l3=0x33}
0x0f26…0f68 Line {l1=0x40, l2=»;***************************************************************«, l3=0x40}
0x0f68…0f6b Line {l1=0x01, l2=»;«, l3=0x01}
0x0f6b…0fb4 Line {l1=0x47, l2=»PLBT1: EQU 2 ;ANTAL OKTETTER TIL FØRSTE PLADELAGERBETEGNELSE.«, l3=0x47}
0x0fb4…0fb7 Line {l1=0x01, l2=»;«, l3=0x01}
0x0fb7…0fec Line {l1=0x33, l2=»PSPOR: EQU 2 ;ANTAL SPOR PÅ PLADELAGERET.«, l3=0x33}
0x0fec…101d Line {l1=0x2f, l2=»KGRUP: EQU 4 ;ANTAL KATALOGGRUPPER-1.«, l3=0x2f}
0x101d…1058 Line {l1=0x39, l2=»SPRGP: EQU 6 ;ANTAL KATALOGSEKTORER PR. GRUPPE.«, l3=0x39}
0x1058…108a Line {l1=0x30, l2=»ASPSP: EQU 7 ;ANTAL SEKTORER PR. SPOR «, l3=0x30}
0x108a…10c4 Line {l1=0x38, l2=»SUBDR: EQU 8 ;ADRESSE PÅ FYSISK SUBDRIVPROGRAM«, l3=0x38}
0x10c4…10fe Line {l1=0x38, l2=»FPLID: EQU #10 ;FYSISK PLADELAGERIDENTIFIKATION.«, l3=0x38}
0x10fe…1126 Line {l1=0x26, l2=»BACYL: EQU #11 ;BASISCYLINDER.«, l3=0x26}
0x1126…116c Line {l1=0x44, l2=»OPTIO: EQU #13 ;DIVERSE BIT VEDR. SÆREGENHEDER VED SUBDRIVER«, l3=0x44}
0x116c…11af Line {l1=0x41, l2=» ;BIT 7: 1 HVIS LÆS-EFTER-SKRIV TEST ØNSKES«, l3=0x41}
0x11af…11f5 Line {l1=0x44, l2=» ;BIT 6: 1 HVIS DER IKKE SKAL TAGES HENSYN TIL«, l3=0x44}
0x11f5…1223 Line {l1=0x2c, l2=» ; SPOROVERGANGE«, l3=0x2c}
0x1223…1268 Line {l1=0x43, l2=» ;BIT 5: 1 HVIS EN OVERFØRSEL IKKE MÅ STRÆKKE«, l3=0x43}
0x1268…12a3 Line {l1=0x39, l2=» ; SIG OVER MIDTEN AF ET SPOR«, l3=0x39}
0x12a3…12a6 Line {l1=0x01, l2=»;«, l3=0x01}
0x12a6…12e9 Line {l1=0x41, l2=»PLSTR: EQU #14 ;STØRRELSE AF EET PLADELAGERS INFORMATION.«, l3=0x41}
0x12e9…12ec Line {l1=0x01, l2=»;«, l3=0x01}
0x12ec…1337 Line {l1=0x49, l2=»;************************************************************************«, l3=0x49}
0x1337…1366 Line {l1=0x2d, l2=»;SYMBOLSKE RELATIVE ADRESSE I PRINTERTABELLEN«, l3=0x2d}
0x1366…13b2 Line {l1=0x4a, l2=»;*************************************************************************«, l3=0x4a}
0x13b2…13b5 Line {l1=0x01, l2=»;«, l3=0x01}
0x13b5…13f0 Line {l1=0x39, l2=»PRSTR: EQU 7 ;STØRRELSE AF EN RINTERBESKRIVELSE«, l3=0x39}
0x13f0…13f3 Line {l1=0x01, l2=»;«, l3=0x01}
0x13f3…1420 Line {l1=0x2b, l2=»; FLERE FØLGER SENERE !!!!!!!!!!!!!!!!!!!!!«, l3=0x2b}
0x1420…1423 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x1426…146b Line {l1=0x43, l2=»;******************************************************************«, l3=0x43}
0x146b…14a4 Line {l1=0x37, l2=»; SYMBOLSKE RELATIVE ADRESSER I PLADELAGERBESKRIVELSEN.«, l3=0x37}
0x14a4…14e8 Line {l1=0x42, l2=»;*****************************************************************«, l3=0x42}
0x14e8…14eb Line {l1=0x01, l2=»;«, l3=0x01}
0x14eb…1519 Line {l1=0x2c, l2=»PLIDN: EQU 0 ;PLADELAGERBETEGNELSE«, l3=0x2c}
0x1519…1550 Line {l1=0x35, l2=»LEDIG: EQU #10 ;ADR. PÅ FØRSTE LEDIGE SEKTOR.«, l3=0x35}
0x1550…1577 Line {l1=0x25, l2=»PLART: EQU #13 ;PLADELAGERART«, l3=0x25}
0x1577…15aa Line {l1=0x31, l2=»PLDTO: EQU #18 ;DATO FOR SIDSTE KOPIERING«, l3=0x31}
0x15aa…15d6 Line {l1=0x2a, l2=»PLBTG: EQU #28 ;PLADELAGERETIKETTE«, l3=0x2a}
0x15d6…15fe Line {l1=0x26, l2=»PNUDA: EQU #38 ;NUVÆRENDE DATO«, l3=0x26}
0x15fe…1601 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x1604…1648 Line {l1=0x42, l2=»;*****************************************************************«, l3=0x42}
0x1648…167b Line {l1=0x31, l2=»; SYMBOLSKE RELATIVE ADRESSER I FILINFORMATIONEN.«, l3=0x31}
0x167b…16a6 Line {l1=0x29, l2=»; (DE FLESTE ER DE SAMME SOM FOR DKB'EN).«, l3=0x29}
0x16a6…16ea Line {l1=0x42, l2=»;*****************************************************************«, l3=0x42}
0x16ea…16ed Line {l1=0x01, l2=»;«, l3=0x01}
0x16ed…1727 Line {l1=0x38, l2=»NÆFIL: EQU #19 ;ADR. PÅ NÆSTE FIL PÅ PLADELAGER.«, l3=0x38}
0x1727…1758 Line {l1=0x2f, l2=»POSTL: EQU #25 ;POSTLÆNGDEN I OKTETTER.«, l3=0x2f}
0x1758…178e Line {l1=0x34, l2=»FBUFF: EQU #32 ;LÆNGDEN AF FILINFORMATIONEN.«, l3=0x34}
0x178e…1791 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x1794…17d4 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x17d4…1804 Line {l1=0x2e, l2=»; SYMBOLSKE NAVNE FOR FEJLKODER I FILSYSTEMET.«, l3=0x2e}
0x1804…1844 Line {l1=0x3e, l2=»;*************************************************************«, l3=0x3e}
0x1844…1847 Line {l1=0x01, l2=»;«, l3=0x01}
0x1847…187b Line {l1=0x32, l2=»NXIST: EQU 1 ;FILNAVNET EKSISTERER IKKE.«, l3=0x32}
0x187b…18b5 Line {l1=0x38, l2=»EXIST: EQU 2 ;FILNAVNET ER TIDLIGERE OPRETTET.«, l3=0x38}
0x18b5…18f4 Line {l1=0x3d, l2=»EJPLD: EQU 3 ;IKKE PLADS TIL FILEN PÅ PLADELAGERET.«, l3=0x3d}
0x18f4…1921 Line {l1=0x2b, l2=»UPOST: EQU 4 ;ULOVLIG POSTLÆNGDE.«, l3=0x2b}
0x1921…1962 Line {l1=0x3f, l2=»FRESV: EQU 5 ;FILEN ER RESERVERET AF EN ANDEN BRUGER.«, l3=0x3f}
0x1962…1999 Line {l1=0x35, l2=»UÅBEN: EQU 6 ;DKB'EN ER IKKE ÅBNET KORREKT.«, l3=0x35}
0x1999…19c9 Line {l1=0x2e, l2=»EJLUK: EQU 7 ;DKB'EN ER IKKE LUKKET.«, l3=0x2e}
0x19c9…1a06 Line {l1=0x3b, l2=»UDV25: EQU 8 ;FORSØG PÅ AT UDVIDE FILEN 26. GANG.«, l3=0x3b}
0x1a06…1a31 Line {l1=0x29, l2=»UNAVN: EQU 9 ;ULOVLIGT FILNAVN.«, l3=0x29}
0x1a31…1a68 Line {l1=0x35, l2=»UPLAD: EQU #10 ;ULOVLIG PLADELAGERBETEGNELSE.«, l3=0x35}
0x1a68…1aa8 Line {l1=0x3e, l2=»IXPST: EQU #11 ;FORSØG PÅ AT POSITIONERE FIL TIL IKKE «, l3=0x3e}
0x1aa8…1ad4 Line {l1=0x2a, l2=» ;EKSISTERENDE POST.«, l3=0x2a}
0x1ad4…1b18 Line {l1=0x42, l2=»UDNFR: EQU #12 ;FORSØG PÅ AT LÆSE/SKRIVE EN POST, DER HELT«, l3=0x42}
0x1b18…1b55 Line {l1=0x3b, l2=» ;ELLER DELVIS LIGGER UDEN FOR FILEN.«, l3=0x3b}
0x1b55…1b8c Line {l1=0x35, l2=»NSKRV: EQU #13 ;FIL IKKE ÅBNET TIL SKRIVNING.«, l3=0x35}
0x1b8c…1bb9 Line {l1=0x2b, l2=»KFULD: EQU #14 ;KATALOGET ER FULDT.«, l3=0x2b}
0x1bb9…1be6 Line {l1=0x2b, l2=»UDKBL: EQU #15 ;ULOVLIG DKB-LÆNGDE.«, l3=0x2b}
0x1be6…1c1d Line {l1=0x35, l2=»SKTFJ: EQU #16 ;ULOVLIGT SEKTORANTAL I FILEN.«, l3=0x35}
0x1c1d…1c47 Line {l1=0x28, l2=»UTYPE: EQU #17 ;ULOVLIG FILTYPE.«, l3=0x28}
0x1c47…1c8f Line {l1=0x46, l2=»EJRES: EQU #18 ;NAVN, DER IKKE ER RESERVERET FORSØGES FRIGIVET«, l3=0x46}
0x1c8f…1cd0 Line {l1=0x3f, l2=»ULLÆN: EQU #19 ;POSTLÆNGDE VISER IKKE KILDETEKSTFORMAT.«, l3=0x3f}
0x1cd0…1cd3 Line {l1=0x01, l2=»;«, l3=0x01}
0x1cd3…1d0b Line {l1=0x36, l2=»NRESS: EQU #30 ;INTET LEDIGT RESSOURCEELEMENT.«, l3=0x36}
0x1d0b…1d0e Line {l1=0x01, l2=»;«, l3=0x01}
0x1d0e…1d3c Line {l1=0x2c, l2=»NTRDY: EQU #40 ;PLADELAGER IKKE KLAR«, l3=0x2c}
0x1d3c…1d6d Line {l1=0x2f, l2=»DERRO: EQU #42 ;HÅRD FEJL PÅ PLADELAGER«, l3=0x2f}
0x1d6d…1da1 Line {l1=0x32, l2=»WPROT: EQU #44 ;PLADELAGER SKRIVEBESKYTTET«, l3=0x32}
0x1da1…1da4 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x1da7…1deb Line {l1=0x42, l2=»;*****************************************************************«, l3=0x42}
0x1deb…1e18 Line {l1=0x2b, l2=»; SYMBOLSKE KONSTANTER DER HAR RELATION TIL«, l3=0x2b}
0x1e18…1e3f Line {l1=0x25, l2=»; HOVEDLAGERADMINISTRATIONSPROCESSEN.«, l3=0x25}
0x1e3f…1e84 Line {l1=0x43, l2=»;******************************************************************«, l3=0x43}
0x1e84…1e87 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x1e8a…1ec9 Line {l1=0x3d, l2=»HLAPR: EQU 3 ;HOVEDLAGERADMINISTRATIONENS PRIORITET«, l3=0x3d}
0x1ec9…1ecc Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x1ecf…1ef7 Line {l1=0x26, l2=»; PROGRAMFILINFORMATION I BASISSEKTOR.«, l3=0x26}
0x1ef7…1efa Line {l1=0x01, l2=»;«, l3=0x01}
0x1efa…1f30 Line {l1=0x34, l2=»HLIND: EQU #64 ;START FOR PROGRAMEKSEKVERING«, l3=0x34}
0x1f30…1f75 Line {l1=0x43, l2=»HLADR: EQU #66 ;STARTADRESSE FOR PROGRAMMET I HOVEDLAGERET.«, l3=0x43}
0x1f75…1f78 Line {l1=0x01, l2=»;«, l3=0x01}
0x1f78…1faa Line {l1=0x30, l2=»; FEJLKODER FRA HOVEDLAGERADMINISTRATIONSPROCES.«, l3=0x30}
0x1faa…1fad Line {l1=0x01, l2=»;«, l3=0x01}
0x1fad…1fe6 Line {l1=0x37, l2=»HLIPK: EQU #61 ;INGEN LEDIG PROCES KONTROL BLOK«, l3=0x37}
0x1fe6…2012 Line {l1=0x2a, l2=»HLULP: EQU #62 ;ULOVLIG PRIORITET.«, l3=0x2a}
0x2012…2047 Line {l1=0x33, l2=»HLUGR: EQU #63 ;ULOVLIGE HOVEDLAGERGRÆNSER.«, l3=0x33}
0x2047…2078 Line {l1=0x2f, l2=»HLUAD: EQU #64 ;ULOVLIG INDHOPSADRESSE.«, l3=0x2f}
0x2078…20ad Line {l1=0x33, l2=»HLUST: EQU #65 ;ULOVLIG PROGRAMFILSTRUKTUR.«, l3=0x33}
0x20ad…20f0 Line {l1=0x41, l2=»HLUPK: EQU #66 ;ADRESSE UDPEGER IKKE PROCES KONTROL BLOK.«, l3=0x41}
0x20f0…2120 Line {l1=0x2e, l2=»HLKOD: EQU #67 ;ULOVLIG OPERATIONSKODE«, l3=0x2e}
0x2120…2123 Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x2126…216e Line {l1=0x46, l2=»;*********************************************************************«, l3=0x46}
0x216e…2183 Line {l1=0x13, l2=»; PRIORITETSGRÆNSER«, l3=0x13}
0x2183…21cb Line {l1=0x46, l2=»;*********************************************************************«, l3=0x46}
0x21cb…21ce Line {l1=0x01, l2=»;«, l3=0x01}
0x21ce…2214 Line {l1=0x44, l2=»MINPR: EQU 4 ;HØJESTE TILLADTE PRIORITET (NUMERISK MINDST)«, l3=0x44}
0x2214…2259 Line {l1=0x43, l2=»MAXPR: EQU 8 ;LAVEST TILLADTE PRIORITET (NUMERISK STØRST)«, l3=0x43}
0x2259…225c Line {l1=0x01, l2=»;«, l3=0x01}
[…0x1…]
0x225f…22a7 Line {l1=0x46, l2=»;*********************************************************************«, l3=0x46}
0x22a7…22ee Line {l1=0x45, l2=»; RELATIVE ADRESSER I TERMINALBESKRIVELSEN I OPERATØRKOMMUNIKATIONEN.«, l3=0x45}
0x22ee…2336 Line {l1=0x46, l2=»;*********************************************************************«, l3=0x46}
0x2336…2339 Line {l1=0x01, l2=»;«, l3=0x01}
0x2339…2369 Line {l1=0x2e, l2=»OPSMK: EQU 2 ;TERMINALSEMAFORADRESSE«, l3=0x2e}
0x2369…2398 Line {l1=0x2d, l2=»OPSMP: EQU 4 ;PRINTERSEMAFORADRESSE«, l3=0x2d}
0x2398…23d3 Line {l1=0x39, l2=»OPREG: EQU 6 ;REGIONSBESKRIVELSE (TYPE OG BANK)«, l3=0x39}
0x23d3…23d6 Line {l1=0x01, l2=»;«, l3=0x01}
0x23d6…2419 Line {l1=0x41, l2=»OPLÆN: EQU 7 ;LÆNGDE AF ROM DATAOMRÅDE FOR EEN TERMINAL«, l3=0x41}
0x2419…241c Line {l1=0x01, l2=»;«, l3=0x01}
0x241c…244a Line {l1=0x2c, l2=»OPSMC: EQU 0 ;KONSOLSEMAFORADRESSE«, l3=0x2c}
0x244a…2476 Line {l1=0x2a, l2=»OPSML: EQU 2 ;LISTSEMAFORADRESSE«, l3=0x2a}
0x2476…24a2 Line {l1=0x2a, l2=»OPSMF: EQU 4 ;FEJLSEMAFORADRESSE«, l3=0x2a}
0x24a2…24d3 Line {l1=0x2f, l2=»OPBRK: EQU 6 ;BREAK FLAG FOR TERMINAL«, l3=0x2f}
0x24d3…250f Line {l1=0x3a, l2=»OPFIL: EQU 7 ;(RESERVERET FREMTIDIGE UDVIDELSER)«, l3=0x3a}
0x250f…2548 Line {l1=0x37, l2=»OPBUF: EQU 9 ;TERMINAL INDDATA BUFFER (OPKOM)«, l3=0x37}
0x2548…254b Line {l1=0x01, l2=»;«, l3=0x01}
0x254b…2563 Line {l1=0x16, l2=»; VARIABELT DATAOMRÅDE«, l3=0x16}
0x2563…2566 Line {l1=0x01, l2=»;«, l3=0x01}
0x2566…2573 Line {l1=0x0b, l2=» LIST«, l3=0x0b}
0x2573…2580 00 00 49 3a e1 4b 3c c8 3a e8 4b e6 80 ┆ I: K< : K ┆
0x2580…25a0 ca 10 4a 3a f1 4b fe 4b ca 79 4a fe 52 ca 79 4a 21 1f 00 22 0b 4c 22 3b 56 21 da 4a e5 21 e9 4b ┆ J: K K yJ R yJ! " L";V! J ! K┆
0x25a0…25c0 e5 cd be 00 a7 c2 af 4a 21 da 4a e5 21 19 56 e5 cd bb 00 a7 c2 af 4a 21 20 00 22 0b 4c 22 3b 56 ┆ J! J ! V J! " L";V┆
0x25c0…25e0 21 da 4a e5 21 e9 4b e5 cd be 00 fe 0c ca ae 4a a7 c2 af 4a 21 da 4a e5 21 19 56 e5 cd bb 00 fe ┆! J ! K J J! J ! V ┆
0x25e0…2600 0c ca 6b 4a a7 c2 af 4a c3 40 4a 21 19 56 e5 cd 78 63 a7 c2 af 4a c3 54 4a 21 da 4a e5 21 e9 4b ┆ kJ J @J! V xc J TJ! J ! K┆
0x2600…2620 e5 cd d4 65 fe 0c ca 8e 4a fe 13 c2 93 4a 06 00 c3 97 4a a7 c2 af 4a 21 d9 4a e5 70 21 19 56 e5 ┆ e J J J J! J p! V ┆
0x2620…2640 cd 27 66 a7 c2 af 4a 3a d9 4a a7 c2 79 4a 97 f5 21 e9 4b e5 cd c1 00 21 19 56 e5 cd c1 00 f1 c9 ┆ 'f J: J yJ ! K ! V ┆
0x2640…2660 21 0a 00 e5 2a e6 4b e5 3a f1 4b 67 e5 2a e4 4b e5 21 19 56 e5 cd 59 66 c9 76 76 76 76 76 76 76 ┆! * K : Kg * K ! V Yf vvvvvvv┆
0x2660…2680 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 76 ┆vvvvvvvvvvvvvvvvvvvvvvvvvvvvvvvv┆
[…0x8…]