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

⟦f947767c2⟧

    Length: 3618 (0xe22)
    Names: »TRANSMSG«

Derivation

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

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 0a 3b 20 50 52 4f 43 45 44 55 52 45 20 22 54 52 41 4e 53 4d 49 54 5f 4d   ┆-------- ; PROCEDURE "TRANSMIT_M┆
0x060…080 45 53 53 41 47 45 22 28 54 52 41 4e 53 4d 53 47 29 2e 0a 3b 0a 3b 20 4e 41 52 52 41 54 49 56 45   ┆ESSAGE"(TRANSMSG). ; ; NARRATIVE┆
0x080…0a0 3a 0a 3b 20 54 52 41 4e 53 4d 53 47 20 48 41 53 20 54 52 45 45 20 45 4e 54 52 49 45 53 2c 4f 4e   ┆: ; TRANSMSG HAS TREE ENTRIES,ON┆
0x0a0…0c0 45 20 46 4f 52 20 43 4f 4e 54 52 4f 4c 5f 4d 45 53 53 41 47 45 53 20 52 45 43 49 45 56 45 44 20   ┆E FOR CONTROL_MESSAGES RECIEVED ┆
0x0c0…0e0 56 49 41 20 27 4e 43 27 0a 3b 20 46 4f 52 20 4f 55 54 42 4f 55 4e 44 20 44 45 4c 49 56 45 52 59   ┆VIA 'NC' ; FOR OUTBOUND DELIVERY┆
0x0e0…100 2c 4f 4e 45 20 46 4f 52 20 4e 41 52 52 41 54 49 56 45 5f 4d 45 53 53 41 47 45 53 20 52 45 54 52   ┆,ONE FOR NARRATIVE_MESSAGES RETR┆
0x100…120 49 45 56 45 44 20 46 52 4f 4d 20 27 4e 4d 27 2d 0a 3b 20 51 55 45 55 45 2c 41 4e 44 20 4f 4e 45   ┆IEVED FROM 'NM'- ; QUEUE,AND ONE┆
0x120…140 20 46 4f 52 20 54 52 41 4e 53 4d 49 53 53 49 4f 4e 20 4f 46 20 4c 4f 43 41 4c 20 47 45 4e 45 52   ┆ FOR TRANSMISSION OF LOCAL GENER┆
0x140…160 41 54 45 44 20 4d 45 53 53 41 47 45 20 28 53 59 4e 43 4d 53 47 29 2e 0a 3b 20 54 48 45 20 52 4f   ┆ATED MESSAGE (SYNCMSG). ; THE RO┆
0x160…180 55 54 49 4e 47 20 4d 41 53 4b 20 49 53 20 52 45 54 52 49 45 56 45 44 20 46 52 4f 4d 20 54 48 45   ┆UTING MASK IS RETRIEVED FROM THE┆
0x180…1a0 20 52 4f 55 54 49 4e 47 5f 48 45 41 44 45 52 2c 41 4e 44 20 4c 4f 41 44 45 44 0a 3b 20 54 4f 20   ┆ ROUTING_HEADER,AND LOADED ; TO ┆
0x1a0…1c0 54 48 45 20 4d 54 43 42 20 28 43 4d 54 43 42 58 29 2e 4e 41 52 52 41 54 49 56 45 20 4d 45 53 53   ┆THE MTCB (CMTCBX).NARRATIVE MESS┆
0x1c0…1e0 41 47 45 53 20 41 52 45 20 49 4e 20 41 44 44 49 54 49 4f 4e 20 52 4f 55 54 45 44 20 54 4f 0a 3b   ┆AGES ARE IN ADDITION ROUTED TO ;┆
0x1e0…200 20 43 4f 4c 4c 4f 43 41 54 45 44 20 53 49 50 20 46 4f 52 20 41 43 43 4f 55 4e 54 49 4e 47 20 50   ┆ COLLOCATED SIP FOR ACCOUNTING P┆
0x200…220 55 52 50 4f 53 45 53 2c 41 4e 44 20 54 48 45 20 52 4f 55 54 49 4e 47 20 4d 41 53 4b 20 55 50 44   ┆URPOSES,AND THE ROUTING MASK UPD┆
0x220…240 41 54 45 44 0a 3b 20 41 43 43 4f 52 44 49 4e 47 4c 59 2e 54 48 45 20 4d 54 43 42 20 49 53 20 53   ┆ATED ; ACCORDINGLY.THE MTCB IS S┆
0x240…260 55 42 53 45 51 55 45 4e 54 4c 59 20 45 4e 51 55 45 55 45 44 20 49 4e 20 27 54 51 27 20 46 4f 52   ┆UBSEQUENTLY ENQUEUED IN 'TQ' FOR┆
0x260…280 20 54 52 41 4e 53 4d 49 53 2d 0a 3b 20 53 49 4f 4e 20 54 4f 20 46 49 4b 53 20 4e 45 54 57 4f 52   ┆ TRANSMIS- ; SION TO FIKS NETWOR┆
0x280…2a0 4b 2e 0a 3b 0a 3b 20 52 45 47 49 53 54 45 52 20 55 53 45 3a 20 20 20 20 20 20 20 45 4e 54 52 59   ┆K. ; ; REGISTER USE:       ENTRY┆
0x2a0…2c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 49 54 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20   ┆              EXIT ;            ┆
0x2c0…2e0 20 20 20 20 20 20 20 20 20 52 30 3d 4d 54 43 42 5f 49 4e 44 45 58 20 20 20 20 20 20 28 45 4e 54   ┆         R0=MTCB_INDEX      (ENT┆
0x2e0…300 52 59 20 54 52 41 4e 53 4d 53 47 29 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆RY TRANSMSG) ;                  ┆
0x300…320 20 20 20 52 32 2c 52 33 3d 52 4f 55 54 49 4e 47 5f 4d 41 53 4b 20 28 45 4e 54 52 59 20 54 52 41   ┆   R2,R3=ROUTING_MASK (ENTRY TRA┆
0x320…340 4e 53 4d 53 47 29 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 34 3d   ┆NSMSG) ;                     R4=┆
0x340…360 4d 50 43 42 20 20 20 20 20 20 20 20 20 20 20 20 28 45 4e 54 52 59 20 54 52 41 4e 53 4d 53 47 29   ┆MPCB            (ENTRY TRANSMSG)┆
0x360…380 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 4c 49 4e 4b 20 20   ┆ ;                     R5=LINK  ┆
0x380…3a0 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 3b 0a 3b 20 49 4e   ┆          R0-R7 DESTROYED ; ; IN┆
0x3a0…3c0 50 55 54 3a 20 20 20 20 20 20 20 4d 50 4e 4d 53 47 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆PUT:       MPNMSG ;             ┆
0x3c0…3e0 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 54 51 0a 3b 20 20 20   ┆ CMTCBX ; ; OUTPUT:      TQ ;   ┆
0x3e0…400 20 20 20 20 20 20 20 20 20 20 20 4d 50 43 4d 53 47 0a 3b 0a 3b 20 43 41 4c 4c 53 20 54 30 3a 20   ┆           MPCMSG ; ; CALLS T0: ┆
0x400…420 20 20 20 49 4e 43 54 52 4c 4d 53 47 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 4e 20   ┆   INCTRLMSG ;              MON ┆
0x420…440 4d 49 4f 2c 4d 50 55 54 4d 54 43 42 2f 4d 45 4e 51 51 45 0a 3b 20 20 20 20 20 20 20 20 20 20 20   ┆MIO,MPUTMTCB/MENQQE ;           ┆
0x440…460 20 20 20 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 52 45 54 55   ┆   MON MTCB,RELEASEMTCB ; ; RETU┆
0x460…480 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 20 20   ┆RNS:     LINK+0:DONE ;          ┆
0x480…4a0 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 2d 2d   ┆    UREXXX:ERROR ;--------------┆
0x4a0…4c0 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   ┆--------------------------------┆
0x4c0…4e0 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 43 4d 54 52 41 4e   ┆------------------------- CMTRAN┆
0x4e0…500 53 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 20 3b   ┆S:                             ;┆
0x500…520 42 45 47 49 4e 20 54 52 41 4e 53 43 4d 3a 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20   ┆BEGIN TRANSCM:          MOV     ┆
0x520…540 20 20 20 20 20 52 35 20 20 52 4c 49 31 30 30 20 20 20 20 20 3b 20 20 20 53 41 56 45 20 4c 49 4e   ┆     R5  RLI100     ;   SAVE LIN┆
0x540…560 4b 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 53 35 20 20 49 4e 43 54   ┆K          JMP          S5  INCT┆
0x560…580 52 4c 4d 53 47 20 20 3b 20 20 20 22 49 4e 5f 43 54 52 4c 5f 4d 53 47 22 28 43 4d 54 43 42 58 29   ┆RLMSG  ;   "IN_CTRL_MSG"(CMTCBX)┆
0x580…5a0 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 43 4d 43 44 41 54 20 20 20 20 20 20 20 20 20 20   ┆          MOVC  CMCDAT          ┆
0x5a0…5c0 20 20 52 34 20 20 3b 20 20 20 28 43 54 52 4c 4d 53 47 20 49 53 20 4c 4f 41 44 45 44 20 54 4f 20   ┆  R4  ;   (CTRLMSG IS LOADED TO ┆
0x5c0…5e0 43 4d 4d 46 44 43 42 29 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 4c 20 20 42 48 52 4d 53 4b 30 2e   ┆CMMFDCB)          MOVL  BHRMSK0.┆
0x5e0…600 58 34 20 20 20 20 20 20 20 20 52 32 33 20 3b 20 20 20 52 45 54 52 49 45 56 45 20 52 4f 55 54 49   ┆X4        R23 ;   RETRIEVE ROUTI┆
0x600…620 4e 47 20 4d 41 53 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   ┆NG MASK          MOV   CMTCBX   ┆
0x620…640 20 20 20 20 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   ┆         R0  ;   GET MTCB INDEX ┆
0x640…660 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 50 43 4d 53 47 20 20 20 20 20 20 20 20 20 20 20   ┆         MOVC  MPCMSG           ┆
0x660…680 20 52 34 20 20 3b 20 20 20 47 45 54 20 52 45 46 2e 54 4f 20 50 52 45 2e 41 53 53 2e 20 4d 54 43   ┆ R4  ;   GET REF.TO PRE.ASS. MTC┆
0x680…6a0 42 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 49 31 33 30   ┆B          JMP              I130┆
0x6a0…6c0 20 20 20 20 20 20 20 3b 20 20 20 47 4f 54 4f 20 45 4e 51 55 45 55 45 5f 4d 54 43 42 3a 0a 20 20   ┆       ;   GOTO ENQUEUE_MTCB:   ┆
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 20 20 20 20 20 20 20 20   ┆                                ┆
0x6e0…700 20 20 20 3b 0a 4e 4d 54 52 41 4e 53 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆   ; NMTRANS:                   ┆
0x700…720 20 20 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 54 52 41 4e 53 5f 4e 41 52 52 5f 4d 53 47 3a   ┆          ;BEGIN TRANS_NARR_MSG:┆
0x720…740 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 35 20 20 52 4c 49 31 30   ┆          MOV          R5  RLI10┆
0x740…760 30 20 20 20 20 20 3b 20 20 20 53 41 56 45 20 4c 49 4e 4b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56   ┆0     ;   SAVE LINK          MOV┆
0x760…780 20 20 20 43 52 4d 41 53 4b 2b 30 20 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 0a 20 20 20 20 20   ┆   CRMASK+0          R2  ;      ┆
0x780…7a0 20 20 20 20 4d 4f 56 20 20 20 43 52 4d 41 53 4b 2b 31 20 20 20 20 20 20 20 20 20 20 52 33 20 20   ┆    MOV   CRMASK+1          R3  ┆
0x7a0…7c0 3b 20 20 20 52 45 54 52 49 45 56 45 20 52 4f 55 54 49 4e 47 20 4d 41 53 4b 0a 20 20 20 20 20 20   ┆;   RETRIEVE ROUTING MASK       ┆
0x7c0…7e0 20 20 20 4d 4f 56 43 20 20 53 49 50 52 4d 53 4b 30 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b   ┆   MOVC  SIPRMSK0          R0  ;┆
0x7e0…800 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 53 49 50 52 4d 53 4b 31 20 20 20 20 20 20 20 20   ┆          MOVC  SIPRMSK1        ┆
0x800…820 20 20 52 31 20 20 3b 0a 20 20 20 20 20 20 20 20 20 49 4f 52 20 20 20 20 20 20 20 20 20 20 52 30   ┆  R1  ;          IOR          R0┆
0x820…840 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 20 55 50 44 41 54 45 20 52 4f 55 54 49 4e 47 20   ┆         R2  ;   UPDATE ROUTING ┆
0x840…860 4d 41 53 4b 20 54 4f 20 49 4e 2d 0a 20 20 20 20 20 20 20 20 20 49 4f 52 20 20 20 20 20 20 20 20   ┆MASK TO IN-          IOR        ┆
0x860…880 20 20 52 31 20 20 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 43 4c 55 44 45 20 43 4f 4c 4c 4f   ┆  R1         R3  ;   CLUDE COLLO┆
0x880…8a0 43 41 54 45 44 20 53 49 50 2e 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 43 4d 54 43 42 58   ┆CATED SIP.          MOV   CMTCBX┆
0x8a0…8c0 20 20 20 20 20 20 20 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   ┆            R0  ;   GET MTCB IND┆
0x8c0…8e0 45 58 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 50 4e 4d 53 47 20 20 20 20 20 20 20 20   ┆EX          MOVC  MPNMSG        ┆
0x8e0…900 20 20 20 20 52 34 20 20 3b 20 20 20 47 45 54 20 52 45 46 2e 54 4f 20 50 52 45 2e 41 53 53 2e 20   ┆    R4  ;   GET REF.TO PRE.ASS. ┆
0x900…920 4d 54 43 42 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 49   ┆MTCB          JMP              I┆
0x920…940 31 33 30 20 20 20 20 20 20 20 3b 20 20 20 47 4f 54 4f 20 45 4e 51 55 45 55 45 5f 4d 54 43 42 0a   ┆130       ;   GOTO ENQUEUE_MTCB ┆
0x940…960 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 20 20   ┆                                ┆
0x960…980 20 20 20 20 20 3b 0a 54 52 41 4e 53 4d 53 47 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆     ; TRANSMSG:                ┆
0x980…9a0 20 20 20 20 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 54 52 41 4e 53 4d 53 47 0a 20 20 20 20   ┆            ;BEGIN TRANSMSG     ┆
0x9a0…9c0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 35 20 20 52 4c 49 31 30 30 20 20 20 20   ┆     MOV          R5  RLI100    ┆
0x9c0…9e0 20 3b 20 20 20 53 41 56 45 20 4c 49 4e 4b 0a 49 31 33 30 3a 20 20 20 20 20 20 20 20 20 20 20 20   ┆ ;   SAVE LINK I130:            ┆
0x9e0…a00 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 45 4e 51 55 45 55 45 5f 4d 54   ┆                    ; ENQUEUE_MT┆
0xa00…a20 43 42 3a 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   ┆CB:                             ┆
0xa20…a40 20 20 20 20 20 20 20 20 20 3b 20 20 20 42 45 47 49 4e 20 57 52 49 54 45 20 4d 54 43 42 0a 20 20   ┆         ;   BEGIN WRITE MTCB   ┆
0xa40…a60 20 20 20 20 20 20 20 4d 4f 56 4c 20 20 20 20 20 20 20 20 20 52 32 33 20 4d 50 52 57 44 34 2e 58   ┆       MOVL         R23 MPRWD4.X┆
0xa60…a80 34 20 20 3b 20 20 20 20 20 52 4f 55 54 49 4e 47 20 4d 41 53 4b 0a 20 20 20 20 20 20 20 20 20 4d   ┆4  ;     ROUTING MASK          M┆
0xa80…aa0 4f 4e 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 20   ┆ON   MIO,MPUTMTCB          ;    ┆
0xaa0…ac0 20 22 50 55 54 5f 4d 54 43 42 22 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 26 20 20 20 20   ┆ "PUT_MTCB"          JMPI  &    ┆
0xac0…ae0 20 20 53 34 20 20 55 52 45 30 30 31 20 20 20 20 20 3b 45 20 20 20 20 58 30 3a 45 52 52 4f 52 2c   ┆  S4  URE001     ;E    X0:ERROR,┆
0xae0…b00 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 20 20   ┆REPORT ERROR                    ┆
0xb00…b20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 58 31 3a 44 4f 4e 45 2c   ┆                  ;     X1:DONE,┆
0xb20…b40 52 30 3d 4d 54 43 42 20 49 4e 44 45 58 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20   ┆R0=MTCB INDEX                   ┆
0xb40…b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 45 4e 44 20 57 52 49 54 45   ┆                   ;   END WRITE┆
0xb60…b80 20 4d 54 43 42 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 4d 50 52 41 50 52 2e 58 34 20 20   ┆ MTCB          MOV   MPRAPR.X4  ┆
0xb80…ba0 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 20 52 45 41 44 20 51 55 45 55 45 20 4e 4f 2e 28 50 52   ┆       R2  ;   READ QUEUE NO.(PR┆
0xba0…bc0 45 43 29 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 51 44 54 51 20 20 20 20 20 20 20 20 20   ┆EC)          MOVC  QDTQ         ┆
0xbc0…be0 20 20 20 20 20 52 34 20 20 3b 20 20 20 51 55 45 55 45 3d 54 51 0a 20 20 20 20 20 20 20 20 20 4d   ┆     R4  ;   QUEUE=TQ          M┆
0xbe0…c00 4f 56 20 20 20 20 20 20 20 20 20 20 52 32 20 20 51 44 51 4e 2e 20 20 58 34 20 20 3b 20 20 20 4c   ┆OV          R2  QDQN.  X4  ;   L┆
0xc00…c20 4f 41 44 20 51 55 45 55 45 20 4e 4f 2e 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f   ┆OAD QUEUE NO.          MON   MIO┆
0xc20…c40 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 51 55 45 22 28   ┆,MENQQE            ;   "ENQQUE"(┆
0xc40…c60 52 30 3d 4d 54 43 42 2c 52 34 3d 51 55 45 55 45 29 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20   ┆R0=MTCB,R4=QUEUE)          JMPI ┆
0xc60…c80 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 58 30 3a 45 52   ┆ &      S4  URE001     ;E  X0:ER┆
0xc80…ca0 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                ┆
0xca0…cc0 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 44 4f 4e   ┆                      ;   X1:DON┆
0xcc0…ce0 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 54 43 42 2c 52 45 4c 45 41 53 45 4d 54 43   ┆E          MON   MTCB,RELEASEMTC┆
0xce0…d00 42 20 20 20 20 20 20 3b 20 20 20 22 52 45 4c 45 41 53 45 5f 4d 54 43 42 22 28 52 30 29 0a 20 20   ┆B      ;   "RELEASE_MTCB"(R0)   ┆
0xd00…d20 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 30 30 32 20 20   ┆       JMPI  &      S4  URE002  ┆
0xd20…d40 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 52 0a 20 20 20   ┆   ;E  X0:ERROR,REPORT ERROR    ┆
0xd40…d60 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 20 20   ┆                                ┆
0xd60…d80 20 20 3b 20 20 20 58 31 3a 44 4f 4e 45 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20   ┆  ;   X1:DONE          JMPI     ┆
0xd80…da0 20 20 20 20 20 20 20 20 52 4c 49 31 30 30 20 20 20 20 20 3b 20 20 20 52 45 54 55 52 4e 20 4c 49   ┆        RLI100     ;   RETURN LI┆
0xda0…dc0 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                            ┆
0xdc0…de0 20 20 20 20 20 20 20 20 20 20 3b 45 4e 44 20 54 52 41 4e 53 4d 53 47 0a 3b 2d 2d 2d 2d 2d 2d 2d   ┆          ;END TRANSMSG ;-------┆
0xde0…e00 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…]
0xe20…e22 20 1a   ┆  ┆