|
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: 7340 (0x1cac)
Names: »NMACKP«
└─⟦80dc9b589⟧ Bits:30005096 8" CR80 Floppy CR80FD_0053 ( HMDIR 6 VOL: BACKUP MD: CPM.D From: HMDIR*CPM.D )
└─⟦08785f861⟧
└─ ⟦this⟧ »CPM.D!NMACKP«
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 0a 3b 20 50 52 4f 43 45 44 55 52 45 20 22 4e 41 52 52 41 54 49 56 45 5f 4d ┆------- ; PROCEDURE "NARRATIVE_M┆
0x0060…0080 53 47 5f 41 43 4b 5f 50 52 4f 43 45 53 53 49 4e 47 22 28 4e 4d 41 43 4b 50 29 2e 0a 3b 0a 3b 20 ┆SG_ACK_PROCESSING"(NMACKP). ; ; ┆
0x0080…00a0 4e 41 52 52 41 54 49 56 45 3a 0a 3b 20 4e 4d 41 43 4b 50 20 49 53 20 49 4e 56 4f 4b 45 44 20 57 ┆NARRATIVE: ; NMACKP IS INVOKED W┆
0x00a0…00c0 48 45 4e 20 54 48 45 20 46 4f 4c 4f 57 49 4e 47 20 54 52 45 45 20 54 59 50 45 53 20 4f 46 20 41 ┆HEN THE FOLOWING TREE TYPES OF A┆
0x00c0…00e0 43 4b 4e 4f 57 4c 45 44 47 45 4d 45 4e 54 53 0a 3b 20 49 53 20 45 4e 43 4f 55 4e 54 45 52 45 44 ┆CKNOWLEDGEMENTS ; IS ENCOUNTERED┆
0x00e0…0100 2f 47 45 4e 45 52 41 54 45 44 20 42 59 20 43 50 4d 45 44 3a 0a 3b 20 31 2e 20 41 4e 20 41 43 4b ┆/GENERATED BY CPMED: ; 1. AN ACK┆
0x0100…0120 20 46 4f 52 20 4f 55 54 42 4f 55 4e 44 20 4e 49 43 53 2d 54 41 52 45 20 4d 53 47 20 28 43 48 32 ┆ FOR OUTBOUND NICS-TARE MSG (CH2┆
0x0120…0140 29 2c 52 45 43 49 45 56 45 44 20 46 52 4f 4d 20 54 48 45 20 4d 53 53 0a 3b 20 20 20 20 49 4e 20 ┆),RECIEVED FROM THE MSS ; IN ┆
0x0140…0160 41 4e 20 50 53 45 55 44 4f 20 4d 54 43 42 2c 57 48 49 43 48 20 49 53 20 46 4f 52 57 41 52 44 45 ┆AN PSEUDO MTCB,WHICH IS FORWARDE┆
0x0160…0180 44 20 49 4e 20 54 48 45 20 53 49 50 4d 41 49 4c 42 4f 58 20 41 53 20 41 4e 0a 3b 20 20 20 20 41 ┆D IN THE SIPMAILBOX AS AN ; A┆
0x0180…01a0 43 4b 20 54 4f 20 46 49 4b 53 2e 0a 3b 0a 3b 20 32 41 2e 41 43 4b 27 53 20 52 45 43 45 49 56 45 ┆CK TO FIKS. ; ; 2A.ACK'S RECEIVE┆
0x01a0…01c0 44 20 49 4e 20 53 49 50 2d 4b 45 45 50 2d 41 4c 49 56 45 2d 4d 45 53 53 41 47 45 53 20 28 43 48 ┆D IN SIP-KEEP-ALIVE-MESSAGES (CH┆
0x01c0…01e0 33 2d 43 48 36 29 2e 0a 3b 20 20 20 20 43 48 33 20 41 4e 44 20 43 48 34 20 41 52 45 20 43 4f 4e ┆3-CH6). ; CH3 AND CH4 ARE CON┆
0x01e0…0200 56 45 52 54 45 44 20 54 4f 20 43 48 30 20 41 4e 44 20 43 48 31 20 41 43 4b 27 53 20 52 45 53 50 ┆VERTED TO CH0 AND CH1 ACK'S RESP┆
0x0200…0220 45 43 54 49 56 45 4c 59 2c 41 4e 44 0a 3b 20 20 20 20 4d 41 49 4c 45 44 20 49 4e 20 54 48 45 20 ┆ECTIVELY,AND ; MAILED IN THE ┆
0x0220…0240 53 49 50 4d 41 49 4c 42 4f 58 2c 41 4e 44 20 43 48 35 20 41 4e 44 20 43 48 36 20 41 43 4b 27 53 ┆SIPMAILBOX,AND CH5 AND CH6 ACK'S┆
0x0240…0260 20 41 52 45 20 46 4f 52 57 41 52 44 45 44 0a 3b 20 20 20 20 54 4f 20 54 48 45 20 4d 53 53 2e 0a ┆ ARE FORWARDED ; TO THE MSS. ┆
0x0260…0280 3b 0a 3b 20 32 42 2e 41 43 4b 27 53 20 47 45 4e 45 52 41 54 45 44 20 55 50 4f 4e 20 52 45 43 45 ┆; ; 2B.ACK'S GENERATED UPON RECE┆
0x0280…02a0 49 50 54 20 4f 46 20 41 4e 20 50 53 45 55 44 4f 5f 4e 41 52 52 2e 4d 53 47 20 46 52 4f 4d 20 4d ┆IPT OF AN PSEUDO_NARR.MSG FROM M┆
0x02a0…02c0 53 53 0a 3b 20 20 20 20 57 48 49 43 48 20 41 52 45 20 53 55 42 53 54 49 54 55 54 45 53 20 46 4f ┆SS ; WHICH ARE SUBSTITUTES FO┆
0x02c0…02e0 52 20 41 20 52 45 41 4c 20 4d 45 53 53 41 47 45 53 20 49 4e 54 45 52 43 45 50 54 45 44 20 42 59 ┆R A REAL MESSAGES INTERCEPTED BY┆
0x02e0…0300 20 54 48 45 20 4d 53 53 2c 0a 3b 20 20 20 20 41 4e 44 20 53 45 52 56 45 53 20 54 4f 20 4d 41 49 ┆ THE MSS, ; AND SERVES TO MAI┆
0x0300…0320 4e 54 41 49 4e 20 4d 45 53 53 41 47 45 20 43 4f 4e 54 49 4e 55 49 54 59 20 28 43 48 30 2d 43 48 ┆NTAIN MESSAGE CONTINUITY (CH0-CH┆
0x0320…0340 32 29 2e 54 48 45 53 45 20 41 43 4b 27 53 0a 3b 20 20 20 20 41 52 45 20 4d 41 49 4c 45 44 20 49 ┆2).THESE ACK'S ; ARE MAILED I┆
0x0340…0360 4e 20 54 48 45 20 53 49 50 4d 41 49 4c 42 4f 58 2c 41 4e 44 20 46 4f 52 57 41 52 44 45 44 20 54 ┆N THE SIPMAILBOX,AND FORWARDED T┆
0x0360…0380 4f 20 46 49 4b 53 2e 0a 3b 0a 3b 20 49 4e 20 43 41 53 45 20 32 2e 41 4e 44 20 33 2e 2c 54 48 45 ┆O FIKS. ; ; IN CASE 2.AND 3.,THE┆
0x0380…03a0 20 43 48 41 4e 2e 4e 4f 20 48 41 53 20 42 45 45 4e 20 56 41 4c 49 44 41 54 45 44 20 41 4e 44 20 ┆ CHAN.NO HAS BEEN VALIDATED AND ┆
0x03a0…03c0 4c 4f 41 44 45 44 20 54 4f 20 27 43 43 48 4e 4f 2c 0a 3b 20 41 4e 44 20 54 48 45 20 43 55 52 52 ┆LOADED TO 'CCHNO, ; AND THE CURR┆
0x03c0…03e0 45 4e 54 20 4d 53 47 49 44 20 4c 4f 41 44 45 44 20 54 4f 20 27 43 4d 53 47 49 44 27 2e 0a 3b 20 ┆ENT MSGID LOADED TO 'CMSGID'. ; ┆
0x03e0…0400 49 4e 20 43 41 53 45 20 31 2e 48 4f 57 45 56 45 52 2c 54 48 45 20 43 48 41 4e 2e 4e 4f 20 4d 55 ┆IN CASE 1.HOWEVER,THE CHAN.NO MU┆
0x0400…0420 53 54 20 42 45 20 56 41 4c 49 44 41 54 45 44 2c 41 4e 44 20 27 43 43 48 4e 4f 27 20 41 4e 44 0a ┆ST BE VALIDATED,AND 'CCHNO' AND ┆
0x0420…0440 3b 20 27 43 4d 53 47 49 44 27 20 52 45 54 52 49 45 56 45 44 20 46 52 4f 4d 20 54 48 45 20 50 53 ┆; 'CMSGID' RETRIEVED FROM THE PS┆
0x0440…0460 45 55 44 4f 5f 4d 54 43 42 20 28 4d 50 4e 43 29 2e 0a 3b 0a 3b 20 54 48 45 20 43 4f 52 52 45 4c ┆EUDO_MTCB (MPNC). ; ; THE CORREL┆
0x0460…0480 41 54 49 4f 4e 20 42 45 54 57 45 45 4e 20 49 4e 42 4f 55 4e 44 20 41 4e 44 20 4f 55 54 42 4f 55 ┆ATION BETWEEN INBOUND AND OUTBOU┆
0x0480…04a0 4e 44 20 41 43 4b 27 53 20 49 53 20 44 45 46 49 4e 45 44 20 42 59 0a 3b 20 54 48 45 20 54 41 42 ┆ND ACK'S IS DEFINED BY ; THE TAB┆
0x04a0…04c0 4c 45 20 27 58 41 43 4b 54 41 42 27 2e 0a 3b 0a 3b 20 52 45 47 49 53 54 45 52 20 55 53 45 3a 20 ┆LE 'XACKTAB'. ; ; REGISTER USE: ┆
0x04c0…04e0 20 20 20 20 20 20 45 4e 54 52 59 20 20 20 20 20 20 20 20 20 20 20 20 20 20 45 58 49 54 0a 3b 20 ┆ ENTRY EXIT ; ┆
0x04e0…0500 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 ┆
0x0500…0520 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 50 55 54 ┆ R0-R7 DESTROYED ; ; INPUT┆
0x0520…0540 3a 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 20 20 43 4d 53 ┆: CCHNO ; CMS┆
0x0540…0560 47 49 44 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 50 4e 43 0a 3b 20 20 20 20 20 20 20 ┆GID ; MPNC ; ┆
0x0560…0580 20 20 20 20 20 20 20 58 41 43 4b 54 41 42 0a 3b 0a 3b 20 4f 55 54 50 55 54 3a 20 20 20 20 20 20 ┆ XACKTAB ; ; OUTPUT: ┆
0x0580…05a0 58 41 43 4b 54 41 42 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 53 49 50 4d 41 49 4c 42 4f ┆XACKTAB ; SIPMAILBO┆
0x05a0…05c0 58 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 51 55 45 55 45 5f 4d 43 0a 3b 0a 3b 20 57 4f ┆X ; QUEUE_MC ; ; WO┆
0x05c0…05e0 52 4b 3a 20 20 20 20 20 20 20 20 4d 50 41 43 4b 0a 3b 0a 3b 20 43 41 4c 4c 53 20 54 4f 3a 20 20 ┆RK: MPACK ; ; CALLS TO: ┆
0x05e0…0600 20 20 43 42 49 4e 41 52 59 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 4d 54 43 ┆ CBINARY ; MON MTC┆
0x0600…0620 42 2c 43 52 45 41 54 45 4d 54 43 42 2f 52 45 4c 45 41 53 45 4d 54 43 42 0a 3b 20 20 20 20 20 20 ┆B,CREATEMTCB/RELEASEMTCB ; ┆
0x0620…0640 20 20 20 20 20 20 20 20 4d 4f 4e 20 52 45 47 49 4f 4e 2c 52 45 4e 54 45 52 2f 52 50 55 54 2f 52 ┆ MON REGION,RENTER/RPUT/R┆
0x0640…0660 50 55 4e 2f 52 4c 45 41 56 45 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 4d 49 ┆PUN/RLEAVE ; MON MI┆
0x0660…0680 4f 2c 4d 50 55 54 4d 54 43 42 2f 4d 45 4e 51 51 45 0a 3b 0a 3b 20 45 4e 54 52 49 45 53 3a 20 20 ┆O,MPUTMTCB/MENQQE ; ; ENTRIES: ┆
0x0680…06a0 20 20 20 4f 4d 41 43 4b 50 3a 20 20 20 20 4d 53 53 5f 41 43 4b 20 50 52 4f 43 45 53 53 49 4e 47 ┆ OMACKP: MSS_ACK PROCESSING┆
0x06a0…06c0 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4d 41 43 4b 50 3a 20 20 20 20 53 49 50 2d 20 ┆ ; IMACKP: SIP- ┆
0x06c0…06e0 41 4e 44 20 50 45 53 55 44 4f 20 41 43 4b 20 50 52 4f 43 45 53 53 49 4e 47 0a 3b 0a 3b 20 52 45 ┆AND PESUDO ACK PROCESSING ; ; RE┆
0x06e0…0700 54 55 52 4e 53 3a 20 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 ┆TURNS: LINK+0: DONE ; ┆
0x0700…0720 20 20 20 20 20 20 20 20 20 20 55 52 45 58 58 58 3a 20 20 20 20 45 52 52 4f 52 0a 3b 2d 2d 2d 2d ┆ UREXXX: ERROR ;----┆
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 ┆--------------------------------┆
[…0x1…]
0x0760…0780 2d 2d 0a 4f 4d 41 43 4b 50 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆-- OMACKP: ┆
0x0780…07a0 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 4f 4d 41 43 4b 50 0a 20 20 20 20 20 20 20 20 20 4d ┆ ;BEGIN OMACKP M┆
0x07a0…07c0 4f 56 20 20 20 20 20 20 20 20 20 20 52 35 20 20 52 4c 50 31 30 30 20 20 20 20 20 3b 20 20 20 53 ┆OV R5 RLP100 ; S┆
0x07c0…07e0 41 56 45 20 4c 49 4e 4b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 50 50 57 44 32 2b 4d ┆AVE LINK MOVC MPPWD2+M┆
0x07e0…0800 50 4e 43 20 20 20 20 20 20 20 52 37 20 20 3b 20 20 20 47 45 54 20 52 45 46 20 54 4f 20 41 43 4b ┆PNC R7 ; GET REF TO ACK┆
0x0800…0820 20 42 55 46 46 45 52 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 4d 50 50 57 44 35 2d 4d 50 ┆ BUFFER MOV MPPWD5-MP┆
0x0820…0840 50 57 44 32 2e 58 37 20 20 52 34 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 52 4c 20 20 20 20 20 ┆PWD2.X7 R4 ; SRL ┆
0x0840…0860 20 20 20 20 20 52 34 20 20 38 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 52 45 41 44 20 43 48 41 ┆ R4 8 ; READ CHA┆
0x0860…0880 4e 4e 45 4c 20 4e 4f 2e 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 ┆NNEL NO. MOV R┆
0x0880…08a0 34 20 20 43 43 48 4e 4f 20 20 20 20 20 20 3b 20 20 20 41 4e 44 20 53 54 4f 52 45 20 49 54 0a 20 ┆4 CCHNO ; AND STORE IT ┆
0x08a0…08c0 20 20 20 20 20 20 20 20 53 45 51 20 20 20 20 20 20 20 20 20 20 52 34 20 20 43 48 32 20 20 20 20 ┆ SEQ R4 CH2 ┆
0x08c0…08e0 20 20 20 20 3b 20 20 20 49 46 20 43 48 41 4e 4e 4f 3c 3e 43 48 32 20 54 48 45 4e 0a 20 20 20 20 ┆ ; IF CHANNO<>CH2 THEN ┆
0x08e0…0900 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 33 30 20 20 20 20 ┆ JMPI & S4 URE030 ┆
0x0900…0920 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 20 20 4d 4f 56 ┆ ;E REPORT ERROR MOV┆
0x0920…0940 20 20 58 41 43 4b 54 41 42 2e 58 34 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 47 45 54 ┆ XACKTAB.X4 R4 ; GET┆
0x0940…0960 20 41 43 4b 54 41 42 28 43 43 48 4e 4f 29 0a 20 20 20 20 20 20 20 20 20 53 42 4e 20 20 20 20 20 ┆ ACKTAB(CCHNO) SBN ┆
0x0960…0980 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 46 20 45 4e 54 52 59 ┆ X4 FEWAIT ; IF ENTRY┆
0x0980…09a0 20 4e 4f 54 20 41 43 54 49 56 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 ┆ NOT ACTIV THEN JMP ┆
0x09a0…09c0 20 20 20 20 20 20 20 20 20 20 30 2e 20 20 20 20 20 58 35 20 20 3b 20 20 20 20 20 49 47 4e 4f 52 ┆ 0. X5 ; IGNOR┆
0x09c0…09e0 45 20 41 43 4b 2c 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 ┆E ACK,RETURN LINK+0 ┆
0x09e0…0a00 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 45 4c 53 ┆ ; ELS┆
0x0a00…0a20 45 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 43 42 49 4e ┆E JMP S5 CBIN┆
0x0a20…0a40 41 52 59 20 20 20 20 3b 20 20 20 20 20 22 43 4f 4e 56 45 52 54 5f 42 49 4e 41 52 59 22 28 52 37 ┆ARY ; "CONVERT_BINARY"(R7┆
0x0a40…0a60 29 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 ┆
0x0a60…0a80 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 ┆
0x0a80…0aa0 20 20 20 20 20 20 20 20 20 20 52 31 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 43 20 20 4d ┆ R1 ; MODC M┆
0x0aa0…0ac0 53 47 49 44 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 43 4f 50 59 20 ┆SGIDL ; COPY ┆
0x0ac0…0ae0 41 43 4b 49 44 28 41 43 4b 42 55 46 2c 58 4f 55 54 49 44 29 0a 20 20 20 20 20 20 20 20 20 4d 4f ┆ACKID(ACKBUF,XOUTID) MO┆
0x0ae0…0b00 56 4d 20 20 20 20 20 20 20 20 20 58 37 20 20 20 20 20 20 20 20 20 58 31 20 20 3b 0a 20 20 20 20 ┆VM X7 X1 ; ┆
0x0b00…0b20 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 20 20 20 20 20 20 ┆ MOD R4 ┆
0x0b20…0b40 20 3b 20 20 20 20 20 42 45 47 49 4e 20 43 4f 4d 50 41 52 45 20 49 44 27 53 0a 20 20 20 20 20 20 ┆ ; BEGIN COMPARE ID'S ┆
0x0b40…0b60 20 20 20 4d 4f 56 43 20 20 58 49 4e 49 44 2b 4d 53 47 49 44 4c 20 20 20 20 20 20 52 32 20 20 3b ┆ MOVC XINID+MSGIDL R2 ;┆
0x0b60…0b80 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 53 47 49 44 4c 20 20 20 20 20 20 20 20 20 20 ┆ MOVC MSGIDL ┆
0x0b80…0ba0 20 20 52 30 20 20 3b 0a 50 31 31 30 3a 20 20 20 20 44 45 43 44 20 20 20 20 20 20 20 20 20 52 31 ┆ R0 ; P110: DECD R1┆
0x0ba0…0bc0 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 4e 45 50 20 20 20 20 ┆ R2 ; SNEP ┆
0x0bc0…0be0 20 20 20 20 20 58 31 20 20 20 20 20 20 20 20 20 58 32 20 20 3b 20 20 20 20 20 49 46 20 28 58 4f ┆ X1 X2 ; IF (XO┆
0x0be0…0c00 55 54 49 44 3d 58 49 4e 44 49 44 29 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 20 53 4f 42 20 20 ┆UTID=XINDID) THEN SOB ┆
0x0c00…0c20 20 20 20 20 20 20 20 20 52 30 20 20 50 31 31 30 20 20 20 20 20 20 20 3b 20 20 20 20 20 20 20 28 ┆ R0 P110 ; (┆
0x0c20…0c40 49 2e 45 2e 20 4c 41 53 54 20 52 45 43 45 49 56 45 44 29 0a 20 20 20 20 20 20 20 20 20 52 45 4c ┆I.E. LAST RECEIVED) REL┆
0x0c40…0c60 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 3b 20 20 20 20 20 20 ┆S X4 FEWAIT ; ┆
0x0c60…0c80 20 46 4c 41 47 20 45 4e 54 52 59 20 4e 4f 54 20 57 41 49 54 49 4e 47 0a 20 20 20 20 20 20 20 20 ┆ FLAG ENTRY NOT WAITING ┆
0x0c80…0ca0 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 20 ┆ ; ┆
0x0ca0…0cc0 20 20 20 45 4e 44 49 46 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 ┆ ENDIF JMP ┆
0x0cc0…0ce0 20 20 20 50 32 35 30 20 20 20 20 20 20 20 3b 20 20 20 20 20 47 4f 54 4f 20 4d 41 49 4c 5f 41 43 ┆ P250 ; GOTO MAIL_AC┆
0x0ce0…0d00 4b 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 20 ┆K: ┆
0x0d00…0d20 20 20 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 ┆ ; ENDIF ┆
0x0d20…0d40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 49 4d 41 43 4b 50 3a ┆ ; IMACKP:┆
0x0d40…0d60 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 42 ┆ ;B┆
0x0d60…0d80 45 47 49 4e 20 49 4d 41 43 4b 50 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 ┆EGIN IMACKP MOV ┆
0x0d80…0da0 20 20 52 35 20 20 52 4c 50 31 30 30 20 20 20 20 20 3b 20 20 20 53 41 56 45 20 4c 49 4e 4b 0a 20 ┆ R5 RLP100 ; SAVE LINK ┆
0x0da0…0dc0 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 20 20 20 20 20 20 ┆ MOD CCHNO ┆
0x0dc0…0de0 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 41 42 20 20 20 20 ┆ ; MOV XACKTAB ┆
0x0de0…0e00 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 45 4e 54 52 59 3d 58 41 43 4b 54 41 42 28 43 43 48 ┆ R4 ; ENTRY=XACKTAB(CCH┆
0x0e00…0e20 4e 4f 29 0a 20 20 20 20 20 20 20 20 20 53 42 4e 20 20 20 20 20 20 20 20 20 20 58 34 20 20 46 45 ┆NO) SBN X4 FE┆
0x0e20…0e40 57 41 49 54 20 20 20 20 20 3b 20 20 20 49 46 20 45 4e 54 52 59 20 4e 4f 54 20 57 41 49 54 49 4e ┆WAIT ; IF ENTRY NOT WAITIN┆
0x0e40…0e60 47 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 20 20 20 ┆G THEN JMPI ┆
0x0e60…0e80 20 52 4c 50 31 30 30 20 20 20 20 20 3b 20 20 20 20 20 49 47 4e 4f 52 45 20 49 54 2c 52 45 54 55 ┆ RLP100 ; IGNORE IT,RETU┆
0x0e80…0ea0 52 4e 20 4c 49 4e 4b 2b 30 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 ┆RN LINK+0 MOV ┆
0x0ea0…0ec0 52 34 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 20 42 45 47 49 4e 20 43 4f 4d 50 41 52 45 ┆R4 R2 ; BEGIN COMPARE┆
0x0ec0…0ee0 20 49 44 27 53 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 ┆ ID'S ADDC XINID ┆
0x0ee0…0f00 20 20 20 20 20 20 20 52 32 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 43 4d 53 47 ┆ R2 ; MOVC CMSG┆
0x0f00…0f20 49 44 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 20 20 4d 4f 56 ┆ID R1 ; MOV┆
0x0f20…0f40 43 20 20 4d 53 47 49 44 4c 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a 50 32 31 30 3a ┆C MSGIDL R0 ; P210:┆
0x0f40…0f60 20 20 20 20 53 45 51 20 20 20 20 20 20 20 20 20 20 58 31 20 20 20 20 20 20 20 20 20 58 32 20 20 ┆ SEQ X1 X2 ┆
0x0f60…0f80 3b 20 20 20 49 46 20 49 4e 49 44 2e 58 41 43 4b 54 41 42 3c 3e 43 4d 53 47 49 44 20 54 48 45 4e ┆; IF INID.XACKTAB<>CMSGID THEN┆
0x0f80…0fa0 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 20 20 20 20 52 4c 50 31 30 ┆ JMPI RLP10┆
0x0fa0…0fc0 30 20 20 20 20 20 3b 20 20 20 20 20 49 47 4e 4f 52 45 20 41 43 4b 2c 52 45 54 55 52 4e 20 4c 49 ┆0 ; IGNORE ACK,RETURN LI┆
0x0fc0…0fe0 4e 4b 2b 30 0a 20 20 20 20 20 20 20 20 20 49 4e 43 44 20 20 20 20 20 20 20 20 20 52 31 20 20 20 ┆NK+0 INCD R1 ┆
0x0fe0…1000 20 20 20 20 20 20 52 32 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 4f 42 20 20 20 20 20 20 20 20 ┆ R2 ; SOB ┆
0x1000…1020 20 20 52 30 20 20 50 32 31 30 20 20 20 20 20 20 20 3b 20 20 20 45 4e 44 20 43 4f 4d 50 41 52 45 ┆ R0 P210 ; END COMPARE┆
0x1020…1040 0a 20 20 20 20 20 20 20 20 20 52 45 4c 53 20 20 20 20 20 20 20 20 20 58 34 20 20 46 45 57 41 49 ┆ RELS X4 FEWAI┆
0x1040…1060 54 20 20 20 20 20 3b 20 20 20 53 54 41 54 55 53 2e 45 4e 54 52 59 3d 4e 4f 54 20 57 41 49 54 49 ┆T ; STATUS.ENTRY=NOT WAITI┆
0x1060…1080 4e 47 0a 20 20 20 20 20 20 20 20 20 53 42 4e 20 20 20 20 20 20 20 20 20 20 58 34 20 20 46 49 4e ┆NG SBN X4 FIN┆
0x1080…10a0 54 52 4e 4c 20 20 20 20 3b 20 20 20 49 46 20 49 4e 54 45 52 4e 41 4c 20 41 43 4b 20 4f 55 54 20 ┆TRNL ; IF INTERNAL ACK OUT ┆
0x10a0…10c0 54 48 45 4e 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 50 ┆THEN JMP P┆
0x10c0…10e0 32 35 30 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 4f 55 54 43 ┆250 ; MOV XOUTC┆
0x10e0…1100 48 2e 58 34 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 20 20 47 45 54 20 4f 55 54 20 43 ┆H.X4 R0 ; GET OUT C┆
0x1100…1120 48 41 4e 4e 45 4c 20 4e 4f 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 20 20 20 20 20 20 20 20 ┆HANNEL NO MOD ┆
0x1120…1140 52 34 20 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 ┆R4 ; MOVC ┆
0x1140…1160 58 4f 55 54 49 44 20 20 20 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 20 20 20 47 45 54 20 ┆XOUTID R2 ; GET ┆
0x1160…1180 52 45 46 2e 54 4f 20 4f 55 54 5f 49 44 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 50 41 ┆REF.TO OUT_ID MOVC MPA┆
0x1180…11a0 43 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 20 20 47 45 54 20 50 52 45 ┆CK R4 ; GET PRE┆
0x11a0…11c0 41 53 53 45 4d 42 4c 45 44 20 41 43 4b 0a 20 20 20 20 20 20 20 20 20 53 4c 4c 20 20 20 20 20 20 ┆ASSEMBLED ACK SLL ┆
0x11c0…11e0 20 20 20 20 52 30 20 20 38 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 50 53 45 55 44 4f 5f ┆ R0 8 ; PSEUDO_┆
0x11e0…1200 4d 54 43 42 20 28 4d 50 41 43 4b 29 0a 20 20 20 20 20 20 20 20 20 49 4f 52 20 20 20 20 20 20 20 ┆MTCB (MPACK) IOR ┆
0x1200…1220 20 20 20 52 30 20 20 4d 50 50 57 44 35 2e 58 34 20 20 3b 20 20 20 20 20 4c 4f 41 44 20 43 48 41 ┆ R0 MPPWD5.X4 ; LOAD CHA┆
0x1220…1240 4e 4e 45 4c 20 4e 4f 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 ┆NNEL NO MOD R4┆
0x1240…1260 20 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 4d 50 ┆ ; MOVC MP┆
0x1260…1280 50 57 44 32 20 20 20 20 20 20 20 20 20 20 20 20 52 31 20 20 3b 20 20 20 20 20 52 31 3a 3d 4f 42 ┆PWD2 R1 ; R1:=OB┆
0x1280…12a0 4a 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 20 ┆J MODC MSGIDL ┆
0x12a0…12c0 20 20 20 20 20 20 20 3b 20 20 20 20 20 28 52 32 3a 3d 53 4f 55 52 43 45 29 0a 20 20 20 20 20 20 ┆ ; (R2:=SOURCE) ┆
0x12c0…12e0 20 20 20 4d 4f 56 4d 20 20 20 20 20 20 20 20 20 58 32 20 20 20 20 20 20 20 20 20 58 31 20 20 3b ┆ MOVM X2 X1 ;┆
0x12e0…1300 20 20 20 20 20 4c 4f 41 44 20 4f 55 54 49 44 2e 58 41 43 4b 54 41 42 28 43 43 48 4e 4f 29 0a 20 ┆ LOAD OUTID.XACKTAB(CCHNO) ┆
0x1300…1320 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 ┆ ┆
0x1320…1340 20 20 20 20 3b 20 20 20 20 20 54 4f 20 50 53 45 55 44 4f 5f 4d 54 43 42 0a 20 20 20 20 20 20 20 ┆ ; TO PSEUDO_MTCB ┆
0x1340…1360 20 20 4d 4f 56 43 20 20 4d 4f 50 43 57 41 49 54 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a ┆ MOVC MOPCWAIT R0 ; ┆
0x1360…1380 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 4d 54 59 50 50 53 45 55 44 4f 20 20 20 20 20 20 ┆ MOVC MMTYPPSEUDO ┆
0x1380…13a0 20 52 31 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 54 43 42 2c 43 52 45 41 54 ┆ R1 ; MON MTCB,CREAT┆
0x13a0…13c0 45 4d 54 43 42 20 20 20 20 20 20 20 3b 20 20 20 20 20 22 43 52 45 41 54 45 5f 4d 54 43 42 22 28 ┆EMTCB ; "CREATE_MTCB"(┆
0x13c0…13e0 50 53 45 55 44 4f 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 ┆PSEUDO) JMPI & S4┆
0x13e0…1400 20 20 55 52 45 30 30 32 20 20 20 20 20 3b 45 20 20 20 20 58 30 3a 45 52 52 4f 52 2c 52 45 50 4f ┆ URE002 ;E X0:ERROR,REPO┆
0x1400…1420 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 20 20 20 20 ┆RT ERROR ┆
0x1420…1440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 58 31 3a 52 30 3a 3d 4d 54 43 42 58 ┆ ; X1:R0:=MTCBX┆
0x1440…1460 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f 2c 4d 50 55 54 4d 54 43 42 20 20 20 20 ┆ MON MIO,MPUTMTCB ┆
0x1460…1480 20 20 20 20 20 20 3b 20 20 20 20 20 4c 4f 41 44 20 4d 54 43 42 0a 20 20 20 20 20 20 20 20 20 4a ┆ ; LOAD MTCB J┆
0x1480…14a0 4d 50 49 20 20 26 20 20 20 20 20 20 53 34 20 20 55 52 45 30 30 32 20 20 20 20 20 3b 45 20 20 20 ┆MPI & S4 URE002 ;E ┆
0x14a0…14c0 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 20 20 20 20 ┆ X0:ERROR,REPORT ERROR ┆
0x14c0…14e0 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 20 20 ┆ ; ┆
0x14e0…1500 20 20 58 31 3a 52 30 3d 4d 54 43 42 58 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 51 44 4d ┆ X1:R0=MTCBX MOVC QDM┆
0x1500…1520 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 20 20 51 55 45 55 45 3d 4d ┆C R4 ; QUEUE=M┆
0x1520…1540 43 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f 2c 4d 45 4e 51 51 45 20 20 20 20 20 ┆C MON MIO,MENQQE ┆
0x1540…1560 20 20 20 20 20 20 20 3b 20 20 20 20 20 22 45 4e 51 55 45 55 45 5f 51 45 22 28 52 30 3d 4d 54 43 ┆ ; "ENQUEUE_QE"(R0=MTC┆
0x1560…1580 42 2c 52 34 3d 51 44 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 ┆B,R4=QD) JMPI & S┆
0x1580…15a0 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 52 45 50 ┆4 URE001 ;E X0:ERROR,REP┆
0x15a0…15c0 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 20 20 20 ┆ORT ERROR ┆
0x15c0…15e0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 58 31 3a 41 43 4b 20 45 4e 51 55 ┆ ; X1:ACK ENQU┆
0x15e0…1600 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 45 4c 45 41 53 45 ┆EUED MON MTCB,RELEASE┆
0x1600…1620 4d 54 43 42 20 20 20 20 20 20 3b 20 20 20 20 20 22 52 45 4c 45 41 53 45 2d 4d 54 43 42 22 0a 20 ┆MTCB ; "RELEASE-MTCB" ┆
0x1620…1640 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 30 32 20 ┆ JMPI & S4 URE002 ┆
0x1640…1660 20 20 20 20 3b 45 20 20 20 20 58 30 3a 45 52 52 4f 52 2c 52 45 50 4f 52 54 20 45 52 52 4f 52 0a ┆ ;E X0:ERROR,REPORT ERROR ┆
0x1660…1680 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 20 20 20 20 52 4c 50 31 30 30 ┆ JMPI RLP100┆
0x1680…16a0 20 20 20 20 20 3b 20 20 20 20 20 58 31 3a 44 4f 4e 45 2c 52 45 54 55 52 4e 20 4c 49 4e 4b 2b 30 ┆ ; X1:DONE,RETURN LINK+0┆
0x16a0…16c0 0a 50 32 35 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 ┆ P250: ┆
0x16c0…16e0 20 20 20 20 20 20 3b 20 20 20 45 4c 53 45 20 28 4d 41 49 4c 5f 41 43 4b 3a 29 0a 20 20 20 20 20 ┆ ; ELSE (MAIL_ACK:) ┆
0x16e0…1700 20 20 20 20 4d 4f 56 20 20 20 58 4f 55 54 43 48 2e 58 34 20 20 20 20 20 20 20 20 20 52 35 20 20 ┆ MOV XOUTCH.X4 R5 ┆
0x1700…1720 3b 20 20 20 20 20 47 45 54 20 4f 55 54 20 43 48 41 4e 4e 45 4c 20 4e 4f 0a 20 20 20 20 20 20 20 ┆; GET OUT CHANNEL NO ┆
0x1720…1740 20 20 49 4e 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 43 4b 53 4e 2e 20 58 35 20 20 3b 20 ┆ INC ACKSN. X5 ; ┆
0x1740…1760 20 20 20 20 55 50 44 41 54 45 20 41 43 4b 5f 53 45 51 4e 4f 0a 20 20 20 20 20 20 20 20 20 53 4f ┆ UPDATE ACK_SEQNO SO┆
0x1760…1780 4e 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 43 4b 53 4e 2e 20 58 35 20 20 3b 0a 20 20 20 20 ┆N ACKSN. X5 ; ┆
0x1780…17a0 20 20 20 20 20 49 4e 43 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 43 4b 53 4e 2e 20 58 35 20 ┆ INC ACKSN. X5 ┆
0x17a0…17c0 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 53 49 50 4d 41 49 4c 42 4f 58 20 20 20 20 ┆ ; MOVC SIPMAILBOX ┆
0x17c0…17e0 20 20 20 20 52 30 20 20 3b 20 20 20 20 20 52 45 47 49 4f 4e 3d 53 49 50 4d 41 49 4c 42 4f 58 0a ┆ R0 ; REGION=SIPMAILBOX ┆
0x17e0…1800 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 52 45 47 49 4f 4e 2c 52 45 4e 54 45 52 20 20 20 20 ┆ MON REGION,RENTER ┆
0x1800…1820 20 20 20 20 20 3b 20 20 20 20 20 45 4e 54 45 52 20 53 49 50 4d 41 49 4c 42 4f 58 0a 20 20 20 20 ┆ ; ENTER SIPMAILBOX ┆
0x1820…1840 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 34 20 20 20 20 ┆ JMPI & S4 URE004 ┆
0x1840…1860 20 3b 45 20 20 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 ┆
0x1860…1880 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 ┆ ┆
0x1880…18a0 20 20 3b 20 20 20 20 20 58 31 3a 4d 41 49 4c 42 4f 58 20 45 4e 54 45 52 45 44 0a 20 20 20 20 20 ┆ ; X1:MAILBOX ENTERED ┆
0x18a0…18c0 20 20 20 20 4d 4f 44 20 20 20 41 4d 41 49 4c 58 2e 58 35 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ MOD AMAILX.X5 ┆
0x18c0…18e0 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 42 58 41 58 20 20 20 20 20 20 20 20 20 20 ┆; MOVC MBXAX ┆
0x18e0…1900 20 20 20 52 31 20 20 3b 20 20 20 20 20 52 31 3d 41 43 4b 28 43 48 4e 4f 29 5f 49 4e 44 45 58 0a ┆ R1 ; R1=ACK(CHNO)_INDEX ┆
0x1900…1920 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 41 43 4b 53 4e 2e 20 58 35 20 20 20 20 20 20 20 20 ┆ MOV ACKSN. X5 ┆
[…truncated at 200 lines…]