|
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: 7916 (0x1eec)
Names: »INNMSG«
└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
└─⟦777b1406f⟧
└─ ⟦this⟧ »ISH.D!INNMSG«
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 49 4e 5f 4e 41 52 52 41 54 49 56 ┆------- ; PROCEDURE "IN_NARRATIV┆
0x0060…0080 45 5f 4d 45 53 53 41 47 45 22 28 49 4e 4e 4d 53 47 29 2e 0a 3b 0a 3b 20 4e 41 52 52 41 54 49 56 ┆E_MESSAGE"(INNMSG). ; ; NARRATIV┆
0x0080…00a0 45 3a 0a 3b 20 54 48 45 20 4e 41 52 52 41 54 49 56 45 20 4d 45 53 53 41 47 45 2c 44 45 53 49 47 ┆E: ; THE NARRATIVE MESSAGE,DESIG┆
0x00a0…00c0 4e 41 54 45 44 20 42 59 20 43 55 52 52 45 4e 54 20 4d 54 43 42 20 49 4e 44 45 58 28 43 4d 54 43 ┆NATED BY CURRENT MTCB INDEX(CMTC┆
0x00c0…00e0 42 58 29 20 49 53 0a 3b 20 49 4e 53 50 45 43 54 45 44 2c 54 4f 20 52 45 54 41 49 4e 20 44 54 47 ┆BX) IS ; INSPECTED,TO RETAIN DTG┆
0x00e0…0100 2c 4d 53 47 49 44 2c 52 4d 41 53 4b 20 41 4e 44 20 43 48 41 4e 2e 4e 4f 2c 57 48 49 43 48 20 41 ┆,MSGID,RMASK AND CHAN.NO,WHICH A┆
0x0100…0120 52 45 20 53 54 4f 52 45 44 20 49 4e 0a 3b 20 43 44 54 47 2c 43 4d 53 47 49 44 2c 43 52 4d 41 53 ┆RE STORED IN ; CDTG,CMSGID,CRMAS┆
0x0120…0140 4b 20 41 4e 44 20 43 43 48 4e 4f 20 52 45 53 50 45 43 54 49 56 45 4c 59 2e 0a 3b 0a 3b 20 52 45 ┆K AND CCHNO RESPECTIVELY. ; ; RE┆
0x0140…0160 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 20 ┆GISTER USE: ENTRY ┆
0x0160…0180 20 20 20 20 20 45 58 49 54 0a 3b 20 20 20 20 20 20 20 20 52 35 20 20 20 20 20 20 20 20 20 20 20 ┆ EXIT ; R5 ┆
0x0180…01a0 4c 49 4e 4b 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 20 ┆LINK DESTROYED ; ┆
0x01a0…01c0 20 20 20 20 20 20 52 30 2d 52 37 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R0-R7 - ┆
0x01c0…01e0 20 20 20 20 20 20 44 45 53 54 52 4f 59 45 44 0a 3b 0a 3b 20 43 41 4c 53 20 54 4f 3a 20 20 20 20 ┆ DESTROYED ; ; CALS TO: ┆
0x01e0…0200 20 4d 49 4f 2c 4d 4f 50 45 4e 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 49 4f 2c 4d 53 ┆ MIO,MOPEN ; MIO,MS┆
0x0200…0220 45 54 50 4f 53 0a 3b 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 ┆ETPOS ; MIO,MLOAD ;┆
0x0220…0240 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 49 4f 2c 4d 43 4c 4f 53 45 0a 3b 0a 3b 20 52 45 54 ┆ MIO,MCLOSE ; ; RET┆
0x0240…0260 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 20 ┆URNS: LINK+0:DONE ; ┆
0x0260…0280 20 20 20 20 20 55 52 45 58 58 58 3a 45 52 52 4f 52 0a 3b 0a 3b 20 49 4e 50 55 54 3a 20 20 20 20 ┆ UREXXX:ERROR ; ; INPUT: ┆
0x0280…02a0 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 4d 53 47 49 ┆ CMTCBX ; ; OUTPUT: CMSGI┆
0x02a0…02c0 44 0a 3b 20 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 ┆D ; CCHNO ; ┆
0x02c0…02e0 20 20 20 20 20 20 43 44 54 47 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 52 4d 41 53 4b ┆ CDTG ; CRMASK┆
0x02e0…0300 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 50 52 45 43 0a 3b 0a 3b 20 57 4f 52 4b 3a ┆ ; CAPREC ; ; WORK:┆
0x0300…0320 20 20 20 20 20 20 20 20 4e 4d 4d 46 44 43 42 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 ┆ NMMFDCB ; C┆
0x0320…0340 41 4c 49 53 54 4c 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 41 4c 49 53 54 52 0a 3b 2d ┆ALISTL ; CALISTR ;-┆
0x0340…0360 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…]
0x0380…03a0 2d 2d 2d 2d 2d 0a 49 4e 4e 4d 53 47 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆----- INNMSG: ┆
0x03a0…03c0 20 20 20 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 49 4e 4e 4d 53 47 2e 0a 20 20 20 20 20 20 ┆ ;BEGIN INNMSG. ┆
0x03c0…03e0 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 35 20 20 52 4c 4c 31 30 30 20 20 20 20 20 3b ┆ MOV R5 RLL100 ;┆
0x03e0…0400 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 20 20 20 43 4d 54 43 ┆ SAVE LINK MOV CMTC┆
0x0400…0420 42 58 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 ┆BX R0 ; GET MTCB I┆
0x0420…0440 4e 44 45 58 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4e 4d 4d 46 44 43 42 20 20 20 20 20 ┆NDEX MOVC NMMFDCB ┆
0x0440…0460 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 47 45 54 20 52 45 46 2e 54 4f 20 4d 46 44 43 42 0a 20 ┆ R4 ; GET REF.TO MFDCB ┆
0x0460…0480 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f 2c 4d 4f 50 45 4e 20 20 20 20 20 20 20 20 20 ┆ MON MIO,MOPEN ┆
0x0480…04a0 20 20 20 20 3b 20 20 20 22 4f 50 45 4e 22 28 52 30 3d 4d 54 43 42 58 2c 52 34 3d 4d 46 44 43 42 ┆ ; "OPEN"(R0=MTCBX,R4=MFDCB┆
0x04a0…04c0 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 30 ┆) JMPI & S4 URE0┆
0x04c0…04e0 30 31 20 20 20 20 20 3b 45 20 20 58 30 3a 4d 46 44 43 42 20 45 52 52 4f 52 2c 52 45 50 4f 52 54 ┆01 ;E X0:MFDCB ERROR,REPORT┆
0x04e0…0500 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 ┆
0x0500…0520 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 58 31 3a 4d 46 44 43 42 20 4f 50 45 4e 45 44 0a ┆ ; X1:MFDCB OPENED ┆
0x0520…0540 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 ┆ ┆
0x0540…0560 20 20 20 20 20 3b 20 20 20 28 4e 4f 54 45 3a 50 4f 53 49 54 49 4f 4e 20 42 59 20 44 45 46 41 55 ┆ ; (NOTE:POSITION BY DEFAU┆
0x0560…0580 4c 54 3d 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 ┆LT=0 ┆
0x0580…05a0 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 49 2e 45 2e 20 53 54 41 52 54 20 4f 46 20 42 49 4e ┆ ; I.E. START OF BIN┆
0x05a0…05c0 20 48 45 41 44 45 52 29 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f 2c 4d 4c 4f 41 ┆ HEADER) MON MIO,MLOA┆
0x05c0…05e0 44 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 4c 4f 41 44 42 49 4e 48 45 41 44 22 28 ┆D ; "LOADBINHEAD"(┆
0x05e0…0600 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 20 20 20 20 20 20 ┆R4=MFDCB) JMPI & ┆
0x0600…0620 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 52 2c 52 45 50 4f ┆S4 URE001 ;E X0:ERROR,REPO┆
0x0620…0640 52 54 20 45 52 52 4f 52 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 20 20 20 20 20 20 20 20 52 ┆RT ERROR MOD R┆
0x0640…0660 34 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 58 31 3a 44 4f 4e 45 20 28 4d 46 44 44 41 ┆4 ; X1:DONE (MFDDA┆
0x0660…0680 54 20 4c 4f 41 44 45 44 29 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 46 44 44 41 54 20 ┆T LOADED) MOVC MFDDAT ┆
0x0680…06a0 20 20 20 20 20 20 20 20 20 20 20 52 35 20 20 3b 20 20 20 47 45 54 20 52 45 46 2e 54 4f 20 4d 46 ┆ R5 ; GET REF.TO MF┆
0x06a0…06c0 44 44 41 54 2e 4d 46 44 43 42 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 42 48 41 50 52 45 ┆DDAT.MFDCB MOV BHAPRE┆
0x06c0…06e0 43 2e 58 35 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 47 45 54 20 41 43 54 49 4f 4e 20 50 ┆C.X5 R0 ; GET ACTION P┆
0x06e0…0700 52 45 43 2e 0a 20 20 20 20 20 20 20 20 20 58 54 52 20 20 20 20 20 20 20 20 20 20 52 30 20 20 38 ┆REC. XTR R0 8┆
0x0700…0720 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 41 4e 44 20 53 54 4f 52 45 20 49 54 0a 20 20 20 20 20 ┆ ; AND STORE IT ┆
0x0720…0740 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 30 20 20 43 50 52 45 43 20 20 20 20 20 20 ┆ MOV R0 CPREC ┆
0x0740…0760 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 42 48 41 4c 53 54 2e 58 35 20 20 20 20 20 20 ┆; MOV BHALST.X5 ┆
0x0760…0780 20 20 20 52 30 20 20 3b 20 20 20 52 45 41 44 20 41 4e 44 20 53 54 4f 52 45 20 41 44 44 52 45 53 ┆ R0 ; READ AND STORE ADDRES┆
0x0780…07a0 53 2d 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 30 20 20 43 41 4c ┆S- MOV R0 CAL┆
0x07a0…07c0 49 53 54 52 20 20 20 20 3b 20 20 20 4c 49 53 54 2d 52 45 46 45 52 45 4e 43 45 2e 0a 20 20 20 20 ┆ISTR ; LIST-REFERENCE. ┆
0x07c0…07e0 20 20 20 20 20 4d 4f 56 20 20 20 42 48 4c 47 54 48 2e 58 35 20 20 20 20 20 20 20 20 20 52 30 20 ┆ MOV BHLGTH.X5 R0 ┆
0x07e0…0800 20 3b 20 20 20 52 45 41 44 20 4d 45 53 53 41 47 45 20 4c 45 4e 47 54 48 0a 20 20 20 20 20 20 20 ┆ ; READ MESSAGE LENGTH ┆
0x0800…0820 20 20 53 55 42 20 20 20 43 41 4c 49 53 54 52 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 ┆ SUB CALISTR R0 ; ┆
0x0820…0840 20 20 41 4e 44 20 43 41 4c 43 55 4c 41 54 45 20 41 4c 49 53 54 20 4c 45 4e 47 54 48 0a 20 20 20 ┆ AND CALCULATE ALIST LENGTH ┆
0x0840…0860 20 20 20 20 20 20 53 52 4c 20 20 20 20 20 20 20 20 20 20 52 30 20 20 31 20 20 20 20 20 20 20 20 ┆ SRL R0 1 ┆
0x0860…0880 20 20 3b 20 20 20 49 4e 20 57 4f 52 44 53 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 ┆ ; IN WORDS MOV ┆
0x0880…08a0 20 20 20 20 20 52 30 20 20 43 41 4c 49 53 54 4c 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d ┆ R0 CALISTL ; M┆
0x08a0…08c0 4f 56 4c 20 42 48 52 54 49 4d 30 2e 58 35 20 20 20 20 20 20 20 20 20 52 30 31 20 3b 20 20 20 52 ┆OVL BHRTIM0.X5 R01 ; R┆
0x08c0…08e0 45 41 44 20 44 54 47 20 41 4e 44 20 53 54 4f 52 45 20 49 4e 0a 20 20 20 20 20 20 20 20 20 4d 4f ┆EAD DTG AND STORE IN MO┆
0x08e0…0900 44 4e 20 20 20 20 20 20 20 20 20 52 37 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 43 55 ┆DN R7 ; CU┆
0x0900…0920 52 52 45 4e 54 20 44 54 47 20 28 43 44 54 47 29 2e 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 4c 20 ┆RRENT DTG (CDTG). MOVL ┆
0x0920…0940 20 20 20 20 20 20 20 20 52 30 31 20 43 44 54 47 2e 20 20 58 37 20 20 3b 0a 20 20 20 20 20 20 20 ┆ R01 CDTG. X7 ; ┆
0x0940…0960 20 20 4d 4f 56 4c 20 42 48 52 4d 53 4b 30 2e 58 35 20 20 20 20 20 20 20 20 20 52 30 31 20 3b 20 ┆ MOVL BHRMSK0.X5 R01 ; ┆
0x0960…0980 20 20 52 45 41 44 20 52 4f 55 54 49 4e 47 20 4d 41 53 4b 20 41 4e 44 0a 20 20 20 20 20 20 20 20 ┆ READ ROUTING MASK AND ┆
0x0980…09a0 20 4d 4f 44 4e 20 20 20 20 20 20 20 20 20 52 37 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 ┆ MODN R7 ; ┆
0x09a0…09c0 20 53 54 4f 52 45 20 49 54 20 49 4e 20 43 55 52 52 45 4e 54 20 52 4d 41 53 4b 0a 20 20 20 20 20 ┆ STORE IT IN CURRENT RMASK ┆
0x09c0…09e0 20 20 20 20 4d 4f 56 4c 20 20 20 20 20 20 20 20 20 52 30 31 20 43 52 4d 41 53 4b 2e 58 37 20 20 ┆ MOVL R01 CRMASK.X7 ┆
0x09e0…0a00 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 42 48 4d 49 44 52 2e 58 35 20 20 20 20 20 20 ┆; MOV BHMIDR.X5 ┆
0x0a00…0a20 20 20 20 52 30 20 20 3b 20 20 20 52 45 41 44 20 4f 46 46 53 45 54 20 54 4f 20 4d 53 47 49 44 2c ┆ R0 ; READ OFFSET TO MSGID,┆
0x0a20…0a40 41 4e 44 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f 2c 4d 53 45 54 50 4f 53 20 20 ┆AND MON MIO,MSETPOS ┆
0x0a40…0a60 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 53 45 54 50 4f 53 49 54 49 4f 4e 22 28 4d 53 47 49 44 ┆ ; "SETPOSITION"(MSGID┆
0x0a60…0a80 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 30 ┆) JMPI & S4 URE0┆
0x0a80…0aa0 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 52 ┆01 ;E X0:ERROR,REPORT ERROR┆
0x0aa0…0ac0 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 ┆ ┆
0x0ac0…0ae0 20 20 20 20 20 20 3b 20 20 20 58 31 3a 44 4f 4e 45 2c 50 4f 53 3a 3d 4d 53 47 49 44 0a 20 20 20 ┆ ; X1:DONE,POS:=MSGID ┆
0x0ae0…0b00 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f 2c 4d 4c 4f 41 44 20 20 20 20 20 20 20 20 20 20 20 ┆ MON MIO,MLOAD ┆
0x0b00…0b20 20 20 3b 20 20 20 22 4c 4f 41 44 4d 53 47 49 44 22 28 52 34 3d 4d 46 44 43 42 29 0a 20 20 20 20 ┆ ; "LOADMSGID"(R4=MFDCB) ┆
0x0b20…0b40 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 31 20 20 20 20 ┆ JMPI & S4 URE001 ┆
0x0b40…0b60 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 20 20 ┆ ;E X0:ERROR,REPORT ERROR ┆
0x0b60…0b80 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 ┆ ┆
0x0b80…0ba0 3b 20 20 20 58 31 3a 44 4f 4e 45 2c 4d 46 44 44 41 54 20 4c 4f 41 44 45 44 0a 20 20 20 20 20 20 ┆; X1:DONE,MFDDAT LOADED ┆
0x0ba0…0bc0 20 20 20 4d 4f 56 43 20 20 43 4d 53 47 49 44 20 20 20 20 20 20 20 20 20 20 20 20 52 36 20 20 3b ┆ MOVC CMSGID R6 ;┆
0x0bc0…0be0 20 20 20 47 45 54 20 52 45 46 2e 54 4f 20 4d 53 47 49 44 20 53 54 4f 52 41 47 45 0a 20 20 20 20 ┆ GET REF.TO MSGID STORAGE ┆
0x0be0…0c00 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 20 20 ┆ MODC MSGIDL ┆
0x0c00…0c20 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 35 20 20 20 20 20 ┆ ; MOVM X5 ┆
0x0c20…0c40 20 20 20 20 58 36 20 20 3b 20 20 20 53 54 4f 52 45 20 4d 53 47 49 44 0a 20 20 20 20 20 20 20 20 ┆ X6 ; STORE MSGID ┆
0x0c40…0c60 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 0a 4c ┆ ; L┆
0x0c60…0c80 31 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 20 20 ┆110: ┆
0x0c80…0ca0 20 20 20 20 3b 20 46 4f 52 20 41 4c 4c 20 41 4c 49 53 54 20 53 45 47 4d 45 4e 54 53 20 44 4f 0a ┆ ; FOR ALL ALIST SEGMENTS DO ┆
0x0ca0…0cc0 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 43 41 4c 49 53 54 52 20 20 20 20 20 20 20 20 20 20 ┆ MOV CALISTR ┆
0x0cc0…0ce0 20 52 30 20 20 3b 20 20 20 47 45 54 20 53 45 47 4d 45 4e 54 20 53 54 41 52 54 41 44 44 52 45 53 ┆ R0 ; GET SEGMENT STARTADDRES┆
0x0ce0…0d00 53 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 49 4f 2c 4d 53 45 54 50 4f 53 20 20 20 20 ┆S MON MIO,MSETPOS ┆
0x0d00…0d20 20 20 20 20 20 20 20 3b 20 20 20 22 53 45 54 50 4f 53 49 54 49 4f 4e 22 28 52 30 3d 53 54 41 52 ┆ ; "SETPOSITION"(R0=STAR┆
0x0d20…0d40 54 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 ┆T) JMPI & S4 URE┆
0x0d40…0d60 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┆
0x0d60…0d80 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 ┆
0x0d80…0da0 20 20 20 20 20 20 20 3b 20 20 20 58 31 3a 44 4f 4e 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 ┆ ; X1:DONE MON ┆
0x0da0…0dc0 20 20 4d 49 4f 2c 4d 4c 4f 41 44 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 4c 4f 41 ┆ MIO,MLOAD ; "LOA┆
0x0dc0…0de0 44 20 41 44 44 52 45 53 53 4c 49 53 54 22 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 26 20 ┆D ADDRESSLIST" JMPI & ┆
0x0de0…0e00 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 52 4f 52 ┆ S4 URE001 ; X0:ERROR┆
0x0e00…0e20 2c 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 43 20 20 30 20 20 ┆,REPORT ERROR MOVC 0 ┆
0x0e20…0e40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 58 31 3a 44 4f 4e 45 2c 50 ┆ R3 ; X1:DONE,P┆
0x0e40…0e60 52 45 53 45 54 20 49 4e 44 45 58 0a 4c 31 32 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RESET INDEX L120: ┆
0x0e60…0e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 46 4f 52 20 41 4e 4f 27 53 20 49 ┆ ; FOR ANO'S I┆
0x0e80…0ea0 4e 20 43 55 52 52 45 4e 54 20 53 45 47 4d 20 44 4f 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 ┆N CURRENT SEGM DO MOD ┆
0x0ea0…0ec0 20 43 41 4c 49 53 54 4c 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 ┆ CALISTL ; ┆
0x0ec0…0ee0 20 20 53 4c 4f 20 20 20 20 20 20 20 20 20 20 52 33 20 20 30 20 20 20 20 20 20 20 20 20 20 3b 20 ┆ SLO R3 0 ; ┆
0x0ee0…0f00 20 20 20 20 49 46 20 41 44 44 52 45 53 53 4c 49 53 54 20 44 4f 4e 45 20 20 54 48 45 4e 0a 20 20 ┆ IF ADDRESSLIST DONE THEN ┆
0x0f00…0f20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 31 38 30 20 20 20 20 ┆ JMP L180 ┆
0x0f20…0f40 20 20 20 3b 20 20 20 20 20 20 20 47 4f 54 4f 20 55 4e 4b 4e 4f 57 4e 5f 43 48 4e 4f 3a 0a 20 20 ┆ ; GOTO UNKNOWN_CHNO: ┆
0x0f40…0f60 20 20 20 20 20 20 20 4d 4f 44 20 20 20 20 20 20 20 20 20 20 52 33 20 20 20 20 20 20 20 20 20 20 ┆ MOD R3 ┆
0x0f60…0f80 20 20 20 3b 20 20 20 20 20 45 4c 53 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 4d 46 44 ┆ ; ELSE MOV MFD┆
0x0f80…0fa0 44 41 54 2e 58 34 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 20 20 20 20 47 45 54 20 4e ┆DAT.X4 R0 ; GET N┆
0x0fa0…0fc0 45 58 54 20 41 4e 4f 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 ┆EXT ANO ┆
0x0fc0…0fe0 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 45 4e 44 49 46 0a 20 20 20 20 20 20 20 ┆ ; ENDIF ┆
0x0fe0…1000 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 53 35 20 20 47 45 54 43 48 4e 4f 20 20 20 20 3b 20 ┆ JMP S5 GETCHNO ; ┆
0x1000…1020 20 20 20 20 22 47 45 54 43 48 4e 4f 22 28 52 30 3d 41 4e 4f 29 0a 20 20 20 20 20 20 20 20 20 4a ┆ "GETCHNO"(R0=ANO) J┆
0x1020…1040 4d 50 20 20 20 26 20 20 20 20 20 20 20 20 20 20 4c 31 33 30 20 20 20 20 20 20 20 3b 20 20 20 20 ┆MP & L130 ; ┆
0x1040…1060 20 58 30 3a 4e 4f 54 20 52 45 43 4f 47 4e 49 5a 45 44 2c 43 4f 4e 54 49 4e 55 45 0a 20 20 20 20 ┆ X0:NOT RECOGNIZED,CONTINUE ┆
0x1060…1080 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 31 39 30 20 20 20 20 20 20 ┆ JMP L190 ┆
0x1080…10a0 20 3b 20 20 20 20 20 58 31 3a 52 30 3d 43 48 4e 4f 2c 47 4f 54 4f 20 4c 4f 41 44 5f 43 48 4e 4f ┆ ; X1:R0=CHNO,GOTO LOAD_CHNO┆
0x10a0…10c0 3a 0a 4c 31 33 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 ┆: L130: ┆
0x10c0…10e0 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 49 4c 4f 50 20 20 20 20 20 20 20 20 20 52 ┆ ; ILOP R┆
0x10e0…1100 33 20 20 53 45 47 4d 57 53 2d 31 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 31 ┆3 SEGMWS-1 ; ADDC 1┆
0x1100…1120 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 20 20 49 4e 44 45 58 ┆ R3 ; INDEX┆
0x1120…1140 3d 49 4e 44 45 58 2b 31 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 ┆=INDEX+1 JMP ┆
0x1140…1160 20 20 20 4c 31 32 30 20 20 20 20 20 20 20 3b 20 20 20 45 4e 44 20 46 4f 52 20 41 4c 4c 20 41 4e ┆ L120 ; END FOR ALL AN┆
0x1160…1180 4f 27 53 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 43 41 4c 49 53 54 4c 20 20 20 20 20 20 ┆O'S MOV CALISTL ┆
0x1180…11a0 20 20 20 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 2d 53 45 47 4d 57 ┆ R0 ; ADDC -SEGMW┆
0x11a0…11c0 53 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 55 50 44 41 54 45 20 52 45 4d 41 49 ┆S R0 ; UPDATE REMAI┆
0x11c0…11e0 4e 20 41 4c 49 53 54 20 4c 45 4e 47 54 48 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 ┆N ALIST LENGTH MOV ┆
0x11e0…1200 20 20 20 20 20 52 30 20 20 43 41 4c 49 53 54 4c 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d ┆ R0 CALISTL ; M┆
0x1200…1220 4f 56 20 20 20 43 41 4c 49 53 54 52 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 43 ┆OV CALISTR R0 ; C┆
0x1220…1240 41 4c 43 55 4c 41 54 45 20 53 54 41 52 54 20 4f 46 20 4e 45 58 54 20 53 45 47 4d 0a 20 20 20 20 ┆ALCULATE START OF NEXT SEGM ┆
0x1240…1260 20 20 20 20 20 41 44 44 43 20 20 53 45 47 4d 42 53 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 ┆ ADDC SEGMBS R0 ┆
0x1260…1280 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 30 20 20 43 41 4c ┆ ; MOV R0 CAL┆
0x1280…12a0 49 53 54 52 20 20 20 20 3b 20 20 20 41 4e 44 20 53 54 4f 52 45 20 49 54 20 41 53 20 43 55 52 52 ┆ISTR ; AND STORE IT AS CURR┆
0x12a0…12c0 2e 20 53 45 47 4d 2e 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 ┆. SEGM. JMP ┆
0x12c0…12e0 20 20 4c 31 31 30 20 20 20 20 20 20 20 3b 20 45 4e 44 20 46 4f 52 20 41 4c 4c 20 41 4c 49 53 54 ┆ L110 ; END FOR ALL ALIST┆
0x12e0…1300 20 53 45 47 4d 45 4e 54 53 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ SEGMENTS ┆
0x1300…1320 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 0a 4c 31 38 30 3a 20 20 20 20 20 20 20 20 20 20 ┆ ; L180: ┆
0x1320…1340 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 55 4e 4b 4e 4f 57 4e 5f 43 ┆ ;UNKNOWN_C┆
0x1340…1360 48 4e 4f 3a 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 46 41 4c 53 45 20 20 20 20 20 20 20 ┆HNO: MOVC FALSE ┆
0x1360…1380 20 20 20 20 20 20 52 30 20 20 3b 0a 4c 31 39 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R0 ; L190: ┆
0x1380…13a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 4c 4f 41 44 5f 43 48 4e 4f 3a 0a 20 20 20 ┆ ;LOAD_CHNO: ┆
0x13a0…13c0 20 20 20 20 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 ┆ MOV R0 CCHNO ┆
0x13c0…13e0 20 20 3b 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 ┆ ; MON MIO,MCLOSE ┆
0x13e0…1400 20 20 20 20 20 20 20 20 20 3b 20 20 20 22 43 4c 4f 53 45 22 28 52 34 3d 4d 46 44 43 42 29 0a 20 ┆ ; "CLOSE"(R4=MFDCB) ┆
0x1400…1420 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 31 20 ┆ JMPI & S4 URE001 ┆
0x1420…1440 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 52 0a 20 20 ┆ ;E X0:ERROR,REPORT ERROR ┆
0x1440…1460 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 ┆ ┆
0x1460…1480 20 20 20 3b 20 20 20 58 31 3a 44 4f 4e 45 2c 4d 46 44 43 42 20 43 4c 4f 53 45 44 0a 20 20 20 20 ┆ ; X1:DONE,MFDCB CLOSED ┆
0x1480…14a0 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 20 20 20 20 52 4c 4c 31 30 30 20 20 20 20 ┆ JMPI RLL100 ┆
0x14a0…14c0 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 ┆
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 3b 45 4e 44 20 49 4e 4e ┆ ;END INN┆
0x14e0…1500 4d 53 47 2e 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 ┆MSG. ;--------------------------┆
0x1500…1520 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 ┆--------------------------------┆
0x1520…1540 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 20 4c 4f 43 41 4c 20 53 55 42 52 4f 55 54 49 4e 45 20 ┆------------ ; LOCAL SUBROUTINE ┆
0x1540…1560 22 47 45 54 5f 43 48 41 4e 4e 45 4c 5f 4e 4f 22 20 28 47 45 54 43 48 4e 4f 29 2e 0a 3b 0a 3b 20 ┆"GET_CHANNEL_NO" (GETCHNO). ; ; ┆
0x1560…1580 4e 41 52 52 41 54 49 56 45 3a 0a 3b 20 41 4e 20 41 4e 4f 20 28 52 30 29 20 49 53 20 53 45 41 52 ┆NARRATIVE: ; AN ANO (R0) IS SEAR┆
0x1580…15a0 43 48 20 49 4e 20 27 41 4e 4f 54 41 42 4c 45 27 2e 49 46 20 46 4f 55 4e 44 20 54 48 45 20 43 4f ┆CH IN 'ANOTABLE'.IF FOUND THE CO┆
0x15a0…15c0 52 52 45 53 50 4f 4e 44 49 4e 47 0a 3b 20 43 48 41 4e 4e 45 4c 4e 4f 20 28 41 53 20 44 45 46 49 ┆RRESPONDING ; CHANNELNO (AS DEFI┆
0x15c0…15e0 4e 45 44 20 42 59 20 41 4e 4f 54 41 42 4c 45 29 20 49 53 20 52 45 41 44 2c 41 4e 44 20 52 45 54 ┆NED BY ANOTABLE) IS READ,AND RET┆
0x15e0…1600 55 52 4e 20 4d 41 44 45 20 54 4f 20 4c 49 4e 4b 2b 31 0a 3b 20 45 4c 53 45 20 52 45 54 55 52 4e ┆URN MADE TO LINK+1 ; ELSE RETURN┆
0x1600…1620 20 54 4f 20 4c 49 4e 4b 2b 30 2e 0a 3b 0a 3b 20 52 45 47 49 53 54 45 52 20 55 53 45 3a 20 20 20 ┆ TO LINK+0. ; ; REGISTER USE: ┆
0x1620…1640 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 20 20 ┆ ENTRY EXIT ; ┆
0x1640…1660 20 20 20 20 20 52 30 20 20 20 20 20 20 20 20 20 20 20 41 4e 4f 20 20 20 20 20 20 20 20 20 20 20 ┆ R0 ANO ┆
0x1660…1680 20 20 20 20 20 43 48 4e 4f 0a 3b 20 20 20 20 20 20 20 20 52 31 2c 52 32 20 20 20 20 20 20 20 20 ┆ CHNO ; R1,R2 ┆
0x1680…16a0 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 20 ┆- DESTROYED ; ┆
0x16a0…16c0 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 20 ┆ R5 LINK ┆
0x16c0…16e0 20 20 20 20 20 20 4b 45 50 54 0a 3b 20 20 20 20 20 20 20 20 52 37 20 20 20 20 20 20 20 20 20 20 ┆ KEPT ; R7 ┆
0x16e0…1700 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 0a ┆ - DESTROYED ; ┆
0x1700…1720 3b 20 52 45 54 55 52 4e 53 3a 20 20 20 20 20 4c 49 4e 4b 2b 30 3a 4e 4f 54 20 46 4f 55 4e 44 0a ┆; RETURNS: LINK+0:NOT FOUND ┆
0x1720…1740 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 49 4e 4b 2b 31 3a 46 4f 55 4e 44 0a 3b 2d 2d 2d ┆; LINK+1:FOUND ;---┆
0x1740…1760 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…]
0x1780…17a0 2d 2d 2d 0a 41 4e 4f 54 41 42 4c 45 3a 4c 4f 43 3d 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆--- ANOTABLE:LOC=0 ┆
0x17a0…17c0 20 20 20 20 20 20 20 20 20 3b 20 41 4e 4f 3d 3e 43 48 4e 4f 20 54 41 42 4c 45 0a 20 20 20 20 20 ┆ ; ANO=>CHNO TABLE ┆
0x17c0…17e0 20 20 20 20 53 49 50 4d 49 44 3c 38 2b 32 30 33 20 2c 43 48 33 20 20 20 20 20 20 20 20 20 20 20 ┆ SIPMID<8+203 ,CH3 ┆
0x17e0…1800 3b 0a 20 20 20 20 20 20 20 20 20 53 49 50 4d 49 44 3c 38 2b 32 30 34 20 2c 43 48 34 20 20 20 20 ┆; SIPMID<8+204 ,CH4 ┆
0x1800…1820 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 49 50 4d 49 44 3c 38 2b 32 30 35 20 2c ┆ ; SIPMID<8+205 ,┆
0x1820…1840 43 48 35 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 49 50 4d 49 44 3c ┆CH5 ; SIPMID<┆
0x1840…1860 38 2b 32 30 36 20 2c 43 48 36 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 ┆8+206 ,CH6 ; ┆
0x1860…1880 58 4d 45 44 45 49 44 3c 38 2b 33 20 20 2c 43 48 30 20 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 ┆XMEDEID<8+3 ,CH0 ; ┆
0x1880…18a0 20 20 20 20 20 20 20 58 4d 45 44 45 49 44 3c 38 2b 34 20 20 2c 43 48 31 20 20 20 20 20 20 20 20 ┆ XMEDEID<8+4 ,CH1 ┆
0x18a0…18c0 20 20 20 3b 0a 41 4e 4f 54 42 4c 3a 3d 4c 4f 43 2f 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; ANOTBL:=LOC/2 ┆
0x18c0…18e0 20 20 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 58 4d 45 44 45 49 44 3c 38 2b 35 ┆ ; XMEDEID<8+5┆
0x18e0…1900 20 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 58 4d 45 44 ┆ ; XMED┆
0x1900…1920 45 49 44 3c 38 2b 31 39 37 2c 43 48 32 20 20 20 20 20 20 20 20 20 20 20 3b 0a 4c 4f 43 3d 41 4e ┆EID<8+197,CH2 ; LOC=AN┆
[…truncated at 200 lines…]