|
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: 4578 (0x11e2)
Names: »GENCTRLMSG«
└─⟦21011a92c⟧ Bits:30005095 8" CR80 Floppy CR80FD_0052 ( HMDIR 2 VOL: BACKUP MD: ISH.D From: HMDIR*ISH.D )
└─⟦777b1406f⟧
└─ ⟦this⟧ »ISH.D!GENCTRLMSG«
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 47 45 4e 45 52 41 54 45 5f 43 4f ┆------- ; PROCEDURE "GENERATE_CO┆
0x0060…0080 4e 54 52 4f 4c 5f 4d 45 53 53 41 47 45 22 28 47 45 4e 43 54 52 4c 4d 53 47 29 2e 0a 3b 0a 3b 20 ┆NTROL_MESSAGE"(GENCTRLMSG). ; ; ┆
0x0080…00a0 4e 41 52 52 41 54 49 56 45 3a 0a 3b 20 49 46 20 41 20 50 44 42 20 46 49 4c 45 20 49 53 20 41 56 ┆NARRATIVE: ; IF A PDB FILE IS AV┆
0x00a0…00c0 41 49 4c 41 42 4c 45 20 54 48 45 4e 20 41 20 43 4f 4e 54 52 4f 4c 20 4d 45 53 53 41 47 45 20 49 ┆AILABLE THEN A CONTROL MESSAGE I┆
0x00c0…00e0 53 20 47 45 4e 45 52 41 54 45 44 20 41 53 0a 3b 20 53 50 45 43 49 46 49 45 44 20 42 59 20 43 41 ┆S GENERATED AS ; SPECIFIED BY CA┆
0x00e0…0100 4c 4c 45 52 20 28 44 41 54 41 20 52 45 46 2e 2c 28 43 41 54 2c 54 59 50 45 29 29 2c 41 4e 44 20 ┆LLER (DATA REF.,(CAT,TYPE)),AND ┆
0x0100…0120 52 45 54 55 52 4e 20 49 53 20 4d 41 44 45 20 54 4f 0a 3b 20 44 4f 4e 45 20 28 4c 49 4e 4b 2b 31 ┆RETURN IS MADE TO ; DONE (LINK+1┆
0x0120…0140 29 2e 49 46 20 4e 4f 20 50 44 42 20 46 49 4c 45 20 49 53 20 41 56 41 49 4c 41 42 4c 45 2c 54 48 ┆).IF NO PDB FILE IS AVAILABLE,TH┆
0x0140…0160 45 4e 20 52 45 54 55 52 4e 20 49 53 20 4d 41 44 45 20 54 4f 0a 3b 20 4e 4f 4e 45 20 28 4c 49 4e ┆EN RETURN IS MADE TO ; NONE (LIN┆
0x0160…0180 4b 2b 30 29 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 ┆K+0). ; ; REGISTER USE: EN┆
0x0180…01a0 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 20 20 20 20 20 52 ┆TRY EXIT ; R┆
0x01a0…01c0 30 20 20 20 20 20 20 20 20 20 20 20 43 41 54 2b 54 59 50 20 20 20 20 20 20 20 20 20 20 20 20 4d ┆0 CAT+TYP M┆
0x01c0…01e0 54 43 42 20 49 4e 44 45 58 0a 3b 20 20 20 20 20 20 20 20 52 31 20 20 20 20 20 20 20 20 20 20 20 ┆TCB INDEX ; R1 ┆
0x01e0…0200 44 41 54 41 53 49 5a 45 28 57 4f 52 44 53 29 20 20 20 20 44 45 53 54 52 4f 59 45 44 0a 3b 20 20 ┆DATASIZE(WORDS) DESTROYED ; ┆
0x0200…0220 20 20 20 20 20 20 52 32 2d 52 33 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R2-R3 - ┆
0x0220…0240 20 20 20 20 20 20 44 45 53 54 52 4f 59 45 44 0a 3b 20 20 20 20 20 20 20 20 52 34 20 20 20 20 20 ┆ DESTROYED ; R4 ┆
0x0240…0260 20 20 20 20 20 20 52 45 46 2e 44 41 54 41 20 20 20 20 20 20 20 20 20 20 20 44 45 53 54 52 4f 59 ┆ REF.DATA DESTROY┆
0x0260…0280 45 44 0a 3b 20 20 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 ┆ED ; R5 LINK ┆
0x0280…02a0 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 20 20 20 20 20 20 52 ┆ DESTROYED ; R┆
0x02a0…02c0 36 2d 52 37 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 ┆6-R7 - D┆
0x02c0…02e0 45 53 54 52 4f 59 45 44 0a 3b 0a 3b 20 43 41 4c 4c 53 20 54 4f 3a 20 20 20 20 4d 54 43 42 2c 43 ┆ESTROYED ; ; CALLS TO: MTCB,C┆
0x02e0…0300 52 45 41 54 45 4d 54 43 42 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 54 43 42 2c 52 45 ┆REATEMTCB ; MTCB,RE┆
0x0300…0320 53 45 52 56 45 4d 54 43 42 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 54 43 42 2c 52 45 ┆SERVEMTCB ; MTCB,RE┆
0x0320…0340 4c 45 41 53 45 4d 54 43 42 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 54 43 42 2c 43 52 ┆LEASEMTCB ; MTCB,CR┆
0x0340…0360 45 46 49 4c 4d 54 43 42 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4d 54 43 42 2c 52 45 4c ┆EFILMTCB ; MTCB,REL┆
0x0360…0380 46 49 4c 4d 54 43 42 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 4f 2c 4d 4f 44 49 46 59 ┆FILMTCB ; IO,MODIFY┆
0x0380…03a0 42 59 54 45 53 0a 3b 0a 3b 20 57 4f 52 4b 3a 20 20 20 20 20 20 20 20 43 4d 4d 46 44 43 42 0a 3b ┆BYTES ; ; WORK: CMMFDCB ;┆
0x03a0…03c0 0a 3b 20 52 45 54 55 52 4e 53 3a 20 20 20 20 20 4c 49 4e 4b 2b 30 3a 4e 4f 20 50 44 42 27 53 0a ┆ ; RETURNS: LINK+0:NO PDB'S ┆
0x03c0…03e0 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 49 4e 4b 2b 31 3a 44 4f 4e 45 0a 3b 20 20 20 20 ┆; LINK+1:DONE ; ┆
0x03e0…0400 20 20 20 20 20 20 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 ┆ UREXXX:ERROR ;--------┆
0x0400…0420 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 ┆--------------------------------┆
0x0420…0440 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 0a 47 ┆------------------------------ G┆
0x0440…0460 45 4e 43 54 52 4c 4d 53 47 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ENCTRLMSG: ┆
0x0460…0480 20 20 20 20 3b 42 45 47 49 4e 20 47 45 4e 43 54 52 4c 4d 53 47 0a 20 20 20 20 20 20 20 20 20 4d ┆ ;BEGIN GENCTRLMSG M┆
0x0480…04a0 4f 56 20 20 20 20 20 20 20 20 20 20 52 35 20 20 52 4c 48 31 30 30 20 20 20 20 20 3b 20 20 20 53 ┆OV R5 RLH100 ; S┆
0x04a0…04c0 41 56 45 20 4c 49 4e 4b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 ┆AVE LINK MOV R┆
0x04c0…04e0 34 20 20 20 20 20 20 20 20 20 52 35 20 20 3b 20 20 20 50 55 53 48 20 52 45 46 2e 54 4f 20 44 41 ┆4 R5 ; PUSH REF.TO DA┆
0x04e0…0500 54 41 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 20 20 20 20 20 20 20 20 52 31 20 20 20 20 20 ┆TA MOD R1 ┆
0x0500…0520 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 20 20 20 20 20 20 20 20 ┆ ; MOD ┆
0x0520…0540 52 31 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 ┆R1 ; MOVC ┆
0x0540…0560 32 2a 43 48 45 41 44 4c 20 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 20 52 32 3d 4d 53 47 ┆2*CHEADL R2 ; R2=MSG┆
0x0560…0580 4c 45 4e 47 54 48 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 43 4d 43 48 45 41 44 20 20 20 ┆LENGTH MOVC CMCHEAD ┆
0x0580…05a0 20 20 20 20 20 20 20 20 52 34 20 20 3b 20 20 20 52 34 3d 52 45 46 2e 54 4f 20 4d 53 47 20 43 4f ┆ R4 ; R4=REF.TO MSG CO┆
0x05a0…05c0 4d 50 49 4c 45 20 41 52 45 41 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 52 30 20 20 20 20 ┆MPILE AREA MOV R0 ┆
0x05c0…05e0 20 20 20 42 48 43 41 54 54 59 50 2e 58 34 20 20 3b 20 20 20 57 52 49 54 45 20 43 41 54 54 59 50 ┆ BHCATTYP.X4 ; WRITE CATTYP┆
0x05e0…0600 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 4f 57 4e 4e 49 44 20 20 20 20 20 20 20 20 20 20 ┆ MOV OWNNID ┆
0x0600…0620 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 52 30 20 20 20 20 20 20 20 ┆ R0 ; MOV R0 ┆
0x0620…0640 20 20 20 42 48 4f 52 47 2e 58 34 20 20 3b 20 20 20 4f 52 49 47 49 4e 41 54 4f 52 0a 20 20 20 20 ┆ BHORG.X4 ; ORIGINATOR ┆
0x0640…0660 20 20 20 20 20 4d 4f 56 20 20 20 52 32 20 20 20 20 20 20 20 20 20 42 48 4c 47 54 48 2e 58 34 20 ┆ MOV R2 BHLGTH.X4 ┆
0x0660…0680 20 3b 20 20 20 41 4e 44 20 4d 53 47 20 4c 45 4e 47 54 48 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 ┆ ; AND MSG LENGTH MOV┆
0x0680…06a0 43 20 20 31 3c 38 2b 43 41 50 52 45 43 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 41 4e 44 ┆C 1<8+CAPREC R0 ; AND┆
0x06a0…06c0 20 4d 41 49 4e 54 59 50 45 2c 50 52 45 43 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 ┆ MAINTYPE,PREC MOV ┆
0x06c0…06e0 20 20 20 20 20 52 30 20 42 48 41 50 52 45 43 2e 58 34 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d ┆ R0 BHAPREC.X4 ; M┆
0x06e0…0700 4f 56 43 20 20 43 4d 4d 46 44 43 42 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 0a 20 20 20 ┆OVC CMMFDCB R4 ; ┆
0x0700…0720 20 20 20 20 20 20 4d 4f 56 20 20 20 52 32 20 20 58 46 41 44 42 43 2b 4d 46 44 46 41 44 2e 58 34 ┆ MOV R2 XFADBC+MFDFAD.X4┆
0x0720…0740 20 20 3b 20 20 20 49 4e 49 54 2e 20 46 49 4c 45 20 41 44 44 52 45 53 53 0a 20 20 20 20 20 20 20 ┆ ; INIT. FILE ADDRESS ┆
0x0740…0760 20 20 43 4c 52 20 20 20 20 20 31 2b 58 46 41 44 42 43 2b 4d 46 44 46 41 44 2e 58 34 20 20 3b 0a ┆ CLR 1+XFADBC+MFDFAD.X4 ; ┆
0x0760…0780 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 4d 46 44 42 4c 45 20 20 20 20 20 20 20 20 20 20 20 ┆ ADDC MFDBLE ┆
0x0780…07a0 20 52 34 20 20 3b 20 20 20 49 4e 49 54 2e 20 42 55 46 2e 4c 49 53 54 20 45 4c 45 4d 54 0a 20 20 ┆ R4 ; INIT. BUF.LIST ELEMT ┆
0x07a0…07c0 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 32 20 20 58 42 4c 45 42 53 2e 58 ┆ MOV R2 XBLEBS.X┆
0x07c0…07e0 34 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 58 42 54 59 4c 4c 20 20 20 20 20 20 ┆4 ; MOVC XBTYLL ┆
0x07e0…0800 20 20 20 20 20 20 58 34 20 20 3b 0a 20 20 20 20 20 20 20 20 20 43 4c 52 20 20 20 20 20 20 20 20 ┆ X4 ; CLR ┆
0x0800…0820 20 20 20 20 20 20 58 42 4c 45 4c 4b 2e 58 34 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 ┆ XBLELK.X4 ; MOVC┆
0x0820…0840 20 20 43 4d 43 48 45 41 44 20 20 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 0a 20 20 20 20 20 20 ┆ CMCHEAD R2 ; ┆
0x0840…0860 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 32 20 20 58 42 4c 45 42 41 2e 58 34 20 20 3b ┆ MOV R2 XBLEBA.X4 ;┆
0x0860…0880 0a 20 20 20 20 20 20 20 20 20 4a 4f 5a 20 20 20 20 20 20 20 20 20 20 52 31 20 20 48 31 32 30 20 ┆ JOZ R1 H120 ┆
0x0880…08a0 20 20 20 20 20 20 3b 20 42 45 47 49 4e 20 47 4f 50 59 20 44 41 54 41 0a 20 20 20 20 20 20 20 20 ┆ ; BEGIN GOPY DATA ┆
0x08a0…08c0 20 4d 4f 56 43 20 20 43 4d 43 44 41 54 20 20 20 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 ┆ MOVC CMCDAT R2 ; ┆
0x08c0…08e0 20 52 32 3d 52 45 46 2e 54 4f 20 44 45 53 54 49 4e 41 54 49 4f 4e 0a 48 31 31 30 3a 20 20 20 20 ┆ R2=REF.TO DESTINATION H110: ┆
0x08e0…0900 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 ┆ ; ┆
0x0900…0920 52 35 3d 52 45 46 2e 54 4f 20 53 4f 55 52 43 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 ┆R5=REF.TO SOURCE MOV ┆
0x0920…0940 20 20 20 20 20 20 20 58 35 20 20 20 20 20 20 20 20 20 58 32 20 20 3b 0a 20 20 20 20 20 20 20 20 ┆ X5 X2 ; ┆
0x0940…0960 20 49 4e 43 44 20 20 20 20 20 20 20 20 20 52 35 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 0a 20 ┆ INCD R5 R2 ; ┆
0x0960…0980 20 20 20 20 20 20 20 20 53 4f 42 20 20 20 20 20 20 20 20 20 20 52 31 20 20 48 31 31 30 20 20 20 ┆ SOB R1 H110 ┆
0x0980…09a0 20 20 20 20 3b 20 45 4e 44 20 43 4f 50 59 0a 48 31 32 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; END COPY H120: ┆
0x09a0…09c0 20 20 20 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 4d ┆ ; M┆
0x09c0…09e0 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 20 20 20 ┆OVC MOPCWAIT R0 ; ┆
0x09e0…0a00 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 4d 54 59 50 52 45 41 4c 20 20 20 20 20 20 20 20 20 52 31 ┆ MOVC MMTYPREAL R1┆
0x0a00…0a20 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 45 4d 54 ┆ ; MON MTCB,CREATEMT┆
0x0a20…0a40 43 42 20 20 20 20 20 20 20 3b 20 20 20 22 43 52 45 41 54 45 5f 4d 54 43 42 22 28 54 59 50 45 3d ┆CB ; "CREATE_MTCB"(TYPE=┆
0x0a40…0a60 52 45 41 4c 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 ┆REAL) JMPI & S4 ┆
0x0a60…0a80 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 45 ┆URE002 ;E X0:ERROR,REPORT E┆
0x0a80…0aa0 52 52 4f 52 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 52 30 20 20 20 20 20 4d 46 44 4d 42 ┆RROR MOV R0 MFDMB┆
0x0aa0…0ac0 58 2b 43 4d 4d 46 44 43 42 20 3b 20 20 20 58 31 3a 44 4f 4e 45 2c 53 54 4f 52 45 20 4d 54 43 42 ┆X+CMMFDCB ; X1:DONE,STORE MTCB┆
0x0ac0…0ae0 58 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 46 44 4d 42 58 2b 43 4d 4d 46 44 43 42 20 ┆X MOVC MFDMBX+CMMFDCB ┆
0x0ae0…0b00 20 20 20 52 30 20 20 3b 20 20 20 52 30 3d 52 45 46 2e 4d 54 43 42 49 4e 44 45 58 0a 20 20 20 20 ┆ R0 ; R0=REF.MTCBINDEX ┆
0x0b00…0b20 20 20 20 20 20 4d 4f 56 43 20 20 4d 46 44 46 41 44 2b 43 4d 4d 46 44 43 42 20 20 20 20 52 31 20 ┆ MOVC MFDFAD+CMMFDCB R1 ┆
0x0b20…0b40 20 3b 20 20 20 52 31 3d 46 49 4c 45 5f 41 44 44 52 45 53 53 0a 20 20 20 20 20 20 20 20 20 4d 4f ┆ ; R1=FILE_ADDRESS MO┆
0x0b40…0b60 56 43 20 20 4d 46 54 59 50 50 44 42 20 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 20 52 32 ┆VC MFTYPPDB R2 ; R2┆
0x0b60…0b80 3d 54 59 50 45 20 50 44 42 5f 46 49 4c 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 4d 54 ┆=TYPE PDB_FILE MON MT┆
0x0b80…0ba0 43 42 2c 43 52 45 46 49 4c 4d 54 43 42 20 20 20 20 20 20 20 3b 20 20 20 22 43 52 45 41 54 45 5f ┆CB,CREFILMTCB ; "CREATE_┆
0x0ba0…0bc0 46 49 4c 45 22 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 26 20 20 20 20 20 20 20 20 20 20 ┆FILE" JMP & ┆
0x0bc0…0be0 48 31 34 30 20 20 20 20 20 20 20 3b 45 20 20 58 30 3a 45 52 52 4f 52 2c 47 4f 54 4f 20 43 48 45 ┆H140 ;E X0:ERROR,GOTO CHE┆
0x0be0…0c00 43 4b 43 41 55 53 45 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 ┆CKCAUSE: ┆
0x0c00…0c20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 58 31 3a 52 31 3d 46 49 4c 45 41 44 44 52 ┆ ; X1:R1=FILEADDR┆
0x0c20…0c40 2c 52 34 3d 46 44 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 4d 46 44 42 4c 45 2b 43 4d 4d ┆,R4=FD MOVC MFDBLE+CMM┆
0x0c40…0c60 46 44 43 42 20 20 20 20 52 32 20 20 3b 20 20 20 52 32 3d 52 45 46 2e 42 55 46 2e 4c 49 53 54 20 ┆FDCB R2 ; R2=REF.BUF.LIST ┆
0x0c60…0c80 45 4c 45 4d 54 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 20 20 49 4f 2c 4d 4f 44 49 46 59 42 59 ┆ELEMT MON IO,MODIFYBY┆
0x0c80…0ca0 54 45 53 20 20 20 20 20 20 20 20 3b 20 20 20 22 4d 4f 44 49 46 59 42 59 54 45 53 22 0a 20 20 20 ┆TES ; "MODIFYBYTES" ┆
0x0ca0…0cc0 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 33 20 20 20 ┆ JMPI & S4 URE003 ┆
0x0cc0…0ce0 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 20 ┆ ;E X0:ERROR,REPORT ERROR ┆
0x0ce0…0d00 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 ┆ ┆
0x0d00…0d20 20 3b 20 20 20 58 31 3a 52 30 3d 52 45 46 2e 4d 54 43 42 58 2c 52 34 3d 46 44 0a 20 20 20 20 20 ┆ ; X1:R0=REF.MTCBX,R4=FD ┆
0x0d20…0d40 20 20 20 20 4d 4f 56 20 20 20 4d 46 44 4d 42 58 2b 43 4d 4d 46 44 43 42 20 20 20 20 52 30 20 20 ┆ MOV MFDMBX+CMMFDCB R0 ┆
0x0d40…0d60 3b 20 20 20 52 30 3a 3d 4d 54 43 42 20 49 4e 44 45 58 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 ┆; R0:=MTCB INDEX MON ┆
0x0d60…0d80 20 20 4d 54 43 42 2c 52 45 53 45 52 56 45 4d 54 43 42 20 20 20 20 20 20 3b 20 20 20 22 52 45 53 ┆ MTCB,RESERVEMTCB ; "RES┆
0x0d80…0da0 45 52 56 45 5f 4d 54 43 42 22 28 52 30 3d 4d 54 43 42 58 29 0a 20 20 20 20 20 20 20 20 20 4a 4d ┆ERVE_MTCB"(R0=MTCBX) JM┆
0x0da0…0dc0 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 58 30 ┆PI & S4 URE002 ;E X0┆
0x0dc0…0de0 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 4d 4f 56 ┆:ERROR,REPORT ERROR MOV┆
0x0de0…0e00 43 20 20 4d 46 44 4d 42 58 2b 43 4d 4d 46 44 43 42 20 20 20 20 52 30 20 20 3b 20 20 20 58 31 3a ┆C MFDMBX+CMMFDCB R0 ; X1:┆
0x0e00…0e20 44 4f 4e 45 2c 52 30 3a 3d 52 45 46 2e 4d 54 43 42 58 0a 20 20 20 20 20 20 20 20 20 4d 4f 4e 20 ┆DONE,R0:=REF.MTCBX MON ┆
0x0e20…0e40 20 20 4d 54 43 42 2c 52 45 4c 46 49 4c 4d 54 43 42 20 20 20 20 20 20 20 3b 20 20 20 22 52 45 4c ┆ MTCB,RELFILMTCB ; "REL┆
0x0e40…0e60 45 41 53 45 5f 46 49 4c 45 22 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 26 20 20 20 20 20 ┆EASE_FILE" JMPI & ┆
0x0e60…0e80 20 53 34 20 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 ┆ S4 URE002 ;E X0:ERROR,REP┆
0x0e80…0ea0 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 ┆
0x0ea0…0ec0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 58 31 3a 52 30 3d 52 45 46 2e 4d 54 43 ┆ ; X1:R0=REF.MTC┆
0x0ec0…0ee0 42 58 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 4e 20 20 20 20 20 20 20 20 20 52 37 20 20 20 20 20 ┆BX MODN R7 ┆
0x0ee0…0f00 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 49 4e 43 20 20 20 20 20 20 20 20 20 20 ┆ ; INC ┆
0x0f00…0f20 20 20 20 20 52 4c 48 31 30 30 2e 58 37 20 20 3b 20 20 20 50 52 45 50 41 52 45 20 52 45 54 55 52 ┆ RLH100.X7 ; PREPARE RETUR┆
0x0f20…0f40 4e 20 4c 49 4e 4b 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 ┆N LINK+1 JMP ┆
0x0f40…0f60 20 20 20 48 31 38 30 20 20 20 20 20 20 20 3b 20 20 20 47 4f 54 4f 20 52 45 4c 45 41 53 45 20 4d ┆ H180 ; GOTO RELEASE M┆
0x0f60…0f80 54 43 42 3a 0a 48 31 34 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆TCB: H140: ┆
0x0f80…0fa0 20 20 20 20 20 20 20 20 20 20 3b 20 43 48 45 43 4b 43 41 55 53 45 3a 0a 20 20 20 20 20 20 20 20 ┆ ; CHECKCAUSE: ┆
0x0fa0…0fc0 20 49 4e 45 20 20 20 20 20 20 20 20 20 20 52 37 20 20 45 43 4e 4f 50 44 42 20 20 20 20 3b 20 20 ┆ INE R7 ECNOPDB ; ┆
0x0fc0…0fe0 20 49 46 20 43 41 55 53 45 3c 3e 4e 4f 50 44 42 20 54 48 45 4e 0a 20 20 20 20 20 20 20 20 20 4a ┆ IF CAUSE<>NOPDB THEN J┆
0x0fe0…1000 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 ┆
0x1000…1020 20 52 45 50 4f 52 54 20 45 52 52 4f 52 0a 48 31 38 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ REPORT ERROR H180: ┆
0x1020…1040 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 52 45 4c 45 41 53 45 4d 54 43 42 ┆ ; RELEASEMTCB┆
0x1040…1060 3a 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 58 30 20 20 20 20 20 20 ┆: MOV X0 ┆
0x1060…1080 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 20 20 20 20 20 20 ┆ R0 ; GET MTCB INDEX ┆
0x1080…10a0 20 20 20 4d 4f 4e 20 20 20 4d 54 43 42 2c 52 45 4c 45 41 53 45 4d 54 43 42 20 20 20 20 20 20 3b ┆ MON MTCB,RELEASEMTCB ;┆
0x10a0…10c0 20 20 20 22 52 45 4c 45 41 53 45 5f 4d 54 43 42 22 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 ┆ "RELEASE_MTCB" JMPI ┆
0x10c0…10e0 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 58 30 3a 45 52 ┆ & S4 URE002 ;E X0:ER┆
0x10e0…1100 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 ┆
0x1100…1120 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 52 30 3d ┆ ; X1:R0=┆
0x1120…1140 4d 54 43 42 20 49 4e 44 45 58 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 ┆MTCB INDEX JMPI ┆
0x1140…1160 20 20 20 20 20 52 4c 48 31 30 30 20 20 20 20 20 3b 20 20 20 52 45 54 55 52 4e 20 4c 49 4e 4b 2b ┆ RLH100 ; RETURN LINK+┆
0x1160…1180 30 2f 31 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 ┆0/1 ┆
0x1180…11a0 20 20 20 20 20 20 20 20 20 3b 45 4e 44 20 47 45 4e 43 54 52 4c 4d 53 47 0a 3b 2d 2d 2d 2d 2d 2d ┆ ;END GENCTRLMSG ;------┆
0x11a0…11c0 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…]
0x11e0…11e2 20 1a ┆ ┆