|
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: 17762 (0x4562)
Names: »IOPROS.S«
└─⟦8c095a7f3⟧ Bits:30005798 CR80 Disc Pack ( Vol ILS systemdisk XAMOS TOS 10:01 hard boot #43c 19-7-87/JFJ )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!ASM.D!IOPROS.S«
└─⟦c2e810e96⟧ Bits:30005799 CR80 Disc Pack ( XAMOS 841129 ILS TOS 10-01 System Disk Tilhører ILS/MSG hard boot boot entry #43c )
└─ ⟦this⟧ »PREFIXES.D!XAMOS.D!ASM.D!IOPROS.S«
0x0000…0020 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆;*******************************┆
0x0020…0040 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x0040…0060 2a 2a 2a 2a 2a 2a 2a 2a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆******** ; ┆
0x0060…0080 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 ┆ ┆
0x0080…00a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 20 20 20 20 20 20 49 20 2f ┆ * ; I /┆
0x00a0…00c0 20 4f 20 20 20 49 20 4e 20 54 20 45 20 52 20 46 20 41 20 43 20 45 20 20 20 50 20 52 20 4f 20 43 ┆ O I N T E R F A C E P R O C┆
0x00c0…00e0 20 45 20 44 20 55 20 52 20 45 20 53 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 ┆ E D U R E S * ; ┆
0x00e0…0100 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 ┆ ┆
[…0x1…]
0x0120…0140 20 20 2a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 43 4f 4e 46 49 47 20 49 44 3a 20 20 20 ┆ * ; CONFIG ID: ┆
0x0140…0160 43 53 53 33 35 36 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 ┆CSS356 ┆
0x0160…0180 20 20 20 20 20 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 56 45 52 53 ┆ * ; VERS┆
0x0180…01a0 49 4f 4e 3a 20 20 20 20 20 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ION: 1 ┆
0x01a0…01c0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 20 20 20 20 20 ┆ * ; ┆
0x01c0…01e0 20 20 20 20 20 44 41 54 45 3a 20 20 20 20 20 20 20 20 37 39 30 38 30 31 20 20 20 20 20 20 20 20 ┆ DATE: 790801 ┆
0x01e0…0200 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 2a 0a 3b ┆ * ;┆
0x0200…0220 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 55 54 48 4f 52 3a 20 20 20 20 20 20 4a 48 4f 20 20 ┆ AUTHOR: JHO ┆
0x0220…0240 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 ┆ ┆
0x0240…0260 20 20 20 20 20 20 2a 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ * ; ┆
0x0260…0280 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 ┆ ┆
0x0280…02a0 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 0a 3b 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ * ;**************┆
0x02a0…02c0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆********************************┆
0x02c0…02e0 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 0a 0a 3b 20 20 20 20 ┆************************* ; ┆
0x02e0…0300 20 20 20 44 20 45 20 56 20 49 20 43 20 45 20 20 20 44 20 52 20 49 20 56 20 45 20 52 20 20 20 50 ┆ D E V I C E D R I V E R P┆
0x0300…0320 20 52 20 4f 20 43 20 45 20 44 20 55 20 52 20 45 20 53 20 20 20 46 20 4f 20 52 0a 3b 20 20 20 20 ┆ R O C E D U R E S F O R ; ┆
0x0320…0340 20 20 20 49 20 4e 20 54 20 45 20 52 20 46 20 41 20 43 20 49 20 4e 20 47 20 20 20 54 20 4f 20 20 ┆ I N T E R F A C I N G T O ┆
0x0340…0360 20 20 54 20 48 20 45 20 20 20 41 20 4d 20 4f 20 53 20 20 20 49 20 2f 20 4f 0a 3b 20 20 20 20 20 ┆ T H E A M O S I / O ; ┆
0x0360…0380 20 20 53 20 59 20 53 20 54 20 45 20 4d 0a 42 45 47 49 4e 20 55 53 45 20 42 41 53 45 0a 45 4e 54 ┆ S Y S T E M BEGIN USE BASE ENT┆
0x0380…03a0 52 59 20 58 47 45 54 42 59 54 45 2c 20 58 50 55 54 42 59 54 45 2c 20 58 47 45 54 57 4f 52 44 2c ┆RY XGETBYTE, XPUTBYTE, XGETWORD,┆
0x03a0…03c0 20 58 50 55 54 57 4f 52 44 2c 20 58 43 48 4b 4f 50 2c 20 58 4e 58 46 45 52 2c 20 58 54 4d 4f 50 ┆ XPUTWORD, XCHKOP, XNXFER, XTMOP┆
0x03c0…03e0 52 0a 45 4e 54 52 59 20 58 4e 58 4f 50 52 0a 45 4e 54 52 59 20 58 42 41 43 4b 53 50 41 43 45 0a ┆R ENTRY XNXOPR ENTRY XBACKSPACE ┆
0x03e0…0400 45 58 54 45 52 4e 41 4c 20 43 4f 4e 54 4c 45 4e 47 54 48 2c 20 58 42 41 53 45 0a 24 40 2a 2a 47 ┆EXTERNAL CONTLENGTH, XBASE $@**G┆
0x0400…0420 45 4e 53 2e 44 2a 44 4d 41 44 49 46 0a 41 58 3d 20 20 20 20 20 58 58 46 4c 4e 47 20 20 20 20 20 ┆ENS.D*DMADIF AX= XXFLNG ┆
0x0420…0440 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 53 54 41 4e 44 41 52 44 20 58 46 ┆ ; STANDARD XF┆
0x0440…0460 45 52 20 4c 49 53 54 20 45 4c 45 4d 0a 58 46 45 52 53 43 3a 3d 20 20 20 20 20 20 20 20 20 20 20 ┆ER LIST ELEM XFERSC:= ┆
0x0460…0480 20 20 41 58 2c 20 41 58 3d 41 58 2b 31 20 20 20 20 3b 20 20 20 43 55 52 52 45 4e 54 20 58 46 45 ┆ AX, AX=AX+1 ; CURRENT XFE┆
0x0480…04a0 52 20 4c 49 53 54 20 53 45 43 54 49 4f 4e 20 28 50 53 57 29 0a 42 55 46 46 53 43 3a 3d 20 20 20 ┆R LIST SECTION (PSW) BUFFSC:= ┆
0x04a0…04c0 20 20 20 20 20 20 20 20 20 20 41 58 2c 20 41 58 3d 41 58 2b 31 20 20 20 20 3b 20 20 20 43 55 52 ┆ AX, AX=AX+1 ; CUR┆
0x04c0…04e0 52 45 4e 54 20 42 55 46 46 45 52 20 53 45 43 54 49 4f 4e 20 28 50 53 57 29 0a 58 46 4f 43 4e 54 ┆RENT BUFFER SECTION (PSW) XFOCNT┆
0x04e0…0500 3a 3d 20 20 20 20 20 20 20 20 20 20 20 20 20 41 58 2c 20 41 58 3d 41 58 2b 31 20 20 20 20 3b 20 ┆:= AX, AX=AX+1 ; ┆
0x0500…0520 20 20 4f 52 49 47 49 4e 41 4c 20 58 46 45 43 4e 54 0a 58 54 58 46 4c 4e 47 3a 3d 20 20 20 20 20 ┆ ORIGINAL XFECNT XTXFLNG:= ┆
0x0520…0540 20 20 20 20 20 20 20 41 58 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 4c 45 4e 47 54 48 ┆ AX ; LENGTH┆
0x0540…0560 20 4f 46 20 45 58 54 45 4e 44 45 44 20 58 46 45 52 20 4c 49 53 54 20 45 4c 45 0a 43 58 46 45 52 ┆ OF EXTENDED XFER LIST ELE CXFER┆
0x0560…0580 3a 20 20 30 20 52 45 50 45 41 54 20 58 54 58 46 4c 4e 47 20 2d 31 20 20 20 20 20 20 20 20 20 3b ┆: 0 REPEAT XTXFLNG -1 ;┆
0x0580…05a0 20 20 20 43 55 52 52 45 4e 54 20 58 46 45 52 20 4c 49 53 54 20 45 4c 45 4d 0a 53 56 31 32 3a 20 ┆ CURRENT XFER LIST ELEM SV12: ┆
0x05a0…05c0 20 20 30 20 20 20 20 20 3b 20 53 41 56 45 20 4c 4f 43 20 55 53 45 44 20 42 59 20 58 43 48 4b 4f ┆ 0 ; SAVE LOC USED BY XCHKO┆
0x05c0…05e0 50 2c 20 58 50 55 54 42 59 54 45 2c 20 58 47 45 54 42 59 54 45 0a 53 56 31 34 3a 20 20 20 30 20 ┆P, XPUTBYTE, XGETBYTE SV14: 0 ┆
0x05e0…0600 20 20 20 20 3b 20 53 41 56 45 20 4c 4f 43 20 55 53 45 44 20 42 59 20 58 43 48 4b 4f 50 2c 20 58 ┆ ; SAVE LOC USED BY XCHKOP, X┆
0x0600…0620 50 55 54 42 59 54 45 2c 20 58 47 45 54 42 59 54 45 0a 53 56 31 35 3a 20 20 20 30 20 20 20 20 20 ┆PUTBYTE, XGETBYTE SV15: 0 ┆
0x0620…0640 3b 20 53 41 56 45 20 4c 4f 43 20 55 53 45 44 20 42 59 20 58 43 48 4b 4f 50 2c 20 58 50 55 54 42 ┆; SAVE LOC USED BY XCHKOP, XPUTB┆
0x0640…0660 59 54 45 0a 53 56 32 37 3a 20 20 20 30 20 20 20 20 20 3b 20 53 41 56 45 20 4c 4f 43 20 55 53 45 ┆YTE SV27: 0 ; SAVE LOC USE┆
0x0660…0680 44 20 42 59 20 58 4e 58 46 45 52 0a 53 56 32 34 3a 20 20 20 30 20 20 20 20 20 3b 20 53 41 56 45 ┆D BY XNXFER SV24: 0 ; SAVE┆
0x0680…06a0 20 4c 4f 43 20 55 53 45 44 20 42 59 20 58 4e 58 46 45 52 0a 53 56 31 37 3a 20 20 20 30 20 20 20 ┆ LOC USED BY XNXFER SV17: 0 ┆
0x06a0…06c0 20 20 3b 20 53 41 56 45 20 4c 4f 43 20 55 53 45 44 20 42 59 20 58 50 55 54 42 59 54 45 2c 20 58 ┆ ; SAVE LOC USED BY XPUTBYTE, X┆
0x06c0…06e0 47 45 54 42 59 54 45 0a 53 56 33 34 3a 20 20 20 30 20 20 20 20 20 3b 20 53 41 56 45 20 4c 4f 43 ┆GETBYTE SV34: 0 ; SAVE LOC┆
0x06e0…0700 20 55 53 45 44 20 42 59 20 58 4e 58 4f 50 52 2c 20 58 54 4d 4f 50 52 0a 53 56 33 33 3a 20 20 20 ┆ USED BY XNXOPR, XTMOPR SV33: ┆
0x0700…0720 30 20 20 20 20 20 3b 20 53 41 56 45 20 4c 4f 43 20 55 53 45 44 20 42 59 20 58 4e 58 4f 50 52 2c ┆0 ; SAVE LOC USED BY XNXOPR,┆
0x0720…0740 20 58 54 4d 4f 50 52 0a 53 56 34 34 3a 20 20 20 30 20 20 20 20 20 3b 20 53 41 56 45 20 4c 4f 43 ┆ XTMOPR SV44: 0 ; SAVE LOC┆
0x0740…0760 20 55 53 45 44 20 42 59 20 58 47 45 54 57 4f 52 44 2c 20 58 50 55 54 57 4f 52 44 0a 53 56 34 33 ┆ USED BY XGETWORD, XPUTWORD SV43┆
0x0760…0780 3a 20 20 20 30 20 20 20 20 20 3b 20 53 41 56 45 20 4c 4f 43 20 55 53 45 44 20 42 59 20 58 47 45 ┆: 0 ; SAVE LOC USED BY XGE┆
0x0780…07a0 54 57 4f 52 44 0a 52 45 47 54 4f 50 3a 20 30 20 52 45 50 45 41 54 20 36 2c 20 52 45 47 53 54 43 ┆TWORD REGTOP: 0 REPEAT 6, REGSTC┆
0x07a0…07c0 3a 20 20 20 20 20 20 20 20 20 3b 20 20 20 52 45 47 49 53 54 45 52 20 53 41 56 45 20 53 54 41 43 ┆: ; REGISTER SAVE STAC┆
0x07c0…07e0 4b 0a 55 53 45 20 50 52 4f 47 0a 0a 3b 20 50 52 4f 43 45 44 55 52 45 20 4e 45 58 54 5f 4f 50 45 ┆K USE PROG ; PROCEDURE NEXT_OPE┆
0x07e0…0800 52 41 54 49 4f 4e 20 20 49 3a 28 4d 53 47 29 20 20 4f 3a 28 4f 50 45 52 41 54 49 4f 4e 2f 45 56 ┆RATION I:(MSG) O:(OPERATION/EV┆
0x0800…0820 45 4e 54 2c 42 59 54 45 43 4f 55 4e 54 29 0a 3b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ENT,BYTECOUNT) ; ┆
0x0820…0840 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 3a 28 45 52 52 4f 52 2c 43 41 4e ┆ R:(ERROR,CAN┆
0x0840…0860 43 45 4c 2c 43 4f 4d 4d 41 4e 44 29 0a 3b 20 54 48 45 20 52 45 46 45 52 45 4e 43 45 44 20 53 59 ┆CEL,COMMAND) ; THE REFERENCED SY┆
0x0860…0880 53 54 45 4d 20 4d 45 53 53 41 47 45 20 49 53 20 49 4e 53 50 45 43 54 45 44 2e 20 49 46 20 49 54 ┆STEM MESSAGE IS INSPECTED. IF IT┆
0x0880…08a0 20 44 4f 45 53 20 4e 4f 54 20 48 41 56 45 20 41 20 50 52 4f 50 0a 3b 20 45 52 20 46 4f 52 4d 41 ┆ DOES NOT HAVE A PROP ; ER FORMA┆
0x08a0…08c0 54 2c 20 52 45 54 55 52 4e 20 49 53 20 4d 41 44 45 20 54 4f 20 45 52 52 4f 52 2e 0a 3b 20 49 46 ┆T, RETURN IS MADE TO ERROR. ; IF┆
0x08c0…08e0 20 49 54 20 43 4f 4e 54 41 49 4e 53 20 41 20 43 41 4e 43 45 4c 20 43 4f 4d 4d 41 4e 44 2c 20 52 ┆ IT CONTAINS A CANCEL COMMAND, R┆
0x08e0…0900 45 54 55 52 4e 20 49 53 20 4d 41 44 45 20 54 4f 20 43 41 4e 43 45 4c 20 4e 44 20 54 48 45 20 45 ┆ETURN IS MADE TO CANCEL ND THE E┆
0x0900…0920 56 45 4e 54 0a 3b 20 54 4f 20 42 45 20 43 41 4e 43 45 4c 4c 45 44 20 49 53 20 44 45 4c 49 56 45 ┆VENT ; TO BE CANCELLED IS DELIVE┆
0x0920…0940 52 45 44 2e 0a 3b 20 49 46 20 54 48 45 20 4d 45 53 53 41 47 45 20 43 4f 4e 54 41 49 4e 53 20 41 ┆RED. ; IF THE MESSAGE CONTAINS A┆
0x0940…0960 20 50 52 4f 50 45 52 20 49 2f 4f 20 43 4f 4d 4d 41 4e 44 2c 20 52 45 54 55 52 4e 20 49 53 20 4d ┆ PROPER I/O COMMAND, RETURN IS M┆
0x0960…0980 41 44 45 20 54 4f 20 43 4f 4d 4d 41 4e 0a 3b 20 41 4e 44 20 54 48 45 20 4f 50 45 52 41 54 49 4f ┆ADE TO COMMAN ; AND THE OPERATIO┆
0x0980…09a0 4e 20 43 4f 44 45 20 41 4e 44 20 42 59 54 45 43 4f 55 4e 54 20 41 52 45 20 52 45 54 55 52 4e 45 ┆N CODE AND BYTECOUNT ARE RETURNE┆
0x09a0…09c0 44 2e 0a 3b 20 52 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 2d 20 20 20 20 20 20 20 ┆D. ; R0 - ┆
0x09c0…09e0 20 20 20 20 20 20 20 20 20 20 20 42 59 54 45 43 4f 55 4e 54 28 4c 45 41 53 54 20 53 49 47 4e 49 ┆ BYTECOUNT(LEAST SIGNI┆
0x09e0…0a00 46 49 43 41 4e 54 20 50 41 52 54 0a 3b 20 52 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆FICANT PART ; R1 ┆
0x0a00…0a20 20 52 45 46 28 4d 53 47 29 20 20 20 20 20 20 20 20 20 20 20 42 59 54 45 43 4f 55 4e 54 28 4d 4f ┆ REF(MSG) BYTECOUNT(MO┆
0x0a20…0a40 53 54 20 20 53 49 47 4e 49 46 49 43 41 4e 54 20 50 41 52 54 0a 3b 20 52 32 20 20 20 20 20 20 20 ┆ST SIGNIFICANT PART ; R2 ┆
0x0a40…0a60 20 20 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 4f 50 45 ┆ - OPE┆
0x0a60…0a80 52 41 54 49 4f 4e 2f 45 56 45 4e 54 0a 3b 20 52 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RATION/EVENT ; R4 ┆
0x0a80…0aa0 20 20 4c 49 4e 4b 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 53 54 0a 3b 20 52 45 54 55 ┆ LINK DEST ; RETU┆
0x0aa0…0ac0 52 4e 53 3a 0a 3b 20 4c 49 4e 4b 2b 30 3a 20 20 20 20 20 45 52 52 4f 52 0a 3b 20 4c 49 4e 4b 2b ┆RNS: ; LINK+0: ERROR ; LINK+┆
0x0ac0…0ae0 31 3a 20 20 20 20 20 43 41 4e 43 45 4c 0a 3b 20 4c 49 4e 4b 2b 32 3a 20 20 20 20 20 43 4f 4d 4d ┆1: CANCEL ; LINK+2: COMM┆
0x0ae0…0b00 41 4e 44 0a 58 4e 58 4f 50 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆AND XNXOPR: ┆
0x0b00…0b20 20 20 20 20 20 20 20 20 3b 20 4e 45 58 54 5f 4f 50 45 52 41 54 49 4f 4e 3a 0a 20 20 20 20 20 20 ┆ ; NEXT_OPERATION: ┆
0x0b20…0b40 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 34 20 20 53 56 33 34 20 20 20 20 20 20 20 3b 20 ┆ MOV R4 SV34 ; ┆
0x0b40…0b60 20 20 53 41 56 45 28 4c 49 4e 4b 29 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 ┆ SAVE(LINK) JMP ┆
0x0b60…0b80 20 20 53 34 20 20 58 43 48 4b 4f 50 20 20 20 20 20 3b 20 20 20 43 48 45 43 4b 5f 4f 50 45 52 41 ┆ S4 XCHKOP ; CHECK_OPERA┆
0x0b80…0ba0 54 49 4f 4e 28 4d 53 47 0a 20 20 20 20 20 20 20 20 4a 4d 50 49 20 26 20 20 20 20 20 20 20 20 20 ┆TION(MSG JMPI & ┆
0x0ba0…0bc0 20 20 53 56 33 34 20 20 20 20 20 20 20 3b 20 20 20 20 20 45 52 52 4f 52 3a 20 20 20 20 20 20 52 ┆ SV34 ; ERROR: R┆
0x0bc0…0be0 45 54 55 52 4e 28 45 52 52 4f 52 29 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 ┆ETURN(ERROR), JMP & ┆
0x0be0…0c00 20 20 20 20 20 20 20 4c 34 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 43 41 4e 43 45 4c 3a 20 ┆ L4 ; CANCEL: ┆
0x0c00…0c20 20 20 20 20 47 4f 54 4f 20 4c 34 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO L4, ┆
0x0c20…0c40 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 58 46 45 52 3a 20 20 20 20 ┆ ; XFER: ┆
0x0c40…0c60 20 20 20 43 4f 4e 54 49 4e 55 45 29 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 ┆ CONTINUE) MOV ┆
0x0c60…0c80 20 20 52 33 20 20 53 56 33 33 20 20 20 20 20 20 20 3b 20 20 20 53 41 56 45 28 33 29 0a 20 20 20 ┆ R3 SV33 ; SAVE(3) ┆
0x0c80…0ca0 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 53 34 20 20 58 47 45 54 57 4f 52 44 20 20 ┆ JMP S4 XGETWORD ┆
0x0ca0…0cc0 20 3b 20 20 20 47 45 54 57 4f 52 44 28 57 4f 52 44 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 ┆ ; GETWORD(WORD, JMP &┆
0x0cc0…0ce0 20 20 20 20 20 20 20 20 20 20 20 20 58 45 52 52 20 20 20 20 20 20 20 3b 20 20 20 20 20 4e 4f 4e ┆ XERR ; NON┆
0x0ce0…0d00 45 3a 20 20 20 20 20 20 20 47 4f 54 4f 20 45 52 52 2c 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 ┆E: GOTO ERR, MOV ┆
0x0d00…0d20 20 20 20 20 20 20 20 20 52 33 20 20 20 20 20 20 20 20 20 52 32 20 20 3b 20 20 20 20 20 4f 4b 3a ┆ R3 R2 ; OK:┆
0x0d20…0d40 20 20 20 20 20 20 20 20 20 57 4f 52 44 3d 3e 4f 50 45 52 41 54 49 4f 4e 29 0a 20 20 20 20 20 20 ┆ WORD=>OPERATION) ┆
0x0d40…0d60 20 20 4d 4f 56 43 20 20 38 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 31 20 20 3b 20 ┆ MOVC 8 R1 ; ┆
0x0d60…0d80 20 20 46 4f 52 20 49 3a 3d 31 20 54 4f 20 38 20 44 4f 0a 4c 35 3a 20 20 20 20 20 20 20 20 20 20 ┆ FOR I:=1 TO 8 DO L5: ┆
0x0d80…0da0 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 4c 35 3a 0a 20 20 20 ┆ ; L5: ┆
0x0da0…0dc0 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 33 20 20 20 20 20 20 20 20 20 52 30 20 ┆ MOV R3 R0 ┆
0x0dc0…0de0 20 3b 20 20 20 57 4f 52 44 3d 3e 43 4e 54 2e 4c 4f 57 45 52 0a 20 20 20 20 20 20 20 20 4a 4d 50 ┆ ; WORD=>CNT.LOWER JMP┆
0x0de0…0e00 20 20 20 20 20 20 20 20 20 20 53 34 20 20 58 47 45 54 57 4f 52 44 20 20 20 3b 20 20 20 47 45 54 ┆ S4 XGETWORD ; GET┆
0x0e00…0e20 57 4f 52 44 28 57 4f 52 44 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 20 20 20 ┆WORD(WORD, JMP & ┆
0x0e20…0e40 20 20 20 20 58 45 52 52 20 20 20 20 20 20 20 3b 20 20 20 20 20 4e 4f 4e 45 3a 20 20 20 20 20 20 ┆ XERR ; NONE: ┆
0x0e40…0e60 20 47 4f 54 4f 20 45 52 52 2c 0a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ GOTO ERR, ┆
0x0e60…0e80 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 4f 4b 3a 20 20 20 20 20 20 20 20 ┆ ; OK: ┆
0x0e80…0ea0 20 43 4f 4e 54 49 4e 55 45 29 0a 20 20 20 20 20 20 20 20 53 4f 42 20 20 20 20 20 20 20 20 20 20 ┆ CONTINUE) SOB ┆
0x0ea0…0ec0 52 31 20 20 4c 35 20 20 20 20 20 20 20 20 20 3b 20 20 20 52 4f 46 0a 20 20 20 20 20 20 20 20 4d ┆R1 L5 ; ROF M┆
0x0ec0…0ee0 4f 56 20 20 20 20 20 20 20 20 20 20 52 33 20 20 20 20 20 20 20 20 20 52 31 20 20 3b 20 20 20 57 ┆OV R3 R1 ; W┆
0x0ee0…0f00 4f 52 44 3d 3e 43 4e 54 2e 55 50 50 45 52 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 ┆ORD=>CNT.UPPER JMP ┆
0x0f00…0f20 20 20 20 20 53 34 20 20 58 4e 58 46 45 52 20 20 20 20 20 3b 20 20 20 4e 45 58 54 5f 58 46 45 52 ┆ S4 XNXFER ; NEXT_XFER┆
0x0f20…0f40 5f 45 4c 45 4d 28 0a 20 20 20 20 20 20 20 20 4e 4f 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆_ELEM( NOP ┆
0x0f40…0f60 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 4e 4f 4e 45 3a 20 20 20 20 20 20 20 43 4f 4e ┆ ; NONE: CON┆
0x0f60…0f80 54 49 4e 55 45 2c 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 ┆TINUE, ┆
0x0f80…0fa0 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 4f 4b 3a 20 20 20 20 20 20 20 20 20 43 4f 4e ┆ ; OK: CON┆
0x0fa0…0fc0 54 49 4e 55 45 29 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 53 56 33 33 20 20 20 20 20 20 20 ┆TINUE) MOV SV33 ┆
0x0fc0…0fe0 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 52 45 53 54 4f 52 45 28 33 29 0a 20 20 20 20 20 20 ┆ R3 ; RESTORE(3) ┆
0x0fe0…1000 20 20 4d 4f 56 20 20 20 53 56 33 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 0a ┆ MOV SV34 R4 ; ┆
0x1000…1020 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 32 2e 20 20 20 20 20 ┆ JMP 2. ┆
0x1020…1040 58 34 20 20 3b 20 20 20 52 45 54 55 52 4e 28 43 4f 4d 4d 41 4e 44 29 0a 4c 34 3a 20 20 20 20 20 ┆X4 ; RETURN(COMMAND) L4: ┆
0x1040…1060 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 4c 34 ┆ ; L4┆
0x1060…1080 3a 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 53 56 33 34 20 20 20 20 20 20 20 20 20 20 20 20 ┆: MOV SV34 ┆
0x1080…10a0 20 20 52 34 20 20 3b 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆ R4 ; JMP ┆
0x10a0…10c0 20 31 2e 20 20 20 20 20 58 34 20 20 3b 20 20 20 52 45 54 55 52 4e 28 43 41 4e 43 45 4c 29 0a 58 ┆ 1. X4 ; RETURN(CANCEL) X┆
0x10c0…10e0 45 52 52 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 ┆ERR: ┆
0x10e0…1100 20 20 20 3b 20 45 52 52 3a 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 53 56 33 33 20 20 20 20 ┆ ; ERR: MOV SV33 ┆
0x1100…1120 20 20 20 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 52 45 53 54 4f 52 45 28 33 29 0a 20 20 20 ┆ R3 ; RESTORE(3) ┆
0x1120…1140 20 20 20 20 20 4a 4d 50 49 20 20 20 20 20 20 20 20 20 20 20 20 20 53 56 33 34 20 20 20 20 20 20 ┆ JMPI SV34 ┆
0x1140…1160 20 3b 20 20 20 52 45 54 55 52 4e 28 45 52 52 4f 52 29 0a 0a 3b 20 50 52 4f 43 45 44 55 52 45 20 ┆ ; RETURN(ERROR) ; PROCEDURE ┆
0x1160…1180 54 45 52 4d 49 4e 41 54 45 5f 4f 50 45 52 41 54 49 4f 4e 20 20 49 3a 28 52 45 53 55 4c 54 2c 42 ┆TERMINATE_OPERATION I:(RESULT,B┆
0x1180…11a0 59 54 45 43 4f 55 4e 54 29 20 20 52 3a 28 45 52 52 4f 52 2c 4f 4b 29 0a 3b 20 53 4b 49 50 53 20 ┆YTECOUNT) R:(ERROR,OK) ; SKIPS ┆
0x11a0…11c0 46 4f 52 57 41 52 44 20 54 4f 20 54 48 45 20 4c 41 53 54 20 58 46 45 52 20 4c 49 53 54 20 45 4c ┆FORWARD TO THE LAST XFER LIST EL┆
0x11c0…11e0 45 4d 45 4e 54 20 41 4e 44 20 53 54 4f 52 45 53 20 54 48 45 20 52 45 53 55 4c 54 20 41 4e 44 0a ┆EMENT AND STORES THE RESULT AND ┆
0x11e0…1200 3b 20 54 48 45 20 42 59 54 45 43 4f 55 4e 54 20 28 3d 4e 55 4d 42 45 52 20 4f 46 20 58 46 45 52 ┆; THE BYTECOUNT (=NUMBER OF XFER┆
0x1200…1220 52 45 44 20 42 59 54 45 53 29 0a 3b 20 52 30 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆RED BYTES) ; R0 ┆
0x1220…1240 52 45 53 55 4c 54 20 20 20 20 20 20 20 20 20 20 20 20 20 4b 45 50 54 20 28 43 4f 4d 50 4c 45 54 ┆RESULT KEPT (COMPLET┆
0x1240…1260 49 4f 4e 20 43 4f 44 45 29 0a 3b 20 52 31 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 ┆ION CODE) ; R1 B┆
0x1260…1280 59 54 45 43 4f 55 4e 54 20 28 4c 45 41 53 54 20 53 49 47 4e 49 46 49 43 41 4e 54 20 50 41 52 54 ┆YTECOUNT (LEAST SIGNIFICANT PART┆
0x1280…12a0 29 20 20 4b 45 50 54 0a 3b 20 52 32 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 42 59 54 ┆) KEPT ; R2 BYT┆
0x12a0…12c0 45 43 4f 55 4e 54 20 28 4d 4f 53 54 20 20 53 49 47 4e 49 46 49 43 41 4e 54 20 50 41 52 54 29 20 ┆ECOUNT (MOST SIGNIFICANT PART) ┆
0x12c0…12e0 20 4b 45 50 54 0a 3b 20 52 34 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 4c 49 4e 4b 20 ┆ KEPT ; R4 LINK ┆
0x12e0…1300 20 20 20 20 20 20 20 20 20 20 20 20 20 20 44 45 53 54 0a 3b 20 52 45 54 55 52 4e 53 3a 0a 3b 20 ┆ DEST ; RETURNS: ; ┆
0x1300…1320 4c 49 4e 4b 2b 30 3a 20 20 20 20 20 45 52 52 4f 52 0a 3b 20 4c 49 4e 4b 2b 31 3a 20 20 20 20 20 ┆LINK+0: ERROR ; LINK+1: ┆
0x1320…1340 4f 4b 0a 58 54 4d 4f 50 52 3a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆OK XTMOPR: ┆
0x1340…1360 20 20 20 20 20 20 20 3b 20 54 45 52 4d 49 4e 41 54 45 5f 4f 50 45 52 41 54 49 4f 4e 3a 0a 20 20 ┆ ; TERMINATE_OPERATION: ┆
0x1360…1380 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 34 20 20 53 56 33 34 20 20 20 20 20 ┆ MOV R4 SV34 ┆
0x1380…13a0 20 20 3b 20 20 20 53 41 56 45 28 4c 49 4e 4b 29 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 ┆ ; SAVE(LINK) MOV ┆
0x13a0…13c0 20 20 20 20 20 20 52 33 20 20 53 56 33 33 20 20 20 20 20 20 20 3b 20 20 20 53 41 56 45 28 33 29 ┆ R3 SV33 ; SAVE(3)┆
0x13c0…13e0 0a 4c 37 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 ┆ L7: ┆
0x13e0…1400 20 20 20 20 20 3b 20 4c 37 3a 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 ┆ ; L7: JMP ┆
0x1400…1420 53 34 20 20 58 4e 58 46 45 52 20 20 20 20 20 3b 20 20 20 4e 45 58 54 5f 58 46 45 52 5f 45 4c 45 ┆S4 XNXFER ; NEXT_XFER_ELE┆
0x1420…1440 4d 28 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 20 20 20 20 20 20 20 4c 38 20 20 ┆M( JMP & L8 ┆
0x1440…1460 20 20 20 20 20 20 20 3b 20 20 20 20 20 4e 4f 4e 45 3a 20 20 20 20 20 20 20 47 4f 54 4f 20 4c 38 ┆ ; NONE: GOTO L8┆
0x1460…1480 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 20 20 20 20 20 20 20 4c 37 20 20 20 ┆, JMP & L7 ┆
0x1480…14a0 20 20 20 20 20 20 3b 20 20 20 20 20 4f 4b 3a 20 20 20 20 20 20 20 20 20 47 4f 54 4f 20 4c 37 29 ┆ ; OK: GOTO L7)┆
0x14a0…14c0 0a 4c 38 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 ┆ L8: ┆
0x14c0…14e0 20 20 20 20 20 3b 20 4c 38 3a 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 ┆ ; L8: MOV ┆
0x14e0…1500 52 30 20 20 20 20 20 20 20 20 20 52 33 20 20 3b 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 ┆R0 R3 ; JMP ┆
0x1500…1520 20 20 20 20 20 20 53 34 20 20 58 50 55 54 57 4f 52 44 20 20 20 3b 20 20 20 50 55 54 57 4f 52 44 ┆ S4 XPUTWORD ; PUTWORD┆
0x1520…1540 28 52 45 53 55 4c 54 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 20 20 20 20 20 ┆(RESULT, JMP & ┆
0x1540…1560 20 20 58 45 52 52 31 20 20 20 20 20 20 3b 20 20 20 20 20 46 41 55 4c 54 3a 20 20 20 20 20 20 47 ┆ XERR1 ; FAULT: G┆
0x1560…1580 4f 54 4f 20 45 52 31 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 20 20 20 20 20 ┆OTO ER1, JMP & ┆
0x1580…15a0 20 20 58 45 52 52 31 20 20 20 20 20 20 3b 20 20 20 20 20 4c 41 53 54 3a 20 20 20 20 20 20 20 47 ┆ XERR1 ; LAST: G┆
0x15a0…15c0 4f 54 4f 20 45 52 31 2c 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 31 ┆OTO ER1, MOV R1┆
0x15c0…15e0 20 20 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 20 20 4d 4f 52 45 3a 20 20 20 20 20 20 20 43 ┆ R3 ; MORE: C┆
0x15e0…1600 4f 4e 54 49 4e 55 45 29 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 53 34 ┆ONTINUE) JMP S4┆
0x1600…1620 20 20 58 50 55 54 57 4f 52 44 20 20 20 3b 20 20 20 50 55 54 57 4f 52 44 28 42 59 54 45 43 4e 54 ┆ XPUTWORD ; PUTWORD(BYTECNT┆
0x1620…1640 2e 4c 4f 57 45 52 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 20 20 20 20 20 20 ┆.LOWER, JMP & ┆
0x1640…1660 20 58 45 52 52 31 20 20 20 20 20 20 3b 20 20 20 20 20 46 41 55 4c 54 3a 20 20 20 20 20 20 47 4f ┆ XERR1 ; FAULT: GO┆
0x1660…1680 54 4f 20 45 52 31 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 20 20 20 20 20 20 ┆TO ER1, JMP & ┆
0x1680…16a0 20 58 45 52 52 31 20 20 20 20 20 20 3b 20 20 20 20 20 4c 41 53 54 3a 20 20 20 20 20 20 20 47 4f ┆ XERR1 ; LAST: GO┆
0x16a0…16c0 54 4f 20 45 52 31 2c 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 20 20 20 20 20 20 20 52 32 20 ┆TO ER1, MOV R2 ┆
0x16c0…16e0 20 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 20 20 4d 4f 52 45 3a 20 20 20 20 20 20 20 43 4f ┆ R3 ; MORE: CO┆
0x16e0…1700 4e 54 49 4e 55 45 29 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 20 20 20 20 53 34 20 ┆NTINUE) JMP S4 ┆
0x1700…1720 20 58 50 55 54 57 4f 52 44 20 20 20 3b 20 20 20 50 55 54 57 4f 52 44 28 42 59 54 45 43 4e 54 2e ┆ XPUTWORD ; PUTWORD(BYTECNT.┆
0x1720…1740 55 50 50 45 52 2c 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 26 20 20 20 20 20 20 20 20 20 20 20 20 ┆UPPER, JMP & ┆
0x1740…1760 58 45 52 52 31 20 20 20 20 20 20 3b 20 20 20 20 20 46 41 55 4c 54 3a 20 20 20 20 20 20 47 4f 54 ┆XERR1 ; FAULT: GOT┆
0x1760…1780 4f 20 45 52 31 2c 0a 20 20 20 20 20 20 20 20 4e 4f 50 20 20 20 20 20 20 20 20 20 20 20 20 20 20 ┆O ER1, NOP ┆
0x1780…17a0 20 20 20 20 20 20 20 20 20 20 20 3b 20 20 20 20 20 4c 41 53 54 3a 20 20 20 20 20 20 20 43 4f 4e ┆ ; LAST: CON┆
0x17a0…17c0 54 49 4e 55 45 2c 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 53 56 33 33 20 20 20 20 20 20 20 ┆TINUE, MOV SV33 ┆
0x17c0…17e0 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 20 20 4d 4f 52 45 3a 20 20 20 20 20 20 20 52 45 53 ┆ R3 ; MORE: RES┆
0x17e0…1800 54 4f 52 45 28 33 29 29 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 53 56 33 34 20 20 20 20 20 ┆TORE(3)) MOV SV34 ┆
0x1800…1820 20 20 20 20 20 20 20 20 20 52 34 20 20 3b 0a 20 20 20 20 20 20 20 20 4a 4d 50 20 20 20 20 20 20 ┆ R4 ; JMP ┆
0x1820…1840 20 20 20 20 20 20 20 20 31 2e 20 20 20 20 20 58 34 20 20 3b 20 20 20 52 45 54 55 52 4e 28 4f 4b ┆ 1. X4 ; RETURN(OK┆
0x1840…1860 29 0a 58 45 52 52 31 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 ┆) XERR1: ┆
0x1860…1880 20 20 20 20 20 20 3b 20 45 52 31 44 0a 20 20 20 20 20 20 20 20 4d 4f 56 20 20 20 53 56 33 33 20 ┆ ; ER1D MOV SV33 ┆
0x1880…18a0 20 20 20 20 20 20 20 20 20 20 20 20 20 52 33 20 20 3b 20 20 20 52 45 53 54 4f 52 45 28 33 29 0a ┆ R3 ; RESTORE(3) ┆
0x18a0…18c0 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 53 56 33 34 20 20 20 ┆ JMPI SV34 ┆
0x18c0…18e0 20 20 20 20 3b 20 20 20 52 45 54 55 52 4e 28 45 52 52 4f 52 29 0a 0a 3b 20 50 52 4f 43 45 44 55 ┆ ; RETURN(ERROR) ; PROCEDU┆
0x18e0…1900 52 45 20 43 48 45 43 4b 5f 4f 50 45 52 41 54 49 4f 4e 20 20 49 3a 28 4d 53 47 29 20 20 4f 3a 28 ┆RE CHECK_OPERATION I:(MSG) O:(┆
0x1900…1920 45 56 45 4e 54 29 20 20 52 3a 28 46 41 55 4c 54 2c 43 41 4e 43 45 4c 2c 58 46 45 52 29 0a 3b 20 ┆EVENT) R:(FAULT,CANCEL,XFER) ; ┆
[…truncated at 200 lines…]