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

⟦7ccfdf41a⟧

    Length: 1920 (0x780)
    Names: »ENQCMCM«

Derivation

└─⟦80dc9b589⟧ Bits:30005096 8" CR80 Floppy CR80FD_0053 ( HMDIR 6 VOL: BACKUP MD: CPM.D From: HMDIR*CPM.D )
    └─⟦08785f861⟧ 
        └─ ⟦this⟧ »CPM.D!ENQCMCM« 

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 45 4e 51 55 45 55 45 5f 43 54 52   ┆------- ; PROCEDURE "ENQUEUE_CTR┆
0x060…080 4c 4d 53 47 5f 43 4d 22 28 45 4e 51 43 4d 43 4d 29 2e 0a 3b 0a 3b 20 4e 41 52 52 41 54 49 56 45   ┆LMSG_CM"(ENQCMCM). ; ; NARRATIVE┆
0x080…0a0 3a 0a 3b 20 41 20 43 4f 4e 54 52 4f 4c 20 4d 45 53 53 41 47 45 20 52 45 43 49 45 56 45 44 20 46   ┆: ; A CONTROL MESSAGE RECIEVED F┆
0x0a0…0c0 52 4f 4d 20 46 49 4b 53 20 54 4f 20 54 48 45 20 27 4e 53 43 27 20 49 53 20 45 4e 51 55 45 55 45   ┆ROM FIKS TO THE 'NSC' IS ENQUEUE┆
0x0c0…0e0 44 20 49 4e 0a 3b 20 54 48 45 20 51 55 45 55 45 20 27 43 4d 27 2e 54 48 45 20 4d 50 4e 43 20 49   ┆D IN ; THE QUEUE 'CM'.THE MPNC I┆
0x0e0…100 53 20 4c 4f 41 44 45 44 20 57 49 54 48 20 54 48 45 20 55 4e 50 41 43 4b 45 44 20 4d 54 43 42 2c   ┆S LOADED WITH THE UNPACKED MTCB,┆
0x100…120 41 4e 44 20 54 48 45 0a 3b 20 43 4d 4d 46 44 43 42 20 48 4f 4c 44 53 20 54 48 45 20 43 4f 4e 54   ┆AND THE ; CMMFDCB HOLDS THE CONT┆
0x120…140 52 4f 4c 20 4d 45 53 53 41 47 45 20 48 45 41 44 45 52 20 55 50 4f 4e 20 45 4e 54 52 59 2c 41 4e   ┆ROL MESSAGE HEADER UPON ENTRY,AN┆
0x140…160 44 20 49 53 20 55 53 45 44 20 54 4f 0a 3b 20 55 50 44 41 54 45 20 54 48 45 20 4d 54 43 42 20 54   ┆D IS USED TO ; UPDATE THE MTCB T┆
0x160…180 4f 20 49 4e 43 4c 55 44 45 20 43 41 54 2b 54 59 50 45 2c 4f 52 49 47 49 4e 41 54 4f 52 20 41 4e   ┆O INCLUDE CAT+TYPE,ORIGINATOR AN┆
0x180…1a0 44 20 44 54 47 20 41 53 20 52 45 54 52 49 45 56 45 44 0a 3b 20 46 52 4f 4d 20 54 48 45 20 43 4f   ┆D DTG AS RETRIEVED ; FROM THE CO┆
0x1a0…1c0 4e 54 52 4f 4c 20 4d 45 53 53 41 47 45 2e 0a 3b 0a 3b 20 43 41 4c 4c 20 54 4f 3a 20 20 20 20 20   ┆NTROL MESSAGE. ; ; CALL TO:     ┆
0x1c0…1e0 4d 4f 4e 20 4d 54 43 42 2c 52 45 4c 45 41 53 45 4d 54 43 42 0a 3b 0a 3b 20 49 4e 50 55 54 3a 20   ┆MON MTCB,RELEASEMTCB ; ; INPUT: ┆
0x1e0…200 20 20 20 20 20 20 43 4d 4d 46 44 43 42 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4d 54   ┆      CMMFDCB ;              CMT┆
0x200…220 43 42 58 0a 3b 0a 3b 20 4f 55 54 50 55 54 3a 20 20 20 20 20 20 43 54 52 4c 4d 53 47 3d 3e 43 4d   ┆CBX ; ; OUTPUT:      CTRLMSG=>CM┆
0x220…240 0a 3b 0a 3b 20 57 4f 52 4b 3a 20 20 20 20 20 20 20 20 4d 50 4e 43 0a 3b 0a 3b 20 52 45 47 49 53   ┆ ; ; WORK:        MPNC ; ; REGIS┆
0x240…260 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 20 20 20 20   ┆TER USE:       ENTRY            ┆
0x260…280 20 20 45 58 49 54 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 35 3d   ┆  EXIT ;                     R5=┆
0x280…2a0 4c 49 4e 4b 20 20 20 20 20 20 20 20 20 20 20 20 52 30 2d 52 37 20 44 45 53 54 52 4f 59 45 44 0a   ┆LINK            R0-R7 DESTROYED ┆
0x2a0…2c0 3b 0a 3b 20 43 41 4c 4c 53 20 54 4f 3a 20 20 20 20 4d 4f 4e 20 4d 49 4f 2c 4d 50 55 54 4d 54 43   ┆; ; CALLS TO:    MON MIO,MPUTMTC┆
0x2c0…2e0 42 2f 4d 45 4e 51 51 45 0a 3b 0a 3b 20 52 45 54 55 52 4e 53 3a 20 20 20 20 20 4c 49 4e 4b 2b 30   ┆B/MENQQE ; ; RETURNS:     LINK+0┆
0x2e0…300 3a 44 4f 4e 45 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 55 52 45 58 58 58 3a 45 52 52 4f   ┆:DONE ;              UREXXX:ERRO┆
0x300…320 52 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 2d 2d 2d 2d 2d   ┆R ;-----------------------------┆
0x320…340 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   ┆--------------------------------┆
0x340…360 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 45 4e 51 43 4d 43 4d 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆--------- ENQCMCM:              ┆
0x360…380 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 45 4e 51 43 4d 43 4d 0a 20 20   ┆               ;BEGIN ENQCMCM   ┆
0x380…3a0 20 20 20 20 20 20 20 4d 4f 56 43 20 20 42 48 43 41 54 54 59 50 2b 43 4d 43 44 41 54 20 20 20 52   ┆       MOVC  BHCATTYP+CMCDAT   R┆
0x3a0…3c0 34 20 20 3b 20 20 20 53 4f 55 52 43 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 50 52   ┆4  ;   SOURCE          MOVC  MPR┆
0x3c0…3e0 57 44 34 2b 4d 50 4e 43 20 20 20 20 20 20 20 52 36 20 20 3b 20 20 20 4f 42 4a 45 43 54 0a 20 20   ┆WD4+MPNC       R6  ;   OBJECT   ┆
0x3e0…400 20 20 20 20 20 20 20 4d 4f 44 43 20 20 42 48 4f 52 47 2d 42 48 43 41 54 54 59 50 2b 31 20 20 20   ┆       MODC  BHORG-BHCATTYP+1   ┆
0x400…420 20 20 20 3b 20 20 20 43 4f 50 59 20 43 41 54 2b 54 59 50 2c 4f 52 49 47 49 4e 41 54 4f 52 2c 0a   ┆   ;   COPY CAT+TYP,ORIGINATOR, ┆
0x420…440 20 20 20 20 20 20 20 20 20 4d 4f 56 4d 20 20 20 20 20 20 20 20 20 58 34 20 20 20 20 20 20 20 20   ┆         MOVM         X4        ┆
0x440…460 20 58 36 20 20 3b 20 20 20 44 54 47 20 54 4f 20 4d 50 4e 43 0a 20 20 20 20 20 20 20 20 20 4d 4f   ┆ X6  ;   DTG TO MPNC          MO┆
0x460…480 56 43 20 20 4d 50 4e 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 0a 20 20 20 20   ┆VC  MPNC              R4  ;     ┆
0x480…4a0 20 20 20 20 20 4d 4f 56 20 20 20 43 4d 54 43 42 58 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20   ┆     MOV   CMTCBX            R0 ┆
0x4a0…4c0 20 3b 20 20 20 47 45 54 20 4d 54 43 42 20 49 4e 44 45 58 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e   ┆ ;   GET MTCB INDEX          MON┆
0x4c0…4e0 20 20 20 4d 49 4f 2c 4d 50 55 54 4d 54 43 42 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 57 52 49   ┆   MIO,MPUTMTCB          ;   WRI┆
0x4e0…500 54 45 20 4d 54 43 42 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   ┆TE MTCB          JMPI  &      S4┆
0x500…520 20 20 55 52 45 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   ┆  URE001     ;E  X0:ERROR,REPORT┆
0x520…540 20 45 52 52 4f 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   ┆ ERROR                          ┆
0x540…560 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 58 31 3a 4d 54 43 42 20 55 50 44 41 54 45 44 0a   ┆            ;   X1:MTCB UPDATED ┆
0x560…580 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 51 44 43 4d 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆         MOVC  QDCM             ┆
0x580…5a0 20 52 34 20 20 3b 20 20 20 51 55 45 55 45 3d 43 4d 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20   ┆ R4  ;   QUEUE=CM          MON  ┆
0x5a0…5c0 20 4d 49 4f 2c 4d 45 4e 51 51 45 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 45 4e 51 55   ┆ MIO,MENQQE            ;   "ENQU┆
0x5c0…5e0 45 55 45 5f 51 45 22 28 52 30 3d 4d 54 43 42 58 29 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20   ┆EUE_QE"(R0=MTCBX)          JMPI ┆
0x5e0…600 20 26 20 20 20 20 20 20 53 34 20 20 55 52 45 30 30 31 20 20 20 20 20 3b 20 20 20 58 30 3a 45 52   ┆ &      S4  URE001     ;   X0:ER┆
0x600…620 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 20 20 20 20 20   ┆ROR,REPORT ERROR                ┆
0x620…640 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 31 3a 4d 54 43   ┆                      ;   X1:MTC┆
0x640…660 42 20 45 4e 51 55 45 55 45 44 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 54 43 42 2c 52   ┆B ENQUEUED          MON   MTCB,R┆
0x660…680 45 4c 45 41 53 45 4d 54 43 42 20 20 20 20 20 20 3b 20 20 20 22 52 45 4c 45 41 53 45 2d 4d 54 43   ┆ELEASEMTCB      ;   "RELEASE-MTC┆
0x680…6a0 42 22 28 52 30 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   ┆B"(R0)          JMPI  &      S4 ┆
0x6a0…6c0 20 55 52 45 30 30 32 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   ┆ URE002     ;E  X0:ERROR,REPORT ┆
0x6c0…6e0 45 52 52 4f 52 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆ERROR          JMP              ┆
0x6e0…700 30 2e 20 20 20 20 20 58 35 20 20 3b 20 20 20 58 31 3a 44 4f 4e 45 2c 52 45 54 55 52 4e 20 4c 49   ┆0.     X5  ;   X1:DONE,RETURN LI┆
0x700…720 4e 4b 2b 30 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   ┆NK+0                            ┆
0x720…740 20 20 20 20 20 20 20 20 20 20 3b 45 4e 44 20 45 4e 51 43 4d 43 4d 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d   ┆          ;END ENQCMCM ;--------┆
0x740…760 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   ┆--------------------------------┆
0x760…780 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 20 1a   ┆------------------------------  ┆