|
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: 3188 (0xc74)
Names: »CONVERTID«
└─⟦80dc9b589⟧ Bits:30005096 8" CR80 Floppy CR80FD_0053 ( HMDIR 6 VOL: BACKUP MD: CPM.D From: HMDIR*CPM.D )
└─⟦08785f861⟧
└─ ⟦this⟧ »CPM.D!CONVERTID«
0x000…020 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆;-------------------------------┆ 0x020…040 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆--------------------------------┆ 0x040…060 2d 2d 2d 2d 2d 2d 2d 2d 0a 3b 20 53 55 42 52 4f 55 54 49 4e 45 20 22 43 4f 4d 56 45 52 54 5f 4d ┆-------- ; SUBROUTINE "COMVERT_M┆ 0x060…080 53 47 49 44 22 28 43 4f 4e 56 45 52 54 49 44 29 2e 0a 3b 0a 3b 20 4e 41 52 52 41 54 49 56 45 3a ┆SGID"(CONVERTID). ; ; NARRATIVE:┆ 0x080…0a0 0a 3b 20 43 4f 4e 56 45 52 49 44 20 50 45 52 46 4f 52 4d 45 53 20 54 48 45 20 43 4f 4e 56 45 52 ┆ ; CONVERID PERFORMES THE CONVER┆ 0x0a0…0c0 53 49 4f 4e 20 4f 46 20 4d 53 47 49 44 27 53 20 46 52 4f 4d 2f 54 4f 20 46 49 4b 53 20 52 45 50 ┆SION OF MSGID'S FROM/TO FIKS REP┆ 0x0c0…0e0 52 45 53 45 4e 2d 0a 3b 20 54 41 54 49 4f 4e 28 41 53 43 49 49 29 20 54 4f 2f 46 52 4f 4d 20 49 ┆RESEN- ; TATION(ASCII) TO/FROM I┆ 0x0e0…100 4e 54 45 52 4e 41 4c 20 53 43 43 20 52 45 50 52 45 53 45 4e 54 41 54 49 4f 4e 28 42 49 4e 41 52 ┆NTERNAL SCC REPRESENTATION(BINAR┆ 0x100…120 59 29 2e 0a 3b 20 54 48 45 20 4d 53 47 49 44 20 54 4f 20 42 45 20 43 4f 4e 56 45 52 54 45 44 20 ┆Y). ; THE MSGID TO BE CONVERTED ┆ 0x120…140 49 53 20 44 45 53 49 47 4e 41 54 45 44 20 42 59 20 27 52 37 27 2c 41 4e 44 20 50 52 4f 56 49 44 ┆IS DESIGNATED BY 'R7',AND PROVID┆ 0x140…160 45 53 20 42 4f 54 48 0a 3b 20 54 48 45 20 53 4f 55 52 43 45 20 41 4e 44 20 4f 42 4a 45 43 54 2e ┆ES BOTH ; THE SOURCE AND OBJECT.┆ 0x160…180 0a 3b 20 49 46 20 54 48 45 20 43 4f 4e 56 45 52 54 49 4f 4e 20 43 41 4e 27 54 20 42 45 20 41 43 ┆ ; IF THE CONVERTION CAN'T BE AC┆ 0x180…1a0 43 4f 4d 50 4c 49 53 48 45 44 2c 54 48 45 4e 20 54 48 45 20 53 45 51 4e 4f 20 49 53 20 53 45 54 ┆COMPLISHED,THEN THE SEQNO IS SET┆ 0x1a0…1c0 20 54 4f 0a 3b 20 5a 45 52 4f 2e 0a 3b 0a 3b 20 52 45 47 49 53 54 45 52 20 55 53 45 3a 20 20 20 ┆ TO ; ZERO. ; ; REGISTER USE: ┆ 0x1c0…1e0 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 ; ┆ 0x1e0…200 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 2c 52 31 3f 20 20 20 20 20 20 20 20 ┆ R0,R1? ┆ 0x200…220 20 20 20 20 20 44 45 53 54 52 4f 59 45 44 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ DESTROYED ; ┆ 0x220…240 20 20 20 20 20 52 35 3d 4c 49 4e 4b 20 20 20 20 20 20 20 20 20 20 20 20 44 45 53 54 52 4f 59 45 ┆ R5=LINK DESTROYE┆ 0x240…260 44 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 37 3d 52 45 46 2e 49 ┆D ; R7=REF.I┆ 0x260…280 44 20 20 20 20 20 20 20 20 20 20 4b 45 50 54 0a 3b 0a 3b 20 52 45 54 55 52 4e 53 3a 20 20 20 20 ┆D KEPT ; ; RETURNS: ┆ 0x280…2a0 20 4c 49 4e 4b 2b 30 3a 44 4f 4e 45 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆ LINK+0:DONE ;------------------┆ 0x2a0…2c0 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 ┆--------------------------------┆ 0x2c0…2e0 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 0a 43 41 53 43 49 49 3a 20 20 20 ┆--------------------- CASCII: ┆ 0x2e0…300 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 45 47 49 ┆ ;BEGI┆ 0x300…320 4e 20 43 41 53 43 49 49 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 ┆N CASCII MOV R┆ 0x320…340 35 20 20 52 4c 41 31 30 30 20 20 20 20 20 3b 20 20 20 53 41 56 45 20 4c 49 4e 4b 0a 20 20 20 20 ┆5 RLA100 ; SAVE LINK ┆ 0x340…360 20 20 20 20 20 4d 4f 56 43 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 35 20 ┆ MOVC 0 R5 ┆ 0x360…380 20 3b 20 20 20 43 4c 45 41 52 20 41 43 43 55 4d 55 4c 41 54 4f 52 0a 20 20 20 20 20 20 20 20 20 ┆ ; CLEAR ACCUMULATOR ┆ 0x380…3a0 4d 4f 56 43 20 20 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 20 20 3b 20 20 20 ┆MOVC 3 R1 ; ┆ 0x3a0…3c0 4e 4f 2e 4f 46 20 41 53 43 43 49 20 49 4e 20 53 45 51 4e 4f 0a 20 20 20 20 20 20 20 20 20 53 4c ┆NO.OF ASCCI IN SEQNO SL┆ 0x3c0…3e0 4c 20 20 20 20 20 20 20 20 20 20 52 37 20 20 31 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 49 44 ┆L R7 1 ; ID┆ 0x3e0…400 20 42 59 54 45 20 41 44 44 52 45 53 53 0a 41 31 31 30 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ BYTE ADDRESS A110: ┆ 0x400…420 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 42 45 47 49 4e 20 43 4f 4e ┆ ; BEGIN CON┆ 0x420…440 56 45 52 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 20 ┆VERT MOV R5 ┆ 0x440…460 20 20 20 20 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 4c 4c 20 20 20 20 20 20 20 20 ┆ R0 ; SLL ┆ 0x460…480 20 20 52 35 20 20 33 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 41 3a 3d 31 30 2a 41 0a 20 ┆ R5 3 ; A:=10*A ┆ 0x480…4a0 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 20 20 20 20 20 20 52 30 20 20 20 20 20 20 20 20 20 ┆ ADD R0 ┆ 0x4a0…4c0 52 35 20 20 3b 0a 20 20 20 20 20 20 20 20 20 41 44 44 20 20 20 20 20 20 20 20 20 20 52 30 20 20 ┆R5 ; ADD R0 ┆ 0x4c0…4e0 20 20 20 20 20 20 20 52 35 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 42 20 20 33 2e 20 20 ┆ R5 ; MOVB 3. ┆ 0x4e0…500 20 20 20 58 37 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 20 20 52 45 41 44 0a 20 20 20 ┆ X7 R0 ; READ ┆ 0x500…520 20 20 20 20 20 20 53 4c 4f 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3c 3a 30 3a 3e 20 20 20 20 ┆ SLO R0 <:0:> ┆ 0x520…540 20 20 3b 20 20 20 20 20 41 4e 44 20 43 4f 4e 56 45 52 54 0a 20 20 20 20 20 20 20 20 20 53 4c 4f ┆ ; AND CONVERT SLO┆ 0x540…560 50 20 20 20 20 20 20 20 20 20 52 30 20 20 3c 3a 39 3a 3e 20 20 20 20 20 20 3b 20 20 20 20 20 42 ┆P R0 <:9:> ; B┆ 0x560…580 59 54 45 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 ┆YTE MOVC 0 ┆ 0x580…5a0 20 20 20 20 20 52 35 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 ┆ R5 ; JMP ┆ 0x5a0…5c0 20 20 20 20 20 41 31 32 30 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 ┆ A120 ; ADDC ┆ 0x5c0…5e0 20 2d 3c 3a 30 3a 3e 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 20 ┆ -<:0:> R0 ; ┆ 0x5e0…600 20 20 41 44 44 20 20 20 20 20 20 20 20 20 20 52 30 20 20 20 20 20 20 20 20 20 52 35 20 20 3b 20 ┆ ADD R0 R5 ; ┆ 0x600…620 20 20 20 20 41 3a 3d 41 2b 4e 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 31 20 20 20 20 20 ┆ A:=A+N ADDC 1 ┆ 0x620…640 20 20 20 20 20 20 20 20 20 20 20 20 52 37 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 4f 42 20 20 ┆ R7 ; SOB ┆ 0x640…660 20 20 20 20 20 20 20 20 52 31 20 20 41 31 31 30 20 20 20 20 20 20 20 3b 0a 41 31 32 30 3a 20 20 ┆ R1 A110 ; A120: ┆ 0x660…680 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 ┆ ; ┆ 0x680…6a0 20 20 45 4e 44 20 43 4f 4e 56 45 52 54 0a 20 20 20 20 20 20 20 20 20 4d 4f 44 20 20 20 20 20 20 ┆ END CONVERT MOD ┆ 0x6a0…6c0 20 20 20 20 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 41 44 ┆ R1 ; AD┆ 0x6c0…6e0 44 43 20 20 2d 33 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 37 20 20 3b 20 20 20 52 45 ┆DC -3 R7 ; RE┆ 0x6e0…700 53 45 54 20 52 37 0a 20 20 20 20 20 20 20 20 20 53 52 4c 20 20 20 20 20 20 20 20 20 20 52 37 20 ┆SET R7 SRL R7 ┆ 0x700…720 20 31 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 20 20 20 ┆ 1 ; MOV ┆ 0x720…740 20 20 20 20 52 35 20 20 32 2e 20 20 20 20 20 58 37 20 20 3b 20 20 20 4c 4f 41 44 20 42 49 4e 41 ┆ R5 2. X7 ; LOAD BINA┆ 0x740…760 52 59 20 4d 53 47 49 44 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 20 ┆RY MSGID JMPI ┆ 0x760…780 20 20 20 52 4c 41 31 30 30 20 20 20 20 20 3b 20 20 20 52 45 54 55 52 4e 20 4c 49 4e 4b 2b 30 0a ┆ RLA100 ; RETURN LINK+0 ┆ 0x780…7a0 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 ┆ ┆ 0x7a0…7c0 20 20 20 20 20 3b 0a 43 42 49 4e 41 52 59 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ ; CBINARY: ┆ 0x7c0…7e0 20 20 20 20 20 20 20 20 20 20 20 20 3b 42 45 47 49 4e 20 43 42 49 4e 41 52 59 0a 20 20 20 20 20 ┆ ;BEGIN CBINARY ┆ 0x7e0…800 20 20 20 20 4d 4f 56 20 20 20 32 2e 20 20 20 20 20 58 37 20 20 20 20 20 20 20 20 20 52 31 20 20 ┆ MOV 2. X7 R1 ┆ 0x800…820 3b 0a 20 20 20 20 20 20 20 20 20 58 54 52 20 20 20 20 20 20 20 20 20 20 52 31 20 20 31 30 20 20 ┆; XTR R1 10 ┆ 0x820…840 20 20 20 20 20 20 20 3b 20 20 20 47 45 54 20 42 49 4e 41 52 59 20 53 45 51 4e 4f 0a 20 20 20 20 ┆ ; GET BINARY SEQNO ┆ 0x840…860 20 20 20 20 20 53 4c 4c 20 20 20 20 20 20 20 20 20 20 52 37 20 20 31 20 20 20 20 20 20 20 20 20 ┆ SLL R7 1 ┆ 0x860…880 20 3b 20 20 20 49 44 20 42 59 54 45 20 41 44 44 52 45 53 53 0a 20 20 20 20 20 20 20 20 20 4d 4f ┆ ; ID BYTE ADDRESS MO┆ 0x880…8a0 56 43 20 20 2d 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 42 45 ┆VC -1 R0 ; BE┆ 0x8a0…8c0 47 49 4e 20 43 4f 4e 56 45 52 54 0a 41 32 31 30 3a 20 20 20 20 41 44 44 43 20 20 31 20 20 20 20 ┆GIN CONVERT A210: ADDC 1 ┆ 0x8c0…8e0 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 20 20 20 49 48 53 50 ┆ R0 ; IHSP┆ 0x8e0…900 20 20 20 20 20 20 20 20 20 52 31 20 20 31 30 30 20 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 ┆ R1 100 ; ┆ 0x900…920 20 20 20 41 44 44 43 20 20 2d 31 30 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 20 20 3b ┆ ADDC -100 R1 ;┆ 0x920…940 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 41 32 31 30 20 ┆ JMP A210 ┆ 0x940…960 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 49 48 53 50 20 20 20 20 20 20 20 20 20 52 30 ┆ ; IHSP R0┆ 0x960…980 20 20 31 30 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 43 48 45 43 4b 20 4d 4f 53 54 20 53 49 ┆ 10 ; CHECK MOST SI┆ 0x980…9a0 47 4e 49 46 49 43 41 4e 54 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 30 20 20 20 20 20 20 ┆GNIFICANT MOVC 0 ┆ 0x9a0…9c0 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 20 20 20 20 20 44 49 47 49 54 0a 20 20 20 20 20 ┆ R0 ; DIGIT ┆ 0x9c0…9e0 20 20 20 20 4d 4f 56 43 20 20 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 20 20 ┆ MOVC 0 R1 ┆ 0x9e0…a00 3b 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 3c 3a 30 3a 3e 20 20 20 20 20 20 20 20 20 20 ┆; ADDC <:0:> ┆ 0xa00…a20 20 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 42 20 20 20 20 20 20 20 20 20 52 ┆ R0 ; MOVB R┆ 0xa20…a40 30 20 20 33 2e 20 20 20 20 20 58 37 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 43 20 20 2d ┆0 3. X7 ; MOVC -┆ 0xa40…a60 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a 41 32 32 30 3a 20 20 20 20 ┆1 R0 ; A220: ┆ 0xa60…a80 41 44 44 43 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a 20 20 ┆ADDC 1 R0 ; ┆ 0xa80…aa0 20 20 20 20 20 20 20 49 48 53 50 20 20 20 20 20 20 20 20 20 52 31 20 20 31 30 20 20 20 20 20 20 ┆ IHSP R1 10 ┆ 0xaa0…ac0 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 2d 31 30 20 20 20 20 20 20 20 20 20 ┆ ; ADDC -10 ┆ 0xac0…ae0 20 20 20 20 20 20 52 31 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 ┆ R1 ; JMP ┆ 0xae0…b00 20 20 20 20 20 20 41 32 32 30 20 20 20 20 20 20 20 3b 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 ┆ A220 ; ADDC┆ 0xb00…b20 20 20 3c 3a 30 3a 3e 20 20 20 20 20 20 20 20 20 20 20 20 20 52 30 20 20 3b 0a 20 20 20 20 20 20 ┆ <:0:> R0 ; ┆ 0xb20…b40 20 20 20 4d 4f 56 42 20 20 20 20 20 20 20 20 20 52 30 20 20 34 2e 20 20 20 20 20 58 37 20 20 3b ┆ MOVB R0 4. X7 ;┆ 0xb40…b60 0a 20 20 20 20 20 20 20 20 20 41 44 44 43 20 20 3c 3a 30 3a 3e 20 20 20 20 20 20 20 20 20 20 20 ┆ ADDC <:0:> ┆ 0xb60…b80 20 20 52 31 20 20 3b 0a 20 20 20 20 20 20 20 20 20 4d 4f 56 42 20 20 20 20 20 20 20 20 20 52 31 ┆ R1 ; MOVB R1┆ 0xb80…ba0 20 20 35 2e 20 20 20 20 20 58 37 20 20 3b 0a 20 20 20 20 20 20 20 20 20 53 52 4c 20 20 20 20 20 ┆ 5. X7 ; SRL ┆ 0xba0…bc0 20 20 20 20 20 52 37 20 20 31 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 52 45 53 45 54 20 52 37 ┆ R7 1 ; RESET R7┆ 0xbc0…be0 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 30 2e 20 20 20 ┆ JMP 0. ┆ 0xbe0…c00 20 20 58 35 20 20 3b 20 20 20 52 45 54 55 52 4e 20 4c 49 4e 4b 0a 20 20 20 20 20 20 20 20 20 20 ┆ X5 ; RETURN LINK ┆ 0xc00…c20 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 45 4e 44 20 ┆ ;END ┆ 0xc20…c40 43 4f 4e 56 45 52 54 49 44 0a 3b 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d ┆CONVERTID ;---------------------┆ 0xc40…c60 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 ┆--------------------------------┆ 0xc60…c74 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 2d 20 1a ┆------------------ ┆