DataMuseum.dk

Presents historical artifacts from the history of:

MIKADOS

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about MIKADOS

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download

⟦97117a4d6⟧ 

    Length: 2528 (0x9e0)
    Notes: Mikados TextFile, Mikados_K
    Names: »PERSDATA«

Derivation

└─⟦ca21ef4c0⟧ Bits:30005311 Extended Pascal System Disc v. 04.07.1980 (SPC/1)
    └─⟦this⟧ »PERSDATA«

Text

KADLING AF FEJLSITUATIONER;MFFJL: IF      NOT+MIDMA	       EI	       CALL    VMBSY\f

       ENDIF\f

;-       LXI     H,DRTRY ;HAR VI FLERE FORSØG ?-       DCR     M+       JZ      DIFJ5   ;NEJ, PERMANENT FEJL+;-       MVI     A,MFRST ;JA, LAV FØRST RESTORE-       OUT     MFCON/       CALL    VMBSY   ;VENT PÅ CONTROLLER KLAR/;       IN      MFCON0       ANI     04      ;ER HOVEDET OVER SPOR 0 ?06       JNZ     MFSEL   ;JA, SÅ FORSØG OPERATIONEN IGEN6&       JMP     MFFJL   ;NEJ, FEJL PÅNY&;;'MVENT: MVI     A,3     ;VENT ET ØJEBLIK'MVEN1: DCR     A       JNZ     MVEN1       ENDIF           ;MINIF
       RET
;;       IF      STDRD       DS      5C0-$+DISCI\f

       ENDIF\f

       SKIP;>;*************************************************************>\f

; DATAOMRÅDE\f

;;; BEMÆRK: HJÆLPEBUFFEREN TIL PERTEC DRIVPROGRAMMET LIGGER I;";         MIK DATAMODULET (MDATA).">;*************************************************************>;
       RAM
#DIBUF: DS      2       ;SVARSEMAFOR#&DOPCD: DS      1       ;OPERATIONSKODE&       DS      15DBFAL: DS      2       ;STARTADRESSE FOR BRUGERBUFFER5%DANT0: DS      1       ;SKAL VÆRE NUL%4DANT1: DS      1       ;ANTAL SEKTORER DER OVERFØRES4,DPLAD: DS      2       ;PLADELAGERBETEGNELSE,#DSPOR: DS      2       ;SPORADRESSE#%DSEKT: DS      1       ;SEKTORADRESSE%;8DPLDR: DS      2       ;ADRESSE PÅ PLADELAGERBESKRIVELSE81DANTR: DS      1       ;ANTAL RESTERENDE SEKTORER1(DBFLG: DS      1       ;BANK-SWITCH FLAG(;?DISK0: DS      1       ;STATUS FOR PERTEC PLADELAGER VED SIDSTE?#DISK1: DS      1       ; AFBRYDELSE#D       DS      1       ;ADVARSEL: DENNE OKTET ADRESSERES INDIREKTE !D;DSKT1: EQU     DISK0DSPR1: EQU     DISK1;9DRTRY: DS      1       ;TÆLLER FOR ANTAL RETRANSMISSIONER9DANTF: DS      1*DCMD0: DS      1       ;PLADELAGERKOMMANDO*DCOM:  DS      1/DSKPS: DS      1       ;ANTAL SEKTORER PR. SPOR/;3DBFS:  DS      2       ;STARTADRESSE FOR OVERFØRSEL3BDBADR: DS      2       ;STARTADRESSE FOR I/U BUFFER (BRUGER- ELLERB&                       ; HJÆLPEBUFFER)&;9DLSTM: DS      1       ;IDENTIFIKATION AF SIDSTE MINIDISC9@DMMES: DS      2       ;PIL TIL AKTIV TIDSOVERVÅGNINGSMEDDELELSE@;@DMAFL::DS      1       ;DMA AKTIV FLAG - 0: DMA LEDIG, P: PERTEC@6                       ;