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

⟦5d0c66c86⟧

    Length: 1840 (0x730)
    Names: »INCTRLMSG«

Derivation

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

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 0a 3b 20 50 52 4f 43 45 44 55 52 45 20 22 49 4e 5f 43 4f 4e 54 52 4f 4c 5f   ┆------- ; PROCEDURE "IN_CONTROL_┆
0x060…080 4d 45 53 53 41 47 45 22 28 49 4e 43 54 52 4c 4d 53 47 29 2e 0a 3b 0a 3b 20 4e 41 52 52 41 54 49   ┆MESSAGE"(INCTRLMSG). ; ; NARRATI┆
0x080…0a0 56 45 3a 0a 3b 20 54 48 45 20 43 4f 4e 54 52 4f 4c 20 4d 45 53 53 41 47 45 20 44 45 53 49 47 4e   ┆VE: ; THE CONTROL MESSAGE DESIGN┆
0x0a0…0c0 41 54 45 44 20 42 59 20 27 43 4d 54 43 42 58 27 20 49 53 20 52 45 54 52 49 45 56 45 44 2c 41 4e   ┆ATED BY 'CMTCBX' IS RETRIEVED,AN┆
0x0c0…0e0 44 20 4c 4f 41 44 45 44 0a 3b 20 54 4f 20 27 43 4d 4d 46 44 43 42 27 2e 43 41 54 45 47 4f 52 59   ┆D LOADED ; TO 'CMMFDCB'.CATEGORY┆
0x0e0…100 20 41 4e 44 20 54 59 50 45 20 49 53 20 52 45 54 41 49 4e 45 44 20 28 43 41 54 2c 54 59 50 45 29   ┆ AND TYPE IS RETAINED (CAT,TYPE)┆
0x100…120 20 41 4e 44 20 53 54 4f 52 45 44 0a 3b 20 49 4e 20 27 43 43 41 54 54 59 50 2e 0a 3b 0a 3b 20 52   ┆ AND STORED ; IN 'CCATTYP. ; ; R┆
0x120…140 45 47 49 53 54 45 52 20 55 53 45 3a 20 20 20 20 20 20 20 45 4e 54 52 59 20 20 20 20 20 20 20 20   ┆EGISTER USE:       ENTRY        ┆
0x140…160 20 20 20 20 20 20 45 58 49 54 0a 3b 20 20 20 20 20 20 20 20 52 30 2d 52 34 20 20 20 20 20 20 20   ┆      EXIT ;        R0-R4       ┆
0x160…180 20 2d 20 20 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 20   ┆ -                  DESTROYED ; ┆
0x180…1a0 20 20 20 20 20 20 20 52 35 20 20 20 20 20 20 20 20 20 20 20 4c 49 4e 4b 20 20 20 20 20 20 20 20   ┆       R5           LINK        ┆
0x1a0…1c0 20 20 20 20 20 20 20 44 45 53 54 52 4f 59 45 44 0a 3b 20 20 20 20 20 20 20 20 52 37 20 20 20 20   ┆       DESTROYED ;        R7    ┆
0x1c0…1e0 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 53 54 52 4f   ┆       -                  DESTRO┆
0x1e0…200 59 45 44 0a 3b 0a 3b 20 43 41 4c 4c 53 20 54 4f 3a 20 20 20 20 4d 49 4f 2c 4d 4f 50 45 4e 0a 3b   ┆YED ; ; CALLS TO:    MIO,MOPEN ;┆
0x200…220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 49 4f 2c 4d 4c 4f 41 44 0a 3b 20 20 20 20 20 20 20   ┆              MIO,MLOAD ;       ┆
0x220…240 20 20 20 20 20 20 20 4d 49 4f 2c 4d 43 4c 4f 53 45 0a 3b 0a 3b 20 49 4e 50 55 54 3a 20 20 20 20   ┆       MIO,MCLOSE ; ; INPUT:    ┆
0x240…260 20 20 20 43 4d 54 43 42 58 0a 3b 0a 3b 20 4f 55 54 50 55 54 3a 20 20 20 20 20 20 43 43 41 54 54   ┆   CMTCBX ; ; OUTPUT:      CCATT┆
0x260…280 59 50 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4d 4d 46 44 43 42 0a 3b 0a 3b 20 52 45   ┆YP ;              CMMFDCB ; ; RE┆
0x280…2a0 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 20 20 20 20 20   ┆TURNS:     LINK+0:DONE ;        ┆
0x2a0…2c0 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 2d 2d 2d 2d 2d   ┆      UREXXX:ERROR ;------------┆
0x2c0…2e0 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   ┆--------------------------------┆
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 0a 49 4e 43 54 52   ┆-------------------------- INCTR┆
0x300…320 4c 4d 53 47 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   ┆LMSG:                           ┆
0x320…340 3b 42 45 47 49 4e 20 49 4e 43 54 52 4c 4d 53 47 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20   ┆;BEGIN INCTRLMSG          MOV   ┆
0x340…360 20 20 20 20 20 20 20 52 35 20 20 52 4c 4d 31 30 30 20 20 20 20 20 3b 20 20 20 53 41 56 45 20 4c   ┆       R5  RLM100     ;   SAVE L┆
0x360…380 49 4e 4b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 43 4d 54 43 42 58 20 20 20 20 20 20 20   ┆INK          MOV   CMTCBX       ┆
0x380…3a0 20 20 20 20 20 52 30 20 20 3b 20 20 20 47 45 54 20 4d 54 43 42 20 49 4e 44 45 58 0a 20 20 20 20   ┆     R0  ;   GET MTCB INDEX     ┆
0x3a0…3c0 20 20 20 20 20 4d 4f 56 43 20 20 43 4d 4d 46 44 43 42 20 20 20 20 20 20 20 20 20 20 20 52 34 20   ┆     MOVC  CMMFDCB           R4 ┆
0x3c0…3e0 20 3b 20 20 20 52 34 3d 52 45 46 2e 54 4f 20 4d 46 44 43 42 0a 20 20 20 20 20 20 20 20 20 4d 4f   ┆ ;   R4=REF.TO MFDCB          MO┆
0x3e0…400 4e 20 20 20 4d 49 4f 2c 4d 4f 50 45 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 4f   ┆N   MIO,MOPEN             ;   "O┆
0x400…420 50 45 4e 5f 43 54 52 4c 4d 53 47 22 28 52 30 3d 4d 54 43 42 58 29 0a 20 20 20 20 20 20 20 20 20   ┆PEN_CTRLMSG"(R0=MTCBX)          ┆
0x420…440 4a 4d 50 49 20 20 26 20 20 20 20 20 20 53 34 20 20 55 52 45 30 30 31 20 20 20 20 20 3b 45 20 20   ┆JMPI  &      S4  URE001     ;E  ┆
0x440…460 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 20 20 20 20 20   ┆X0:ERROR,REPORT ERROR           ┆
0x460…480 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 20 20 20 58   ┆                           ;   X┆
0x480…4a0 31 3a 46 49 4c 45 20 4f 50 45 4e 45 44 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f   ┆1:FILE OPENED          MON   MIO┆
0x4a0…4c0 2c 4d 4c 4f 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 52 45 41 44 5f 43 54 52   ┆,MLOAD             ;   "READ_CTR┆
0x4c0…4e0 4c 4d 53 47 22 28 52 34 3d 4d 46 44 43 42 29 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 26   ┆LMSG"(R4=MFDCB)          JMPI  &┆
0x4e0…500 20 20 20 20 20 20 53 34 20 20 55 52 45 30 30 31 20 20 20 20 20 3b 45 20 20 58 30 3a 45 52 52 4f   ┆      S4  URE001     ;E  X0:ERRO┆
0x500…520 52 2c 52 45 50 4f 52 54 20 45 52 52 4f 52 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆R,REPORT ERROR                  ┆
0x520…540 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 58 31 3a 43 54 52 4c 4d   ┆                    ;   X1:CTRLM┆
0x540…560 53 47 20 4c 4f 41 44 45 44 20 54 4f 20 4d 46 44 44 41 54 0a 20 20 20 20 20 20 20 20 20 4d 4f 56   ┆SG LOADED TO MFDDAT          MOV┆
0x560…580 20 20 42 48 43 41 54 54 59 50 2b 43 4d 43 48 45 41 44 20 20 20 20 52 31 20 3b 20 20 20 47 45 54   ┆  BHCATTYP+CMCHEAD    R1 ;   GET┆
0x580…5a0 20 28 43 41 54 2c 54 59 50 45 29 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20   ┆ (CAT,TYPE)          MOV        ┆
0x5a0…5c0 20 20 52 31 20 20 43 43 41 54 54 59 50 20 20 20 20 3b 20 20 20 41 4e 44 20 53 54 4f 52 45 20 49   ┆  R1  CCATTYP    ;   AND STORE I┆
0x5c0…5e0 54 2e 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f 2c 4d 43 4c 4f 53 45 20 20 20 20   ┆T.          MON   MIO,MCLOSE    ┆
0x5e0…600 20 20 20 20 20 20 20 20 3b 20 20 20 22 43 4c 4f 53 45 5f 46 49 4c 45 22 28 52 34 3d 4d 46 44 43   ┆        ;   "CLOSE_FILE"(R4=MFDC┆
0x600…620 42 29 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 26 20 20 20 20 20 20 53 34 20 20 55 52 45   ┆B)          JMPI  &      S4  URE┆
0x620…640 30 30 31 20 20 20 20 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   ┆001     ;E  X0:ERROR,REPORT ERRO┆
0x640…660 52 0a 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 20 20   ┆R                               ┆
0x660…680 20 20 20 20 20 20 20 3b 20 20 20 58 31 3a 52 30 3d 4d 54 43 42 20 49 4e 44 45 58 0a 20 20 20 20   ┆       ;   X1:R0=MTCB INDEX     ┆
0x680…6a0 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 20 20 20 20 52 4c 4d 31 30 30 20 20 20 20   ┆     JMPI             RLM100    ┆
0x6a0…6c0 20 3b 20 20 20 52 45 54 55 52 4e 20 4c 49 4e 4b 2b 30 0a 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ ;   RETURN LINK+0              ┆
0x6c0…6e0 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 45 4e 44 20 49 4e 43   ┆                        ;END INC┆
0x6e0…700 54 52 4c 4d 53 47 0a 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   ┆TRLMSG ;------------------------┆
0x700…720 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   ┆--------------------------------┆
0x720…730 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 1a   ┆--------------  ┆