|
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 - metrics - download
Length: 12640 (0x3160)
Notes: Mikados TextFile, Mikados_K
Names: »SYMB«
└─⟦e93ad20dd⟧ Bits:30005301 Mikados utility programs
└─⟦this⟧ »SYMB«
NLIST
;SYMBOLDEFINITIONER FOR MIK SYSTEM - CT-15.07.1981
; AA-14.09.1981
; FJUDV fejlkode tilføjet mh 03.11.1983
;
;COPYRIGHT (C) 1981 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 - I COND
DMAM: EQU 040 ;ADRESSE PÅ DMA MOVE SKIFTET 28021983 TWJ
;
;
;****************************************************************
; 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.
DSCID: EQU #11 ;DISC TYPE IDENTIFIKATION
BACYL: EQU #11 ;BASISCYLINDER.
FPLID2:EQU #12
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 PRINTERBESKRIVELSE
;
; 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
PKGRUP: EQU #48 ;ANTAL KATALOGGRUPPER-1.
PSPRGP: EQU #50 ;ANTAL KATALOGSEKTORER PR. GRUPPE.
PASPSP: EQU #51 ;ANTAL SEKTORER PR. SPOR
;
;
;*****************************************************************
; 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 61. GANG.
UDV60: EQU 8 ;FORSØG PÅ AT UDVIDE FILEN 61. 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.
FJUDV: EQU #20 ;'FILUD' I BASISFIL PASSER IKKE MED DET EGENTLIGE
;ANTAL FILUDVIDELSER.
;
PARMF: EQU #22 ;PARAMETER FEJL (SORT RUTINE)
;
NRESS: EQU #30 ;INTET LEDIGT RESSOURCEELEMENT.
;
NTRDY: EQU #40 ;PLADELAGER IKKE KLAR
DERRO: EQU #42 ;HÅRD FEJL PÅ PLADELAGER
TRFJL: EQU #43 ;TRANSMISSIONSFEJL
WPROT: EQU #44 ;PLADELAGER SKRIVEBESKYTTET
;
; SE OGSÅ FEJLKODER FRA HOVEDLAGERADMINISTRATIONSPROCESSEN
;
;*****************************************************************
; 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
HLALL: EQU #68 ;DATABUFFER ALLOKERING I OPKOM MISLYKKEDES
;
;
;*********************************************************************
; 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