DataMuseum.dk Presents historical artifacts from the history of: CR80 Hard and Floppy Disks

This is an automatic "excavation" of a thematic subset of artifacts from Datamuseum.dk's BitArchive. See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦4465f65d8⟧

    Length: 1482 (0x5ca)
    Names: »MTCBINIT«

Derivation

└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
    └─⟦777b1406f⟧ 
        └─ ⟦this⟧ »ISH.D!MTCBINIT« 

Hex Dump

0x000…020 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆;-------------------------------┆
0x020…040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆--------------------------------┆
0x040…060 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 20 50 52 4f 43 45 44 55 52 45 20 22 49 4e 49 54   ┆-------------- ; PROCEDURE "INIT┆
0x060…080 49 41 4c 49 5a 45 20 4d 54 43 42 22 28 4d 54 43 42 49 4e 49 54 29 2e 0a 3b 0a 3b 20 43 41 4c 4c   ┆IALIZE MTCB"(MTCBINIT). ; ; CALL┆
0x080…0a0 53 20 54 4f 3a 20 20 20 20 4d 4f 4e 20 49 4e 49 54 4d 54 43 42 0a 3b 20 20 20 20 20 20 20 20 20   ┆S TO:    MON INITMTCB ;         ┆
0x0a0…0c0 20 20 20 20 20 4d 4f 4e 20 49 4f 2c 47 45 54 52 4f 4f 54 0a 3b 0a 3b 20 52 45 47 49 53 54 45 52   ┆     MON IO,GETROOT ; ; REGISTER┆
0x0c0…0e0 20 55 53 45 20 20 20 20 20 20 20 20 45 4e 54 52 59 20 20 20 20 20 20 20 20 20 20 20 20 45 58 49   ┆ USE        ENTRY            EXI┆
0x0e0…100 54 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 35 20 20 20 20 20 4c 49 4e 4b 20 20 20 20   ┆T ;              R5     LINK    ┆
0x100…120 20 20 20 20 20 20 20 20 20 4b 45 50 54 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 2d   ┆         KEPT ;              R0-┆
0x120…140 52 34 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 53 54 52 4f 59 45 44 0a 3b   ┆R4  -                DESTROYED ;┆
0x140…160 0a 3b 20 52 45 54 55 52 4e 53 3a 20 20 20 20 20 4c 49 4e 4b 2b 30 3a 44 4f 4e 45 0a 3b 20 20 20   ┆ ; RETURNS:     LINK+0:DONE ;   ┆
0x160…180 20 20 20 20 20 20 20 20 20 20 20 55 52 45 58 58 58 3a 45 52 52 4f 52 0a 3b 2d 2d 2d 2d 2d 2d 2d   ┆           UREXXX:ERROR ;-------┆
0x180…1a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆--------------------------------┆
       […0x1…]
0x1c0…1e0 2d 2d 2d 2d 2d 2d 0a 55 53 45 20 42 41 53 45 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆------ USE BASE                 ┆
0x1e0…200 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 4c 41 59 4f 55 54 20 4f 46 20 4c 4f 43 41 4c 20 44 41   ┆            ; LAYOUT OF LOCAL DA┆
0x200…220 54 41 2f 57 4f 52 4b 0a 49 46 49 4c 53 59 53 4e 41 4d 45 3a 20 20 20 3c 3a 44 4d 41 30 30 30 3a   ┆TA/WORK IFILSYSNAME:   <:DMA000:┆
0x220…240 3e 2c 30 2c 3c 3a 46 49 4c 45 3a 3e 20 3b 20 46 49 4c 45 53 59 53 54 45 4d 20 4e 41 4d 45 0a 49   ┆>,0,<:FILE:> ; FILESYSTEM NAME I┆
0x240…260 56 4f 4c 55 4d 45 4e 41 4d 45 3a 20 20 20 3c 3a 53 43 43 3a 3e 2c 30 2c 52 45 50 45 41 54 20 35   ┆VOLUMENAME:   <:SCC:>,0,REPEAT 5┆
0x260…280 20 20 20 20 3b 20 56 4f 4c 55 4d 45 20 4e 41 4d 45 0a 49 57 4f 52 4b 3a 20 20 20 20 20 20 20 20   ┆    ; VOLUME NAME IWORK:        ┆
0x280…2a0 20 30 2c 52 45 50 45 41 54 20 37 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 57 4f 52 4b 20 41 52   ┆ 0,REPEAT 7            ; WORK AR┆
0x2a0…2c0 45 41 0a 55 53 45 20 50 52 4f 47 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆EA USE PROG                     ┆
0x2c0…2e0 20 20 20 20 20 20 20 20 3b 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆        ; ;---------------------┆
0x2e0…300 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆--------------------------------┆
0x300…320 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 4d 54 43 42 49 4e 49   ┆------------------------ MTCBINI┆
0x320…340 54 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 42   ┆T:                            ;B┆
0x340…360 45 47 49 4e 20 4d 54 43 42 49 4e 49 54 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 49 46 49   ┆EGIN MTCBINIT          MOVC  IFI┆
0x360…380 4c 53 59 53 4e 41 4d 45 20 20 20 20 20 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f   ┆LSYSNAME       R0  ;          MO┆
0x380…3a0 56 43 20 20 49 56 4f 4c 55 4d 45 4e 41 4d 45 20 20 20 20 20 20 20 52 31 20 20 3b 0a 20 20 20 20   ┆VC  IVOLUMENAME       R1  ;     ┆
0x3a0…3c0 20 20 20 20 20 4d 4f 4e 20 20 20 49 4f 2c 47 45 54 52 4f 4f 54 20 20 20 20 20 20 20 20 20 20 20   ┆     MON   IO,GETROOT           ┆
0x3c0…3e0 20 3b 20 20 20 22 47 45 54 2d 52 4f 4f 54 22 28 46 49 4c 53 59 53 2c 56 4f 4c 29 0a 20 20 20 20   ┆ ;   "GET-ROOT"(FILSYS,VOL)     ┆
0x3e0…400 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 53 34 20 20 55 52 45 30 30 33 20 20 20 20   ┆     JMPI         S4  URE003    ┆
0x400…420 20 3b 45 20 20 58 30 3a 45 52 52 4f 52 2c 52 45 50 4f 52 54 20 45 52 52 4f 52 0a 20 20 20 20 20   ┆ ;E  X0:ERROR,REPORT ERROR      ┆
0x420…440 20 20 20 20 4d 4f 56 43 20 20 4d 41 43 43 41 4c 4c 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20   ┆    MOVC  MACCALL           R0  ┆
0x440…460 3b 20 20 20 58 31 3a 44 4f 4e 45 2c 52 34 3d 46 44 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20   ┆;   X1:DONE,R4=FD          MOVC ┆
0x460…480 20 49 57 4f 52 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 20 20 3b 0a 20 20 20 20 20 20 20   ┆ IWORK             R1  ;        ┆
0x480…4a0 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 34 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 0a   ┆  MOV          R4         R2  ; ┆
0x4a0…4c0 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 34 20 20 20 20 20 20 20 20   ┆         MOV          R4        ┆
0x4c0…4e0 20 52 33 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 54 43 42 2c 49 4e 49 54 4d   ┆ R3  ;          MON   MTCB,INITM┆
0x4e0…500 54 43 42 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 49 4e 49 54 2d 4d 54 43 42 22 0a 20 20 20 20   ┆TCB         ;   "INIT-MTCB"     ┆
0x500…520 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 53 34 20 20 55 52 45 30 30 32 20 20 20 20   ┆     JMPI         S4  URE002    ┆
0x520…540 20 3b 45 20 20 58 30 3a 45 52 52 4f 52 2c 52 45 50 4f 52 54 20 45 52 52 4f 52 0a 20 20 20 20 20   ┆ ;E  X0:ERROR,REPORT ERROR      ┆
0x540…560 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 20 20 20 20 20 58 35 20 20   ┆    JMP              0.     X5  ┆
0x560…580 3b 20 20 20 58 31 3a 44 4f 4e 45 2c 52 45 54 55 52 4e 20 4c 49 4e 4b 2b 30 0a 3b 2d 2d 2d 2d 2d   ┆;   X1:DONE,RETURN LINK+0 ;-----┆
0x580…5a0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d   ┆--------------------------------┆
       […0x1…]
0x5c0…5ca 2d 2d 2d 2d 2d 2d 2d 2d 20 1a   ┆--------  ┆