|
DataMuseum.dkPresents historical artifacts from the history of: CR80 Hard and Floppy Disks |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about CR80 Hard and Floppy Disks Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 4908 (0x132c)
Names: »NMACCNT«
└─⟦80dc9b589⟧ Bits:30005096 8" CR80 Floppy CR80FD_0053 ( HMDIR 6 VOL: BACKUP MD: CPM.D From: HMDIR*CPM.D )
└─⟦08785f861⟧
└─ ⟦this⟧ »CPM.D!NMACCNT«
0x0000…0020 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 ┆;-------------------------------┆ 0x0020…0040 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 ┆--------------------------------┆ 0x0040…0060 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 20 50 52 4f 43 45 44 55 52 45 20 22 4e 41 52 52 41 54 49 56 45 5f ┆-------- ; PROCEDURE "NARRATIVE_┆ 0x0060…0080 4d 53 47 5f 41 43 43 4f 55 4e 54 49 4e 47 22 28 4e 4d 41 43 43 4e 54 29 2e 0a 3b 0a 3b 20 4e 41 ┆MSG_ACCOUNTING"(NMACCNT). ; ; NA┆ 0x0080…00a0 52 52 41 54 49 56 45 3a 0a 3b 20 4e 4d 41 43 43 4e 54 20 50 45 52 46 4f 52 4d 45 53 20 41 4c 4c ┆RRATIVE: ; NMACCNT PERFORMES ALL┆ 0x00a0…00c0 20 41 43 43 4f 55 4e 54 49 4e 47 20 52 45 51 55 49 52 45 44 20 46 4f 52 20 49 4e 42 4f 55 4e 44 ┆ ACCOUNTING REQUIRED FOR INBOUND┆ 0x00c0…00e0 20 4d 45 53 53 41 47 45 53 2f 50 53 45 55 2d 0a 3b 20 44 4f 4d 45 53 53 41 47 45 53 20 52 45 43 ┆ MESSAGES/PSEU- ; DOMESSAGES REC┆ 0x00e0…0100 49 45 56 45 44 20 46 52 4f 4d 20 54 48 45 20 27 4d 53 53 27 20 56 49 41 20 54 48 45 20 27 4e 4d ┆IEVED FROM THE 'MSS' VIA THE 'NM┆ 0x0100…0120 27 2d 51 55 45 55 45 2c 4f 52 20 4f 55 54 42 4f 55 4e 44 0a 3b 20 4e 49 43 53 2d 54 41 52 45 20 ┆'-QUEUE,OR OUTBOUND ; NICS-TARE ┆ 0x0120…0140 4d 45 53 53 41 47 45 53 20 52 45 43 49 45 56 45 44 20 46 52 4f 4d 20 46 49 4b 53 2e 0a 3b 20 31 ┆MESSAGES RECIEVED FROM FIKS. ; 1┆ 0x0140…0160 2e 49 4e 42 4f 55 4e 44 20 4e 41 52 52 41 54 49 56 45 20 4d 45 53 53 41 47 45 53 3a 0a 3b 20 20 ┆.INBOUND NARRATIVE MESSAGES: ; ┆ 0x0160…0180 20 54 48 45 20 43 48 41 4e 4e 45 4c 20 4e 4f 20 52 45 54 52 49 45 56 45 44 20 46 52 4f 4d 20 54 ┆ THE CHANNEL NO RETRIEVED FROM T┆ 0x0180…01a0 48 45 20 4d 53 47 2d 46 49 4c 45 20 48 41 53 20 42 45 45 4e 20 56 41 4c 49 44 41 54 45 44 2c 0a ┆HE MSG-FILE HAS BEEN VALIDATED, ┆ 0x01a0…01c0 3b 20 20 20 41 4e 44 20 27 43 43 48 4e 4f 27 20 41 4e 44 20 27 43 4d 53 47 49 44 27 20 4c 4f 41 ┆; AND 'CCHNO' AND 'CMSGID' LOA┆ 0x01c0…01e0 44 45 44 2e 27 43 4d 53 47 49 44 27 20 49 53 20 4c 4f 41 44 45 44 20 54 4f 20 58 49 4e 49 44 2e ┆DED.'CMSGID' IS LOADED TO XINID.┆ 0x01e0…0200 58 41 43 4b 54 41 42 0a 3b 20 20 20 41 4e 44 20 54 48 45 20 4d 53 47 49 44 20 52 45 54 52 49 56 ┆XACKTAB ; AND THE MSGID RETRIV┆ 0x0200…0220 45 44 20 46 52 4f 4d 20 54 48 45 20 4d 54 43 42 20 28 4d 50 4e 4d 29 20 49 53 20 4c 4f 41 44 45 ┆ED FROM THE MTCB (MPNM) IS LOADE┆ 0x0220…0240 44 20 54 4f 20 58 4f 55 54 2e 0a 3b 20 20 20 58 41 43 4b 54 41 42 2c 45 49 54 48 45 52 20 49 4e ┆D TO XOUT. ; XACKTAB,EITHER IN┆ 0x0240…0260 20 41 53 43 49 49 20 4f 52 20 44 45 43 49 4d 41 4c 20 46 4f 52 4d 20 44 45 50 45 4e 44 49 4e 47 ┆ ASCII OR DECIMAL FORM DEPENDING┆ 0x0260…0280 20 4f 46 20 57 48 45 54 48 45 52 20 49 54 0a 3b 20 20 20 49 53 20 41 4e 20 45 58 54 45 52 4e 41 ┆ OF WHETHER IT ; IS AN EXTERNA┆ 0x0280…02a0 4c 20 4f 52 20 49 4e 54 45 52 4e 41 4c 20 43 48 41 4e 4e 45 4c 2e 0a 3b 20 32 2e 49 4e 42 4f 55 ┆L OR INTERNAL CHANNEL. ; 2.INBOU┆ 0x02a0…02c0 4e 44 20 50 53 45 55 44 4f 20 4d 45 53 53 41 47 45 3a 0a 3b 20 20 20 54 48 45 20 43 48 41 4e 4e ┆ND PSEUDO MESSAGE: ; THE CHANN┆ 0x02c0…02e0 45 4c 20 4e 4f 20 52 45 54 52 49 45 56 45 44 20 46 52 4f 4d 20 54 48 45 20 4d 54 43 42 20 28 4d ┆EL NO RETRIEVED FROM THE MTCB (M┆ 0x02e0…0300 50 4e 4d 29 20 49 53 20 56 41 4c 49 44 41 54 45 44 2c 41 4e 44 20 49 46 0a 3b 20 20 20 56 41 4c ┆PNM) IS VALIDATED,AND IF ; VAL┆ 0x0300…0320 49 44 20 54 48 45 4e 20 58 4f 55 54 49 44 2e 58 41 43 4b 54 41 42 20 49 53 20 55 50 44 41 54 45 ┆ID THEN XOUTID.XACKTAB IS UPDATE┆ 0x0320…0340 44 20 41 53 20 44 45 53 43 52 49 42 45 44 20 41 42 4f 56 45 2e 0a 3b 20 20 20 49 46 20 41 4e 20 ┆D AS DESCRIBED ABOVE. ; IF AN ┆ 0x0340…0360 41 43 4b 20 49 53 20 41 57 41 49 54 45 44 28 46 45 57 41 49 54 2e 45 4e 54 52 59 29 20 4e 4f 20 ┆ACK IS AWAITED(FEWAIT.ENTRY) NO ┆ 0x0360…0380 46 55 52 54 48 45 52 20 50 52 4f 43 45 53 53 49 4e 47 20 49 53 20 50 45 52 2d 0a 3b 20 20 20 46 ┆FURTHER PROCESSING IS PER- ; F┆ 0x0380…03a0 4f 52 4d 45 44 2e 4f 54 48 45 52 57 49 53 45 20 49 53 20 54 48 45 20 44 45 46 41 55 4c 54 20 56 ┆ORMED.OTHERWISE IS THE DEFAULT V┆ 0x03a0…03c0 41 4c 55 45 20 48 45 4c 44 20 49 4e 20 27 43 4d 53 47 49 44 27 20 43 4f 50 49 45 44 20 54 4f 0a ┆ALUE HELD IN 'CMSGID' COPIED TO ┆ 0x03c0…03e0 3b 20 20 20 58 49 4e 49 44 2e 58 41 43 4b 54 41 42 2c 41 4e 44 20 41 20 43 41 4c 4c 20 49 53 20 ┆; XINID.XACKTAB,AND A CALL IS ┆ 0x03e0…0400 4d 41 44 45 20 54 4f 20 27 4e 4d 41 43 4b 50 27 20 54 4f 20 53 49 4d 55 4c 41 54 45 20 54 48 45 ┆MADE TO 'NMACKP' TO SIMULATE THE┆ 0x0400…0420 20 52 45 2d 0a 3b 20 20 20 43 45 49 50 54 20 4f 46 20 41 4e 20 41 43 4b 2e 0a 3b 20 33 2e 4f 55 ┆ RE- ; CEIPT OF AN ACK. ; 3.OU┆ 0x0420…0440 54 42 4f 55 4e 44 20 4e 49 43 53 2d 54 41 52 45 20 4d 45 53 53 41 47 45 53 3a 0a 3b 20 20 20 54 ┆TBOUND NICS-TARE MESSAGES: ; T┆ 0x0440…0460 48 45 20 43 48 41 4e 4e 45 4c 2e 4e 4f 20 28 52 30 29 20 49 53 20 56 41 4c 49 44 41 54 45 44 2c ┆HE CHANNEL.NO (R0) IS VALIDATED,┆ 0x0460…0480 41 4e 44 20 49 46 20 43 48 32 20 54 48 45 4e 20 27 43 4d 53 47 49 44 27 20 49 53 20 4c 4f 41 44 ┆AND IF CH2 THEN 'CMSGID' IS LOAD┆ 0x0480…04a0 45 44 0a 3b 20 20 20 54 4f 20 27 58 49 4e 49 44 2e 58 41 43 4b 54 41 42 28 43 48 32 29 27 2c 41 ┆ED ; TO 'XINID.XACKTAB(CH2)',A┆ 0x04a0…04c0 4e 44 20 54 48 45 20 45 4e 54 52 59 20 49 53 20 46 4c 41 47 45 44 20 57 41 49 54 49 4e 47 2e 0a ┆ND THE ENTRY IS FLAGED WAITING. ┆ 0x04c0…04e0 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 20 20 20 ┆; ; REGISTER USE: ENTRY ┆ 0x04e0…0500 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 20 20 20 ┆ EXIT ; ┆ 0x0500…0520 20 20 20 20 20 20 52 30 3d 43 43 48 4e 4f 28 4f 4e 4d 41 43 43 4e 54 29 20 4b 45 50 54 0a 3b 20 ┆ R0=CCHNO(ONMACCNT) KEPT ; ┆ 0x0520…0540 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 20 20 20 ┆ R5=LINK ┆ 0x0540…0560 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 43 41 4c 4c 53 ┆ R0-R7 DESTROYED ; ; CALLS┆ 0x0560…0580 20 54 4f 3a 20 20 20 20 4e 4d 41 43 4b 50 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 42 ┆ TO: NMACKP ; CB┆ 0x0580…05a0 49 4e 41 52 59 0a 3b 0a 3b 20 49 4e 50 55 54 3a 20 20 20 20 20 20 20 43 4d 53 47 49 44 0a 3b 20 ┆INARY ; ; INPUT: CMSGID ; ┆ 0x05a0…05c0 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 48 4e 4f 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 ┆ CCHNO ; ┆ 0x05c0…05e0 20 20 4d 50 4e 4d 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 58 41 43 4b 54 41 42 0a 3b 0a ┆ MPNM ; XACKTAB ; ┆ 0x05e0…0600 3b 20 4f 55 54 50 55 54 3a 20 20 20 20 20 20 58 41 43 4b 54 41 42 0a 3b 20 20 20 20 20 20 20 20 ┆; OUTPUT: XACKTAB ; ┆ 0x0600…0620 20 20 20 20 20 20 43 4d 53 47 49 44 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 43 48 4e ┆ CMSGID ; CCHN┆ 0x0620…0640 4f 0a 3b 0a 3b 20 45 4e 54 52 49 45 53 3a 20 20 20 20 20 49 4e 4d 41 43 43 4e 54 3a 20 20 49 4e ┆O ; ; ENTRIES: INMACCNT: IN┆ 0x0640…0660 42 4f 55 4e 44 20 4e 41 52 52 41 54 49 56 45 5f 4d 53 47 20 41 43 43 4f 55 4e 54 49 4e 47 0a 3b ┆BOUND NARRATIVE_MSG ACCOUNTING ;┆ 0x0660…0680 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 50 4d 41 43 43 4e 54 3a 20 20 49 4e 42 4f 55 4e 44 ┆ IPMACCNT: INBOUND┆ 0x0680…06a0 20 50 53 45 55 44 4f 20 4d 53 47 20 41 43 43 4f 55 4e 54 49 4e 47 0a 3b 20 20 20 20 20 20 20 20 ┆ PSEUDO MSG ACCOUNTING ; ┆ 0x06a0…06c0 20 20 20 20 20 20 4f 4e 4d 41 43 43 4e 54 3a 20 20 4f 55 54 42 4f 55 4e 44 20 4e 49 43 53 2d 54 ┆ ONMACCNT: OUTBOUND NICS-T┆ 0x06c0…06e0 41 52 45 20 4d 53 47 20 41 43 43 4f 55 4e 54 49 4e 47 0a 3b 0a 3b 20 52 45 54 55 52 4e 53 3a 20 ┆ARE MSG ACCOUNTING ; ; RETURNS: ┆ 0x06e0…0700 20 20 20 20 4c 49 4e 4b 2b 30 3a 20 20 20 20 44 4f 4e 45 0a 3b 20 20 20 20 20 20 20 20 20 20 20 ┆ LINK+0: DONE ; ┆ 0x0700…0720 20 20 20 55 52 45 58 58 58 3a 20 20 20 20 45 52 52 30 52 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ UREXXX: ERR0R ;-----------┆ 0x0720…0740 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 ┆--------------------------------┆ 0x0740…0760 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 0a 49 4e 4d ┆---------------------------- INM┆ 0x0760…0780 41 43 43 4e 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 ┆ACCNT: ┆ 0x0780…07a0 20 20 3b 42 45 47 49 4e 20 49 4e 4d 41 43 43 4e 54 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 ┆ ;BEGIN INMACCNT MOV ┆ 0x07a0…07c0 20 20 20 20 20 20 20 20 52 35 20 20 20 20 20 20 20 20 20 52 36 20 20 3b 20 20 20 50 55 53 48 20 ┆ R5 R6 ; PUSH ┆ 0x07c0…07e0 4c 49 4e 4b 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 20 43 43 48 4e 4f 20 20 20 20 20 20 20 ┆LINK MOD CCHNO ┆ 0x07e0…0800 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 58 41 43 4b 54 ┆ ; MOV XACKT┆ 0x0800…0820 41 42 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 45 4e 54 52 59 3a 3d 58 41 43 4b ┆AB R4 ; ENTRY:=XACK┆ 0x0820…0840 54 41 42 28 43 43 48 4e 4f 29 0a 20 20 20 20 20 20 20 20 20 53 45 54 53 20 20 20 20 20 20 20 20 ┆TAB(CCHNO) SETS ┆ 0x0840…0860 20 58 34 20 20 46 45 57 41 49 54 20 20 20 20 20 3b 20 20 20 53 45 54 53 20 45 4e 54 52 59 20 57 ┆ X4 FEWAIT ; SETS ENTRY W┆ 0x0860…0880 41 49 54 49 4e 47 0a 4f 31 31 30 3a 20 20 20 20 4d 4f 44 20 20 20 20 20 20 20 20 20 20 52 34 20 ┆AITING O110: MOD R4 ┆ 0x0880…08a0 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 58 49 4e ┆ ; MOVC XIN┆ 0x08a0…08c0 49 44 20 20 20 20 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 20 4f 42 4a 3d 58 49 4e 49 44 ┆ID R2 ; OBJ=XINID┆ 0x08c0…08e0 2e 45 4e 54 52 59 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 43 4d 53 47 49 44 20 20 20 20 ┆.ENTRY MOVC CMSGID ┆ 0x08e0…0900 20 20 20 20 20 20 20 20 52 37 20 20 3b 20 20 20 53 4f 55 52 43 45 3d 43 4d 53 47 49 44 0a 20 20 ┆ R7 ; SOURCE=CMSGID ┆ 0x0900…0920 20 20 20 20 20 20 20 4d 4f 44 43 20 20 4d 53 47 49 44 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MODC MSGIDL ┆ 0x0920…0940 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 4d 20 20 20 20 20 20 20 20 20 58 37 20 20 20 ┆ ; MOVM X7 ┆ 0x0940…0960 20 20 20 20 20 20 58 32 20 20 3b 20 20 20 4c 4f 41 44 20 58 49 4e 49 44 2e 45 4e 54 52 59 0a 4f ┆ X2 ; LOAD XINID.ENTRY O┆ 0x0960…0980 31 32 30 3a 20 20 20 20 4d 4f 56 43 20 20 4d 50 52 57 44 34 2b 4d 50 4e 4d 20 20 20 20 20 20 20 ┆120: MOVC MPRWD4+MPNM ┆ 0x0980…09a0 52 37 20 20 3b 20 20 20 52 45 46 2e 54 4f 20 49 44 20 49 4e 20 4d 54 43 42 0a 20 20 20 20 20 20 ┆R7 ; REF.TO ID IN MTCB ┆ 0x09a0…09c0 20 20 20 49 42 5a 20 20 20 20 20 20 20 20 20 20 58 34 20 20 46 49 4e 54 52 4e 4c 20 20 20 20 3b ┆ IBZ X4 FINTRNL ;┆ 0x09c0…09e0 20 20 20 49 46 20 41 4e 20 45 58 54 45 52 4e 41 4c 20 43 48 41 4e 4e 45 4c 20 54 48 45 4e 0a 20 ┆ IF AN EXTERNAL CHANNEL THEN ┆ 0x09e0…0a00 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 43 42 49 4e 41 52 59 ┆ JMP S5 CBINARY┆ 0x0a00…0a20 20 20 20 20 3b 20 20 20 20 20 22 43 4f 4e 56 45 52 54 20 42 49 4e 41 52 59 3d 3e 41 53 43 49 49 ┆ ; "CONVERT BINARY=>ASCII┆ 0x0a20…0a40 22 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 20 20 20 20 20 20 20 20 52 34 20 20 20 20 20 20 ┆" MOD R4 ┆ 0x0a40…0a60 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 58 4f 55 54 49 44 20 20 ┆ ; MOVC XOUTID ┆ 0x0a60…0a80 20 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 43 20 20 4d ┆ R2 ; MODC M┆ 0x0a80…0aa0 53 47 49 44 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 ┆SGIDL ; ┆ 0x0aa0…0ac0 4d 4f 56 4d 20 20 20 20 20 20 20 20 20 58 37 20 20 20 20 20 20 20 20 20 58 32 20 20 3b 20 20 20 ┆MOVM X7 X2 ; ┆ 0x0ac0…0ae0 4c 4f 41 44 20 58 4f 55 54 49 44 2e 45 4e 54 52 59 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 ┆LOAD XOUTID.ENTRY JMP ┆ 0x0ae0…0b00 20 20 20 20 20 20 20 20 20 20 20 20 30 2e 20 20 20 20 20 58 36 20 20 3b 20 20 20 52 45 54 55 52 ┆ 0. X6 ; RETUR┆ 0x0b00…0b20 4e 20 4c 49 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 ┆N LINK+0 ┆ 0x0b20…0b40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 49 50 4d 41 43 43 4e 54 3a 20 20 20 20 20 20 20 ┆ ; IPMACCNT: ┆ 0x0b40…0b60 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 49 50 4d 41 ┆ ;BEGIN IPMA┆ 0x0b60…0b80 43 43 4e 54 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 ┆CCNT MOV R5 R┆ 0x0b80…0ba0 4c 4f 32 30 30 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 4d 50 50 57 44 ┆LO200 ; MOV MPPWD┆ 0x0ba0…0bc0 35 2b 4d 50 4e 4d 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 52 45 52 49 45 56 45 20 43 48 41 ┆5+MPNM R0 ; RERIEVE CHA┆ 0x0bc0…0be0 4e 4e 4f 20 46 4f 52 4d 20 4d 54 43 42 0a 20 20 20 20 20 20 20 20 20 53 52 4c 20 20 20 20 20 20 ┆NNO FORM MTCB SRL ┆ 0x0be0…0c00 20 20 20 20 52 30 20 20 38 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 4c ┆ R0 8 ; SL┆ 0x0c00…0c20 4f 20 20 20 20 20 20 20 20 20 20 52 30 20 20 43 48 32 2b 31 20 20 20 20 20 20 3b 0a 20 20 20 20 ┆O R0 CH2+1 ; ┆ 0x0c20…0c40 20 20 20 20 20 53 4c 4f 20 20 20 20 20 20 20 20 20 20 52 30 20 20 43 48 36 2b 31 20 20 20 20 20 ┆ SLO R0 CH6+1 ┆ 0x0c40…0c60 20 3b 20 20 20 49 46 20 4e 4f 54 20 28 43 48 32 3c 43 48 4e 4f 3c 3d 43 48 36 29 20 54 48 45 4e ┆ ; IF NOT (CH2<CHNO<=CH6) THEN┆ 0x0c60…0c80 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 30 32 ┆ JMPI & S4 URE02┆ 0x0c80…0ca0 30 20 20 20 20 20 3b 45 20 20 20 20 52 45 50 4f 52 54 20 45 52 52 4f 52 0a 20 20 20 20 20 20 20 ┆0 ;E REPORT ERROR ┆ 0x0ca0…0cc0 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 30 20 20 43 43 48 4e 4f 20 20 20 20 20 20 3b 20 ┆ MOV R0 CCHNO ; ┆ 0x0cc0…0ce0 20 20 45 4c 53 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 50 50 57 44 32 2b 4d 50 4e ┆ ELSE MOVC MPPWD2+MPN┆ 0x0ce0…0d00 4d 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 20 20 50 4f 53 49 54 49 4f 4e 20 4d 53 47 49 44 ┆M R4 ; POSITION MSGID┆ 0x0d00…0d20 20 41 53 20 53 54 4f 52 45 44 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 50 52 57 44 34 ┆ AS STORED MOVC MPRWD4┆ 0x0d20…0d40 2b 4d 50 4e 4d 20 20 20 20 20 20 20 52 35 20 20 3b 20 20 20 20 20 49 4e 20 52 45 41 4c 20 4d 54 ┆+MPNM R5 ; IN REAL MT┆ 0x0d40…0d60 43 42 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 43 20 20 4d 53 47 49 44 4c 20 20 20 20 20 20 20 20 ┆CB MODC MSGIDL ┆ 0x0d60…0d80 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 4d 20 20 20 20 20 20 20 20 20 ┆ ; MOVM ┆ 0x0d80…0da0 58 34 20 20 20 20 20 20 20 20 20 58 35 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 20 ┆X4 X5 ; MOD ┆ 0x0da0…0dc0 20 20 20 20 20 20 20 52 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 ┆ R0 ; ┆ 0x0dc0…0de0 20 4d 4f 56 20 20 20 58 41 43 4b 54 41 42 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 ┆ MOV XACKTAB R4 ; ┆ 0x0de0…0e00 20 45 4e 54 52 59 3d 58 41 43 4b 54 41 42 28 43 43 48 4e 4f 29 0a 20 20 20 20 20 20 20 20 20 53 ┆ ENTRY=XACKTAB(CCHNO) S┆ 0x0e00…0e20 42 4e 50 20 20 20 20 20 20 20 20 20 58 34 20 20 46 45 57 41 49 54 20 20 20 20 20 3b 20 20 20 49 ┆BNP X4 FEWAIT ; I┆ 0x0e20…0e40 46 20 45 4e 54 52 59 20 57 41 49 54 49 4e 47 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 20 4a 4d ┆F ENTRY WAITING THEN JM┆ 0x0e40…0e60 50 20 20 20 20 20 20 20 20 20 20 53 36 20 20 4f 31 32 30 20 20 20 20 20 20 20 3b 20 20 20 20 20 ┆P S6 O120 ; ┆ 0x0e60…0e80 4c 4f 41 44 20 58 4f 55 54 49 44 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 ┆LOAD XOUTID JMP ┆ 0x0e80…0ea0 20 20 20 20 20 20 4f 32 31 30 20 20 20 20 20 20 20 3b 20 20 20 45 4c 53 45 0a 20 20 20 20 20 20 ┆ O210 ; ELSE ┆ 0x0ea0…0ec0 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 53 36 20 20 4f 31 31 30 20 20 20 20 20 20 20 3b ┆ JMP S6 O110 ;┆ 0x0ec0…0ee0 20 20 20 20 20 4c 4f 41 44 20 58 49 4e 49 44 20 41 4e 44 20 58 4f 55 54 49 44 0a 20 20 20 20 20 ┆ LOAD XINID AND XOUTID ┆ 0x0ee0…0f00 20 20 20 20 53 45 54 53 20 20 20 20 20 20 20 20 20 58 34 20 20 46 45 57 41 49 54 20 20 20 20 20 ┆ SETS X4 FEWAIT ┆ 0x0f00…0f20 3b 20 20 20 20 20 46 4c 41 47 20 45 4e 54 52 59 20 57 41 49 54 49 4e 47 0a 20 20 20 20 20 20 20 ┆; FLAG ENTRY WAITING ┆ 0x0f20…0f40 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 3b 20 ┆ ; ┆ 0x0f40…0f60 20 20 20 20 27 53 49 4d 55 4c 41 54 45 20 41 43 4b 27 2c 49 2e 45 2e 43 41 4c 4c 0a 20 20 20 20 ┆ 'SIMULATE ACK',I.E.CALL ┆ 0x0f60…0f80 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 53 35 20 20 49 4d 41 43 4b 50 20 20 20 20 ┆ JMP S5 IMACKP ┆ 0x0f80…0fa0 20 3b 20 20 20 20 20 22 4e 41 52 52 2e 4d 53 47 5f 41 43 4b 5f 50 52 4f 43 45 53 53 49 4e 47 22 ┆ ; "NARR.MSG_ACK_PROCESSING"┆ 0x0fa0…0fc0 0a 4f 32 31 30 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 ┆ O210: ┆ 0x0fc0…0fe0 20 20 20 20 20 20 3b 20 20 20 45 4e 44 49 46 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 20 ┆ ; ENDIF JMPI ┆ 0x0fe0…1000 20 20 20 20 20 20 20 20 20 20 52 4c 4f 32 30 30 20 20 20 20 20 3b 20 20 20 52 45 54 55 52 4e 20 ┆ RLO200 ; RETURN ┆ 0x1000…1020 4c 49 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 ┆LINK+0 ┆ 0x1020…1040 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 4f 4e 4d 41 43 43 4e 54 3a 20 20 20 20 20 20 20 20 20 ┆ ; ONMACCNT: ┆ 0x1040…1060 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 4f 4e 4d 41 43 43 ┆ ;BEGIN ONMACC┆ 0x1060…1080 4e 54 0a 20 20 20 20 20 20 20 20 20 53 45 51 20 20 20 20 20 20 20 20 20 20 52 30 20 20 43 48 32 ┆NT SEQ R0 CH2┆ 0x1080…10a0 20 20 20 20 20 20 20 20 3b 20 20 20 49 46 20 28 43 43 48 4e 4f 3c 3e 43 48 32 29 20 54 48 45 4e ┆ ; IF (CCHNO<>CH2) THEN┆ 0x10a0…10c0 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 30 32 ┆ JMPI & S4 URE02┆ 0x10c0…10e0 30 20 20 20 20 20 3b 45 20 20 20 20 52 45 50 4f 52 54 20 45 52 52 4f 52 0a 20 20 20 20 20 20 20 ┆0 ;E REPORT ERROR ┆ 0x10e0…1100 20 20 4d 4f 44 20 20 20 20 20 20 20 20 20 20 52 30 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ MOD R0 ; ┆ 0x1100…1120 20 20 45 4c 53 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 58 41 43 4b 54 41 42 20 20 20 ┆ ELSE MOV XACKTAB ┆ 0x1120…1140 20 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 20 20 47 45 54 20 41 43 4b 54 41 42 28 43 43 48 ┆ R4 ; GET ACKTAB(CCH┆ 0x1140…1160 4e 4f 29 0a 20 20 20 20 20 20 20 20 20 53 45 54 53 20 20 20 20 20 20 20 20 20 58 34 20 20 46 45 ┆NO) SETS X4 FE┆ 0x1160…1180 57 41 49 54 20 20 20 20 20 3b 20 20 20 20 20 46 4c 41 47 20 45 4e 54 52 59 20 57 41 49 54 49 4e ┆WAIT ; FLAG ENTRY WAITIN┆ 0x1180…11a0 47 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 58 49 4e 49 44 20 20 20 20 20 20 20 20 20 20 ┆G ADDC XINID ┆ 0x11a0…11c0 20 20 20 52 34 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 43 4d 53 47 49 44 20 20 ┆ R4 ; MOVC CMSGID ┆ 0x11c0…11e0 20 20 20 20 20 20 20 20 20 20 52 31 20 20 3b 20 20 20 20 20 43 4f 50 59 20 43 4d 53 47 49 44 20 ┆ R1 ; COPY CMSGID ┆ 0x11e0…1200 54 4f 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 43 20 20 4d 53 47 49 44 4c 20 20 20 20 20 20 20 20 ┆TO MODC MSGIDL ┆ 0x1200…1220 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 58 49 4e 49 44 2e 45 4e 54 52 59 28 43 43 48 4e 4f 29 ┆ ; XINID.ENTRY(CCHNO)┆ 0x1220…1240 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 4d 20 20 20 20 20 20 20 20 20 58 31 20 20 20 20 20 20 20 ┆ MOVM X1 ┆ 0x1240…1260 20 20 58 34 20 20 3b 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 ┆ X4 ; JMP ┆ 0x1260…1280 20 20 30 2e 20 20 20 20 20 58 35 20 20 3b 20 20 20 20 20 52 45 54 55 52 4e 20 4c 49 4e 4b 2b 30 ┆ 0. X5 ; RETURN LINK+0┆ 0x1280…12a0 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 20 ┆ ┆ 0x12a0…12c0 20 20 20 20 20 20 3b 20 20 20 45 4e 44 49 46 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ENDIF ┆ 0x12c0…12e0 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 4e 4d 41 43 43 4e ┆ ;END NMACCN┆ 0x12e0…1300 54 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 ┆T ;-----------------------------┆ 0x1300…1320 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 ┆--------------------------------┆ 0x1320…132c 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 1a ┆---------- ┆