|
DataMuseum.dkPresents historical artifacts from the history of: Philips Data Systems |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Philips Data Systems Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - download
Length: 13692 (0x357c)
Notes: pts_type(SC)
Names: »DRMS01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRMS01.SC«
IDENT DRMS01 REL 9.1 78-09-15 870106040912 * ************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRMS01 = DRIVER MAGNETIC STRIPE * * * * * * * ************************************************** * * * THIS DRIVER HANDLES INPUT/OUTPUT ON THE * M A G N E T I C S T R I P E U N I T (M S U) PTS 6XXX. * THE MSU MUST BE CONNECTED TO THE CPU VIA CHLT OR CHRT. * * TRACK 2 AND 3 ON STRIPES CAN BE READ AND TRACK 3 CAN BE * WRITTEN. * * EACH TRACK CONSISTS OF START CHARACTER, 1-104 DATA CHARACTERS, * END CHARACTER AND LRC CHARACTER. * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C M S : ACTIVATION PART * ORDER PROCESSOR * I H M S : INTERRUPT HANDLER * O N M S : RECOVERY ROUTINE * * EJECT DRMS01 * * THE FOLLOWING ORDERS ARE TREATED: * * 06 WRITE CARD * 0A READ CARD * 11 INSERT CARD * 26 END OF OPERATION * * THE FOLLOWING RETURN CODE IS USED: * * BIT 0 REQUEST ERROR * 7 NO DATA * 10 CARD MISSING * 12 INCORRECT LENGTH * 13 NEGATIVE ACKNOWLEDGEMENT * 14 THROUGHPUT ERROR * 15 NOT OPERABEL * * * NORMAL USE OF REGISTERS: * * REGISTER A1 RETURN CODE * A2 INPUT/OUTPUT CHARACTER * A3 BUFFER INDEX * A4 * A5 STACK BASE POINTER * A6 DWT ADDRESS * A7 ORDER * A8 ECB ADDRESS EJECT DRMSO1 * *********** * ENTRIES * *********** * ENTRY MSAD ADDRESS BLOCK * ************* * EXTERNALS * ************* * EXTRN SAVE8 SAVE REGISTER A1-A8 ON A15 STACK EXTRN STREG STORE REGISTERS AND GO TO DISPATCHER EXTRN LDREG LOAD REGISTER AND RETURN TO USER VIA A5 EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN DISIOE DISPATCH END I/O, REQUEST ERROR EXTRN GETCHR GET NEXT CHARACTER IN ECB-BUFFER EXTRN DISEND END I/O AND DISPATCH EXTRN TDISP DISPATCHER ENTRY EXTRN DWTST DWT SOFTWARE STATUS EXTRN DWTOR ORDER EXTRN DWTECB ECB-ADDRESS EJECT DRMS01 * ************************ * CONDITIONAL ASSEMBLY * ************************ * EJECT DRMS01 * ************* * CONSTANTS * ************* * CRWSTX EQU /3B CARD START CHARACTER CRWETX EQU /3F CARD END CHARACTER RTRIES EQU 2 NO OF RETRIES * ******************** * DWT-DISPLACEMENT * ******************** * DWTBC EQU /3 BYTE COUNTER DWTSB2 EQU /1E STACK BASE POINTER DWTA4 EQU /14 DWTLRC EQU /26 LRC-ACCUMULATOR * ******************** * ECB-DISPLACEMENT * ******************** * ECBBA EQU 2 BUFFER ADDRESS ECBRL EQU 4 REQUESTED LENGTH ECBEL EQU 6 EFFECTIVE LENGTH ECBRC EQU 8 RETURN CODE ECBCW EQU 10 CONTROL WORD EJECT DRMS01 * ********** * TABLES * ********** * MSAD EQU * DATA ACMS ACTIVATION DRIVER DATA IHMS INTERRUPT HANDLER DATA RCMS RECOVERY ROUTINE * * TAB EQU * ORDER TABLE DATA /060A,/1126 TABL EQU *-TAB * MSFUN EQU * MAGNETIC STRIPE FUNCTION DATA WRITE,READ,INSERT DATA ENDOP EJECT DRMS01 * * * A C M S * * ACTIVATION PART: CHECKS VALIDITY OF ORDERS * AND STARTS PROCESSING. * * ACMS EQU * LDK A4,TABL-1 ACMS10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER RF(E) ACMS20 VALID ORDER SUK A4,1 RB(NN) ACMS10 TRY NEXT * * MSERR ABL DISIOE DISPATCH END I/O,REQUEST ERROR * ACMS20 EQU * ADR A4,A4 GET INDEX ABI MSFUN,A4 BRANCH TO VALID FUNCTION MODULE EJECT DRMS01 * * INSERT CARD /11 * INSERT EQU * LDK A4,/0C CHAR DOC. INSERTED INSE02 EQU * LC A2,DWTBC,A6 GET BYTE COUNTER ANK A2,/FF RF(NE) INSE10 INSE05 EQU * LDK A2,/01 GENERAL RESET CF A5,OUTPUT SEND IT CF A5,STREG WAIT FOR MESSAGE FROM MSU INSE10 CWR A2,A4 DOCUMENT INSERTED/ESCAPED RB(NE) INSE05 NO SC A4,DWTST+1,A6 YES EJECT DRMS01 * * END OF INPUT/OUTPUT REQUEST * ENDIO EQU * ABL DISEND EJECT DRMS01 * * READ CARD /0A * READ EQU * LDK A4,RTRIES SET NO OF RETRIES LC A2,DWTBC,A6 GET BYTE COUNTER ANK A2,/FF SUK A2,/0C DOCUMENT INSERTED RF(NE) WRIT02 NO READ02 EQU * LDK A3,0 RESET BUFFER INDEX LD A2,ECBCW,A8 GET TRACK NUMBER SUK A2,2 RB(N) MSERR TRACK < 2 CWK A2,1 RB(G) MSERR TRACK > 3 ADK A2,/A COMPUTE TRACK TO SELECT CF A5,OUTPUT SEND READ TRACK COMMAND (/0A OR /0B) CM DWTLRC,A6 CLEAR LRC-ACKUMULATOR READ05 EQU * CF A5,STREG WAIT FOR DATA INPUTS LDR A7,A2 SUK A7,4 OPERATION INCORRECT RF(NE) READ07 NO SUK A4,1 COUNT NO OF RETRIES RB(NZ) READ02 TRY AGAIN READ06 LDK A1,4 NEGATIVE ACKNOWLEDGEMENT ENDIO1 RB ENDIO READ07 SUK A7,2 OPERATION CORRECT? RB(E) ENDIO YES SUK A7,2 RF(E) READ60 NO DATA LDR A3,A3 FIRST CHARACTER RF(N) READ40 NO; LRC-CHARACTER RF(NE) READ10 NO; DATA INPUT ADK A3,/80 CWK A2,CRWSTX START CHARACTER RF(E) READ25 YES LDK A1,2 THROUGHPUT ERROR RB ENDIO1 END I/O READ10 ANK A3,/7F MASK BUFFER INDEX CWK A2,CRWETX END CHARACTER RF(NE) READ20 NO ST A3,ECBEL,A8 YES; STORE EFFECITVE LENGTH NGR A3,A3 NEGATE REGISTER RF READ25 READ20 EQU * CF A15,STORE STORE CHAR IN ECB-BUFFER CW A3,ECBRL,A8 EFF.LENGTH = REQ.LENGTH RF(G) READ50 NO READ25 XRS A2,DWTLRC,A6 UPDATE LRC ACKUMULATOR CF A15,CDCHK CHECK IF CODE CHECK ERROR RB READ05 READ40 XR A2,DWTLRC,A6 CHECK LRC ANK A2,/F MASK LRC-SUM RB(E) READ05 LRC CORRECT RB READ06 READ50 LDK A1,8 INCORRECT LENGTH ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH RB ENDIO1 READ60 LDKL A1,/100 NO DATA RB ENDIO1 EJECT DRMS01 * * WRITE CARD /06 * WRITE EQU * LDK A4,RTRIES SET NO OF RTRIES LC A2,DWTBC,A6 GET BYTE COUNTER ANK A2,/FF SUK A2,/0C DOCUMENT INSERTED RF(E) WRIT05 YES WRIT02 LDK A1,/20 CARD MISSING ENDIO2 RB ENDIO WRIT05 EQU * LDK A3,0 RESET BUFFER INDEX CM DWTLRC,A6 CLEAR LRC-ACKUMULATOR LDK A2,CRWSTX CARD START CHARACTER WRIT10 EQU * XRS A2,DWTLRC,A6 UPDATE LRC-ACKUMULATOR CF A5,OUTPUT SEND CHARACTER WRIT15 CF A15,GETCHR GET NEXT CHAR FROM ECB-BUFFER LDR A1,A1 LAST CHARACTER RF(E) WRIT20 YES CF A15,CDCHK VALID CODE? LDR A1,A1 RB(Z) WRIT10 YES RB WRIT15 WRIT20 EQU * LDK A2,CRWETX CARD END CHARACTER XRS A2,DWTLRC,A6 UPDATE LRC CF A5,OUTPUT SEND CHARACTER XR A2,DWTLRC,A6 LRC-CHARACTER ORK A2,/30 SET ZONE CF A5,OUTPUT SEND LRC-CHARACTER WRIT25 CF A5,STREG WAIT FOR STATUS MESSAGE * LDR A7,A2 SUK A7,4 OPERATION INCORRECT ? RF(NE) WRIT30 NO SUK A4,1 RB(NZ) WRIT05 TRY AGAIN WRIT27 LDK A1,4 NEGATIVE ACKNOWLEDGEMENT RB ENDIO2 WRIT30 SUK A7,2 OPERATION CORRECT ? RB(Z) ENDIO2 YES SUK A7,2 RB(E) WRIT27 NO DATA AT READ CHECK RB WRIT25 EJECT DRMS01 * * END OF OPERATION /26 * ENDOP EQU * LDK A2,/01 GENERAL RESET CF A5,OUTPUT SEND CHARACTER LDK A4,/0D DOCUMENT ESCAPED LC A2,DWTBC,A6 GET BYTE COUNTER ANK A2,/FF RF(NE) END10 END05 CF A5,STREG WAIT FOR MESSAGE FROM MSU END10 CWR A2,A4 DOCUMENT ESCAPED? RB(NE) END05 NO SC A4,DWTST+1,A6 CHAR TO BYTE COUNTER IN DWT ENDIO3 RB ENDIO2 EJECT DRMS01 * * I H M S * * INTERRUPT HANDLER * * IHMS EQU * ANK A2,/FF LD A3,DWTST,A6 GET STATUS WORD RF(NN) IHM100 BUSY LDR A3,A2 SAVE CHAR SUK A3,/0C DOCUMENT INSERTED RF(E) IHMS10 SUK A3,1 DOCUMENT ESCAPED RF(NE) EXIT IHMS10 EQU * SC A2,DWTST+1,A6 SET STATUS WORD EXIT ABL TDISP GO TO DISPATCHER * * DEVICE BUSY * IHM100 EQU * LDR A1,A1 RETURN CODE FROM CHLT/CHRT RB(NE) ENDIO3 YES; INDICATE NOT OPERABEL LDR A4,A4 OUTPUT ANSWER ? RF(Z) IHRET YES SUK A7,/11 INSERT CARD RF(E) IHRET YES SUK A7,/15 END OF OPERATION? RF(E) IHRET LDR A4,A2 SUK A4,/0D DOCUMENT ESCAPED ? RF(E) IHM140 YES IHRET ABL LDREG LOAD REG. AND RETURN CALLING SEQ VIA A5 * IHM140 LDK A4,/0D SC A4,DWTST+1,A6 UPDATE STATUS WORD LDK A1,/20 CARD MISSING ENDIO4 RB ENDIO3 EJECT DRMS01 * * * R C M S * * RECOVERY ROUTINE * * RCMS EQU * CF A15,SAVE8 SAVE A1-A8 ON A15 STACK LDK A2,/0D SC A2,DWTST+1,A6 RESET STATUS WORD LD A7,DWTST,A6 BUSY? RB(N) EXIT NO LDK A1,2 THROUGPUT ERROR RB ENDIO4 EJECT DRMS01 * * STORE = SUBROUTINE TO STORE CHARACTER * IN ECB-BUFFER AND INCREMENT BUFFER INDEX. * STORE EQU * LD A7,ECBBA,A8 BUFFER ADDRESS ADR A7,A3 ADD BUFFER INDEX SCR A2,A7 STORE CHAR ADK A3,1 INCR. INDEX RTN A15 * * * CDCHK = CHECK IF CODE CHECK ERROR * * AT ENTRY: A2=CHARACTER * AT EXIT: A1=RERURN CODE 0,4 CDCHK EQU * LDR A1,A2 SUK A1,/30 VALID CODE? RF(N) CDC05 NO SUK A1,/F NUMERIC VALUE? RF(P) CDC05 NO LDK A1,0 SET R.C. RF CDC10 CDC05 LDK A1,4 SET R.C. ORS A1,ECBRC,A8 INSERT IN ECB CDC10 RTN A15 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRMS01 REL 9.1 78-09-15 870106040912 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0082 Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x004c}
0x0082…008c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0086}
0x008c…00b4 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0090}
0x00b4…00be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00b8}
0x00be…00ea Head {h00=0x0028, h01=0x0050, text=»* DRMS01 = DRIVER MAGNETIC STRIPE «, t00=0x0000, t01=0x00c2}
0x00ea…00f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00ee}
0x00f4…00fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f8}
0x00fe…0108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0102}
0x0108…0112 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010c}
0x0112…011c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0116}
0x011c…0126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0120}
0x0126…0130 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x012a}
0x0130…016a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x0134}
0x016a…0174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x016e}
0x0174…017e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0178}
0x017e…01b2 Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT/OUTPUT ON THE «, t00=0x0000, t01=0x0182}
0x01b2…01f8 Head {h00=0x0042, h01=0x0050, text=»* M A G N E T I C S T R I P E U N I T (M S U) PTS 6XXX. «, t00=0x0001, t01=0x0026}
0x01f8…023a Head {h00=0x003e, h01=0x0050, text=»* THE MSU MUST BE CONNECTED TO THE CPU VIA CHLT OR CHRT.«, t00=0x0001, t01=0x006c}
0x023a…0244 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ae}
0x0244…0288 Head {h00=0x0040, h01=0x0050, text=»* TRACK 2 AND 3 ON STRIPES CAN BE READ AND TRACK 3 CAN BE «, t00=0x0001, t01=0x00b8}
0x0288…029c Head {h00=0x0010, h01=0x0050, text=»* WRITTEN.«, t00=0x0001, t01=0x00fc}
0x029c…02a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0110}
0x02a6…02f0 Head {h00=0x0046, h01=0x0050, text=»* EACH TRACK CONSISTS OF START CHARACTER, 1-104 DATA CHARACTERS,«, t00=0x0001, t01=0x011a}
0x02f0…031c Head {h00=0x0028, h01=0x0050, text=»* END CHARACTER AND LRC CHARACTER.«, t00=0x0001, t01=0x0164}
0x031c…0326 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0190}
0x0326…035a Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS: «, t00=0x0002, t01=0x000a}
0x035a…0364 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003e}
0x0364…038c Head {h00=0x0024, h01=0x0050, text=»* A C M S : ACTIVATION PART«, t00=0x0002, t01=0x0048}
0x038c…03b4 Head {h00=0x0024, h01=0x0050, text=»* ORDER PROCESSOR«, t00=0x0002, t01=0x0070}
0x03b4…03de Head {h00=0x0026, h01=0x0050, text=»* I H M S : INTERRUPT HANDLER«, t00=0x0002, t01=0x0098}
0x03de…0408 Head {h00=0x0026, h01=0x0050, text=»* O N M S : RECOVERY ROUTINE «, t00=0x0002, t01=0x00c2}
0x0408…0412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ec}
0x0412…041c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00f6}
0x041c…0434 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0002, t01=0x0100}
0x0434…043e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0118}
0x043e…046a Head {h00=0x0028, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0002, t01=0x0122}
0x046a…0474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x014e}
0x0474…0490 Head {h00=0x0018, h01=0x0050, text=»* 06 WRITE CARD «, t00=0x0002, t01=0x0158}
0x0490…04aa Head {h00=0x0016, h01=0x0050, text=»* 0A READ CARD«, t00=0x0002, t01=0x0174}
0x04aa…04c6 Head {h00=0x0018, h01=0x0050, text=»* 11 INSERT CARD«, t00=0x0002, t01=0x018e}
0x04c6…04e8 Head {h00=0x001e, h01=0x0050, text=»* 26 END OF OPERATION «, t00=0x0003, t01=0x001a}
0x04e8…04f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x003c}
0x04f2…0520 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING RETURN CODE IS USED:«, t00=0x0003, t01=0x0046}
0x0520…052a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0074}
0x052a…054c Head {h00=0x001e, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x0003, t01=0x007e}
0x054c…0568 Head {h00=0x0018, h01=0x0050, text=»* 7 NO DATA«, t00=0x0003, t01=0x00a0}
0x0568…058a Head {h00=0x001e, h01=0x0050, text=»* 10 CARD MISSING «, t00=0x0003, t01=0x00bc}
0x058a…05b0 Head {h00=0x0022, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x0003, t01=0x00de}
0x05b0…05de Head {h00=0x002a, h01=0x0050, text=»* 13 NEGATIVE ACKNOWLEDGEMENT «, t00=0x0003, t01=0x0104}
0x05de…0604 Head {h00=0x0022, h01=0x0050, text=»* 14 THROUGHPUT ERROR «, t00=0x0003, t01=0x0132}
0x0604…0626 Head {h00=0x001e, h01=0x0050, text=»* 15 NOT OPERABEL «, t00=0x0003, t01=0x0158}
0x0626…0630 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x017a}
0x0630…063a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0184}
0x063a…065e Head {h00=0x0020, h01=0x0050, text=»* NORMAL USE OF REGISTERS:«, t00=0x0003, t01=0x018e}
0x065e…0668 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0022}
0x0668…068e Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 RETURN CODE«, t00=0x0004, t01=0x002c}
0x068e…06c0 Head {h00=0x002e, h01=0x0050, text=»* A2 INPUT/OUTPUT CHARACTER «, t00=0x0004, t01=0x0052}
0x06c0…06e8 Head {h00=0x0024, h01=0x0050, text=»* A3 BUFFER INDEX «, t00=0x0004, t01=0x0084}
0x06e8…0700 Head {h00=0x0014, h01=0x0050, text=»* A4«, t00=0x0004, t01=0x00ac}
0x0700…072e Head {h00=0x002a, h01=0x0050, text=»* A5 STACK BASE POINTER «, t00=0x0004, t01=0x00c4}
0x072e…0754 Head {h00=0x0022, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0004, t01=0x00f2}
0x0754…0774 Head {h00=0x001c, h01=0x0050, text=»* A7 ORDER«, t00=0x0004, t01=0x0118}
0x0774…079a Head {h00=0x0022, h01=0x0050, text=»* A8 ECB ADDRESS«, t00=0x0004, t01=0x0138}
0x079a…07b2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMSO1 «, t00=0x0004, t01=0x015e}
0x07b2…07bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0176}
0x07bc…07d0 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0004, t01=0x0180}
0x07d0…07e4 (5, 0, 400) Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x0004}
0x07e4…07f8 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x0018}
0x07f8…0802 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x002c}
0x0802…0824 Head {h00=0x001e, h01=0x0050, text=» ENTRY MSAD ADDRESS BLOCK «, t00=0x0005, t01=0x0036}
0x0824…082e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0058}
0x082e…0844 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0062}
0x0844…085a Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x0078}
0x085a…0870 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x008e}
0x0870…087a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a4}
0x087a…08b0 Head {h00=0x0032, h01=0x0050, text=» EXTRN SAVE8 SAVE REGISTER A1-A8 ON A15 STACK «, t00=0x0005, t01=0x00ae}
0x08b0…08ea Head {h00=0x0036, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCHER «, t00=0x0005, t01=0x00e4}
0x08ea…0926 Head {h00=0x0038, h01=0x0050, text=» EXTRN LDREG LOAD REGISTER AND RETURN TO USER VIA A5«, t00=0x0005, t01=0x011e}
0x0926…0958 Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0005, t01=0x015a}
0x0958…098e Head {h00=0x0032, h01=0x0050, text=» EXTRN DISIOE DISPATCH END I/O, REQUEST ERROR «, t00=0x0005, t01=0x018c}
0x098e…09c4 Head {h00=0x0032, h01=0x0050, text=» EXTRN GETCHR GET NEXT CHARACTER IN ECB-BUFFER«, t00=0x0006, t01=0x0032}
0x09c4…09ee Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0006, t01=0x0068}
0x09ee…0a14 Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x0006, t01=0x0092}
0x0a14…0a3c Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTST DWT SOFTWARE STATUS«, t00=0x0006, t01=0x00b8}
0x0a3c…0a56 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0006, t01=0x00e0}
0x0a56…0a78 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0006, t01=0x00fa}
0x0a78…0a90 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0006, t01=0x011c}
0x0a90…0a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0134}
0x0a9a…0aba Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x013e}
0x0aba…0ada Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0006, t01=0x015e}
0x0ada…0afa Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0006, t01=0x017e}
0x0afa…0b04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000e}
0x0b04…0b1c Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0007, t01=0x0018}
0x0b1c…0b26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0030}
0x0b26…0b3c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x003a}
0x0b3c…0b52 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0007, t01=0x0050}
0x0b52…0b68 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0007, t01=0x0066}
0x0b68…0b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b72…0b9e Head {h00=0x0028, h01=0x0050, text=»CRWSTX EQU /3B CARD START CHARACTER «, t00=0x0007, t01=0x0086}
0x0b9e…0bc8 Head {h00=0x0026, h01=0x0050, text=»CRWETX EQU /3F CARD END CHARACTER «, t00=0x0007, t01=0x00b2}
0x0bc8…0bea Head {h00=0x001e, h01=0x0050, text=»RTRIES EQU 2 NO OF RETRIES«, t00=0x0007, t01=0x00dc}
0x0bea…0bf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fe}
0x0bf4…0c10 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0108}
0x0c10…0c2c Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0007, t01=0x0124}
0x0c2c…0c48 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0007, t01=0x0140}
0x0c48…0c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x015c}
0x0c52…0c74 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0007, t01=0x0166}
0x0c74…0c9e Head {h00=0x0026, h01=0x0050, text=»DWTSB2 EQU /1E STACK BASE POINTER «, t00=0x0007, t01=0x0188}
0x0c9e…0cb4 Head {h00=0x0012, h01=0x0050, text=»DWTA4 EQU /14 «, t00=0x0008, t01=0x0022}
0x0cb4…0cda Head {h00=0x0022, h01=0x0050, text=»DWTLRC EQU /26 LRC-ACCUMULATOR«, t00=0x0008, t01=0x0038}
0x0cda…0ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x005e}
0x0ce4…0d00 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x0068}
0x0d00…0d1c Head {h00=0x0018, h01=0x0050, text=»* ECB-DISPLACEMENT *«, t00=0x0008, t01=0x0084}
0x0d1c…0d38 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x0008, t01=0x00a0}
0x0d38…0d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00bc}
0x0d42…0d64 Head {h00=0x001e, h01=0x0050, text=»ECBBA EQU 2 BUFFER ADDRESS«, t00=0x0008, t01=0x00c6}
0x0d64…0d88 Head {h00=0x0020, h01=0x0050, text=»ECBRL EQU 4 REQUESTED LENGTH«, t00=0x0008, t01=0x00e8}
0x0d88…0dac Head {h00=0x0020, h01=0x0050, text=»ECBEL EQU 6 EFFECTIVE LENGTH«, t00=0x0008, t01=0x010c}
0x0dac…0dcc Head {h00=0x001c, h01=0x0050, text=»ECBRC EQU 8 RETURN CODE «, t00=0x0008, t01=0x0130}
0x0dcc…0dee Head {h00=0x001e, h01=0x0050, text=»ECBCW EQU 10 CONTROL WORD «, t00=0x0008, t01=0x0150}
0x0dee…0e06 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0008, t01=0x0172}
0x0e06…0e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e10…0e22 (9, 0, 400) Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0004}
0x0e22…0e34 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0009, t01=0x0016}
0x0e34…0e46 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0009, t01=0x0028}
0x0e46…0e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003a}
0x0e50…0e62 Head {h00=0x000e, h01=0x0050, text=»MSAD EQU *«, t00=0x0009, t01=0x0044}
0x0e62…0e86 Head {h00=0x0020, h01=0x0050, text=» DATA ACMS ACTIVATION DRIVER«, t00=0x0009, t01=0x0056}
0x0e86…0eaa Head {h00=0x0020, h01=0x0050, text=» DATA IHMS INTERRUPT HANDLER«, t00=0x0009, t01=0x007a}
0x0eaa…0ece Head {h00=0x0020, h01=0x0050, text=» DATA RCMS RECOVERY ROUTINE «, t00=0x0009, t01=0x009e}
0x0ece…0ed8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00c2}
0x0ed8…0ee2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00cc}
0x0ee2…0f00 Head {h00=0x001a, h01=0x0050, text=»TAB EQU * ORDER TABLE «, t00=0x0009, t01=0x00d6}
0x0f00…0f1a Head {h00=0x0016, h01=0x0050, text=» DATA /060A,/1126 «, t00=0x0009, t01=0x00f4}
0x0f1a…0f30 Head {h00=0x0012, h01=0x0050, text=»TABL EQU *-TAB«, t00=0x0009, t01=0x010e}
0x0f30…0f3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0124}
0x0f3a…0f66 Head {h00=0x0028, h01=0x0050, text=»MSFUN EQU * MAGNETIC STRIPE FUNCTION«, t00=0x0009, t01=0x012e}
0x0f66…0f86 Head {h00=0x001c, h01=0x0050, text=» DATA WRITE,READ,INSERT «, t00=0x0009, t01=0x015a}
0x0f86…0f9a Head {h00=0x0010, h01=0x0050, text=» DATA ENDOP «, t00=0x0009, t01=0x017a}
0x0f9a…0fb2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0009, t01=0x018e}
0x0fb2…0fbc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0016}
0x0fbc…0fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0020}
0x0fc6…0fda Head {h00=0x0010, h01=0x0050, text=»* A C M S «, t00=0x000a, t01=0x002a}
0x0fda…0fe4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003e}
0x0fe4…101a Head {h00=0x0032, h01=0x0050, text=»* ACTIVATION PART: CHECKS VALIDITY OF ORDERS«, t00=0x000a, t01=0x0048}
0x101a…104e Head {h00=0x0030, h01=0x0050, text=»* AND STARTS PROCESSING. «, t00=0x000a, t01=0x007e}
0x104e…1058 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00b2}
0x1058…1062 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00bc}
0x1062…1074 Head {h00=0x000e, h01=0x0050, text=»ACMS EQU *«, t00=0x000a, t01=0x00c6}
0x1074…108a Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x000a, t01=0x00d8}
0x108a…10be Head {h00=0x0030, h01=0x0050, text=»ACMS10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER «, t00=0x000a, t01=0x00ee}
0x10be…10e0 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACMS20 VALID ORDER «, t00=0x000a, t01=0x0122}
0x10e0…10f2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x000a, t01=0x0144}
0x10f2…1112 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACMS10 TRY NEXT «, t00=0x000a, t01=0x0156}
0x1112…111c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0176}
0x111c…1126 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0180}
0x1126…115e Head {h00=0x0034, h01=0x0050, text=»MSERR ABL DISIOE DISPATCH END I/O,REQUEST ERROR «, t00=0x000a, t01=0x018a}
0x115e…1168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0032}
0x1168…117c Head {h00=0x0010, h01=0x0050, text=»ACMS20 EQU *«, t00=0x000b, t01=0x003c}
0x117c…1198 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A4 GET INDEX«, t00=0x000b, t01=0x0050}
0x1198…11ce Head {h00=0x0032, h01=0x0050, text=» ABI MSFUN,A4 BRANCH TO VALID FUNCTION MODULE «, t00=0x000b, t01=0x006c}
0x11ce…11e6 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x000b, t01=0x00a2}
0x11e6…11f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00ba}
0x11f0…120e Head {h00=0x001a, h01=0x0050, text=»* INSERT CARD /11 «, t00=0x000b, t01=0x00c4}
0x120e…1218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e2}
0x1218…122c Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x000b, t01=0x00ec}
0x122c…1252 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/0C CHAR DOC. INSERTED«, t00=0x000b, t01=0x0100}
0x1252…1266 Head {h00=0x0010, h01=0x0050, text=»INSE02 EQU *«, t00=0x000b, t01=0x0126}
0x1266…128e Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTBC,A6 GET BYTE COUNTER«, t00=0x000b, t01=0x013a}
0x128e…12a2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x000b, t01=0x0162}
0x12a2…12b8 Head {h00=0x0012, h01=0x0050, text=» RF(NE) INSE10«, t00=0x000b, t01=0x0176}
0x12b8…12cc Head {h00=0x0010, h01=0x0050, text=»INSE05 EQU *«, t00=0x000b, t01=0x018c}
0x12cc…12ee Head {h00=0x001e, h01=0x0050, text=» LDK A2,/01 GENERAL RESET «, t00=0x000c, t01=0x0010}
0x12ee…130c Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x000c, t01=0x0032}
0x130c…133a Head {h00=0x002a, h01=0x0050, text=» CF A5,STREG WAIT FOR MESSAGE FROM MSU«, t00=0x000c, t01=0x0050}
0x133a…136c Head {h00=0x002e, h01=0x0050, text=»INSE10 CWR A2,A4 DOCUMENT INSERTED/ESCAPED«, t00=0x000c, t01=0x007e}
0x136c…1386 Head {h00=0x0016, h01=0x0050, text=» RB(NE) INSE05 NO «, t00=0x000c, t01=0x00b0}
0x1386…13a4 Head {h00=0x001a, h01=0x0050, text=» SC A4,DWTST+1,A6 YES «, t00=0x000c, t01=0x00ca}
0x13a4…13bc Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x000c, t01=0x00e8}
0x13bc…13c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0100}
0x13c6…13ee Head {h00=0x0024, h01=0x0050, text=»* END OF INPUT/OUTPUT REQUEST «, t00=0x000c, t01=0x010a}
0x13ee…13f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0132}
0x13f8…140c Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x000c, t01=0x013c}
0x140c…1420 Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x000c, t01=0x0150}
0x1420…1438 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x000c, t01=0x0164}
0x1438…1442 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x017c}
0x1442…145e Head {h00=0x0018, h01=0x0050, text=»* READ CARD /0A «, t00=0x000c, t01=0x0186}
0x145e…1468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0012}
0x1468…147a Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x000d, t01=0x001c}
0x147a…14a2 Head {h00=0x0024, h01=0x0050, text=» LDK A4,RTRIES SET NO OF RETRIES«, t00=0x000d, t01=0x002e}
0x14a2…14ca Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTBC,A6 GET BYTE COUNTER«, t00=0x000d, t01=0x0056}
0x14ca…14de Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x000d, t01=0x007e}
0x14de…1504 Head {h00=0x0022, h01=0x0050, text=» SUK A2,/0C DOCUMENT INSERTED «, t00=0x000d, t01=0x0092}
0x1504…151e Head {h00=0x0016, h01=0x0050, text=» RF(NE) WRIT02 NO «, t00=0x000d, t01=0x00b8}
0x151e…1532 Head {h00=0x0010, h01=0x0050, text=»READ02 EQU *«, t00=0x000d, t01=0x00d2}
0x1532…1556 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x000d, t01=0x00e6}
0x1556…157e Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBCW,A8 GET TRACK NUMBER«, t00=0x000d, t01=0x010a}
0x157e…1590 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x000d, t01=0x0132}
0x1590…15ae Head {h00=0x001a, h01=0x0050, text=» RB(N) MSERR TRACK < 2«, t00=0x000d, t01=0x0144}
0x15ae…15c0 Head {h00=0x000e, h01=0x0050, text=» CWK A2,1 «, t00=0x000d, t01=0x0162}
0x15c0…15de Head {h00=0x001a, h01=0x0050, text=» RB(G) MSERR TRACK > 3«, t00=0x000d, t01=0x0174}
0x15de…1608 (14, 0, 400) Head {h00=0x0026, h01=0x0050, text=» ADK A2,/A COMPUTE TRACK TO SELECT«, t00=0x000e, t01=0x0004}
0x1608…1642 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT SEND READ TRACK COMMAND (/0A OR /0B)«, t00=0x000e, t01=0x002e}
0x1642…166e Head {h00=0x0028, h01=0x0050, text=» CM DWTLRC,A6 CLEAR LRC-ACKUMULATOR «, t00=0x000e, t01=0x0068}
0x166e…1682 Head {h00=0x0010, h01=0x0050, text=»READ05 EQU *«, t00=0x000e, t01=0x0094}
0x1682…16ac Head {h00=0x0026, h01=0x0050, text=» CF A5,STREG WAIT FOR DATA INPUTS «, t00=0x000e, t01=0x00a8}
0x16ac…16be Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x000e, t01=0x00d2}
0x16be…16e4 Head {h00=0x0022, h01=0x0050, text=» SUK A7,4 OPERATION INCORRECT «, t00=0x000e, t01=0x00e4}
0x16e4…16fe Head {h00=0x0016, h01=0x0050, text=» RF(NE) READ07 NO «, t00=0x000e, t01=0x010a}
0x16fe…1724 Head {h00=0x0022, h01=0x0050, text=» SUK A4,1 COUNT NO OF RETRIES «, t00=0x000e, t01=0x0124}
0x1724…1744 Head {h00=0x001c, h01=0x0050, text=» RB(NZ) READ02 TRY AGAIN«, t00=0x000e, t01=0x014a}
0x1744…1774 Head {h00=0x002c, h01=0x0050, text=»READ06 LDK A1,4 NEGATIVE ACKNOWLEDGEMENT«, t00=0x000e, t01=0x016a}
0x1774…178c Head {h00=0x0014, h01=0x0050, text=»ENDIO1 RB ENDIO «, t00=0x000f, t01=0x000a}
0x178c…17b6 Head {h00=0x0026, h01=0x0050, text=»READ07 SUK A7,2 OPERATION CORRECT?«, t00=0x000f, t01=0x0022}
0x17b6…17ce Head {h00=0x0014, h01=0x0050, text=» RB(E) ENDIO YES«, t00=0x000f, t01=0x004c}
0x17ce…17e0 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x000f, t01=0x0064}
0x17e0…17fe Head {h00=0x001a, h01=0x0050, text=» RF(E) READ60 NO DATA «, t00=0x000f, t01=0x0076}
0x17fe…1820 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 FIRST CHARACTER«, t00=0x000f, t01=0x0094}
0x1820…1848 Head {h00=0x0024, h01=0x0050, text=» RF(N) READ40 NO; LRC-CHARACTER «, t00=0x000f, t01=0x00b6}
0x1848…186e Head {h00=0x0022, h01=0x0050, text=» RF(NE) READ10 NO; DATA INPUT «, t00=0x000f, t01=0x00de}
0x186e…1882 Head {h00=0x0010, h01=0x0050, text=» ADK A3,/80 «, t00=0x000f, t01=0x0104}
0x1882…18a8 Head {h00=0x0022, h01=0x0050, text=» CWK A2,CRWSTX START CHARACTER«, t00=0x000f, t01=0x0118}
0x18a8…18c2 Head {h00=0x0016, h01=0x0050, text=» RF(E) READ25 YES «, t00=0x000f, t01=0x013e}
0x18c2…18e4 Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 THROUGHPUT ERROR«, t00=0x000f, t01=0x0158}
0x18e4…18fe Head {h00=0x0016, h01=0x0050, text=» RB ENDIO1 END I/O«, t00=0x000f, t01=0x017a}
0x18fe…192a (16, 0, 398) Head {h00=0x0028, h01=0x0050, text=»READ10 ANK A3,/7F MASK BUFFER INDEX «, t00=0x0010, t01=0x0004}
0x192a…194e Head {h00=0x0020, h01=0x0050, text=» CWK A2,CRWETX END CHARACTER«, t00=0x0010, t01=0x0030}
0x194e…1968 Head {h00=0x0016, h01=0x0050, text=» RF(NE) READ20 NO «, t00=0x0010, t01=0x0054}
0x1968…199c Head {h00=0x0030, h01=0x0050, text=» ST A3,ECBEL,A8 YES; STORE EFFECITVE LENGTH «, t00=0x0010, t01=0x006e}
0x199c…19be Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x0010, t01=0x00a2}
0x19be…19d0 Head {h00=0x000e, h01=0x0050, text=» RF READ25«, t00=0x0010, t01=0x00c4}
0x19d0…19e4 Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x0010, t01=0x00d6}
0x19e4…1a12 Head {h00=0x002a, h01=0x0050, text=» CF A15,STORE STORE CHAR IN ECB-BUFFER«, t00=0x0010, t01=0x00ea}
0x1a12…1a42 Head {h00=0x002c, h01=0x0050, text=» CW A3,ECBRL,A8 EFF.LENGTH = REQ.LENGTH «, t00=0x0010, t01=0x0118}
0x1a42…1a5a Head {h00=0x0014, h01=0x0050, text=» RF(G) READ50 NO«, t00=0x0010, t01=0x0148}
0x1a5a…1a90 Head {h00=0x0032, h01=0x0050, text=»READ25 XRS A2,DWTLRC,A6 UPDATE LRC ACKUMULATOR«, t00=0x0010, t01=0x0160}
0x1a90…1ac0 Head {h00=0x002c, h01=0x0050, text=» CF A15,CDCHK CHECK IF CODE CHECK ERROR«, t00=0x0011, t01=0x0008}
0x1ac0…1ad2 Head {h00=0x000e, h01=0x0050, text=» RB READ05«, t00=0x0011, t01=0x0038}
0x1ad2…1afa Head {h00=0x0024, h01=0x0050, text=»READ40 XR A2,DWTLRC,A6 CHECK LRC«, t00=0x0011, t01=0x004a}
0x1afa…1b1a Head {h00=0x001c, h01=0x0050, text=» ANK A2,/F MASK LRC-SUM «, t00=0x0011, t01=0x0072}
0x1b1a…1b3c Head {h00=0x001e, h01=0x0050, text=» RB(E) READ05 LRC CORRECT «, t00=0x0011, t01=0x0092}
0x1b3c…1b4e Head {h00=0x000e, h01=0x0050, text=» RB READ06«, t00=0x0011, t01=0x00b4}
0x1b4e…1b76 Head {h00=0x0024, h01=0x0050, text=»READ50 LDK A1,8 INCORRECT LENGTH«, t00=0x0011, t01=0x00c6}
0x1b76…1ba4 Head {h00=0x002a, h01=0x0050, text=» ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH«, t00=0x0011, t01=0x00ee}
0x1ba4…1bb6 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO1«, t00=0x0011, t01=0x011c}
0x1bb6…1bda Head {h00=0x0020, h01=0x0050, text=»READ60 LDKL A1,/100 NO DATA «, t00=0x0011, t01=0x012e}
0x1bda…1bec Head {h00=0x000e, h01=0x0050, text=» RB ENDIO1«, t00=0x0011, t01=0x0152}
0x1bec…1c04 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0011, t01=0x0164}
0x1c04…1c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x017c}
0x1c0e…1c2a Head {h00=0x0018, h01=0x0050, text=»* WRITE CARD /06«, t00=0x0011, t01=0x0186}
0x1c2a…1c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0012}
0x1c34…1c48 Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x0012, t01=0x001c}
0x1c48…1c70 Head {h00=0x0024, h01=0x0050, text=» LDK A4,RTRIES SET NO OF RTRIES «, t00=0x0012, t01=0x0030}
0x1c70…1c98 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTBC,A6 GET BYTE COUNTER«, t00=0x0012, t01=0x0058}
0x1c98…1cac Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0012, t01=0x0080}
0x1cac…1cd2 Head {h00=0x0022, h01=0x0050, text=» SUK A2,/0C DOCUMENT INSERTED «, t00=0x0012, t01=0x0094}
0x1cd2…1cec Head {h00=0x0016, h01=0x0050, text=» RF(E) WRIT05 YES «, t00=0x0012, t01=0x00ba}
0x1cec…1d12 Head {h00=0x0022, h01=0x0050, text=»WRIT02 LDK A1,/20 CARD MISSING«, t00=0x0012, t01=0x00d4}
0x1d12…1d2a Head {h00=0x0014, h01=0x0050, text=»ENDIO2 RB ENDIO «, t00=0x0012, t01=0x00fa}
0x1d2a…1d3e Head {h00=0x0010, h01=0x0050, text=»WRIT05 EQU *«, t00=0x0012, t01=0x0112}
0x1d3e…1d62 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0012, t01=0x0126}
0x1d62…1d8e Head {h00=0x0028, h01=0x0050, text=» CM DWTLRC,A6 CLEAR LRC-ACKUMULATOR «, t00=0x0012, t01=0x014a}
0x1d8e…1dba Head {h00=0x0028, h01=0x0050, text=» LDK A2,CRWSTX CARD START CHARACTER «, t00=0x0012, t01=0x0176}
0x1dba…1dce Head {h00=0x0010, h01=0x0050, text=»WRIT10 EQU *«, t00=0x0013, t01=0x0012}
0x1dce…1dfe Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLRC,A6 UPDATE LRC-ACKUMULATOR«, t00=0x0013, t01=0x0026}
0x1dfe…1e22 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0013, t01=0x0056}
0x1e22…1e5c Head {h00=0x0036, h01=0x0050, text=»WRIT15 CF A15,GETCHR GET NEXT CHAR FROM ECB-BUFFER«, t00=0x0013, t01=0x007a}
0x1e5c…1e7e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER «, t00=0x0013, t01=0x00b4}
0x1e7e…1e98 Head {h00=0x0016, h01=0x0050, text=» RF(E) WRIT20 YES «, t00=0x0013, t01=0x00d6}
0x1e98…1eba Head {h00=0x001e, h01=0x0050, text=» CF A15,CDCHK VALID CODE? «, t00=0x0013, t01=0x00f0}
0x1eba…1ecc Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0013, t01=0x0112}
0x1ecc…1ee6 Head {h00=0x0016, h01=0x0050, text=» RB(Z) WRIT10 YES «, t00=0x0013, t01=0x0124}
0x1ee6…1ef8 Head {h00=0x000e, h01=0x0050, text=» RB WRIT15«, t00=0x0013, t01=0x013e}
0x1ef8…1f0c Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0013, t01=0x0150}
0x1f0c…1f36 Head {h00=0x0026, h01=0x0050, text=» LDK A2,CRWETX CARD END CHARACTER «, t00=0x0013, t01=0x0164}
0x1f36…1f5a Head {h00=0x0020, h01=0x0050, text=» XRS A2,DWTLRC,A6 UPDATE LRC«, t00=0x0013, t01=0x018e}
0x1f5a…1f7e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0014, t01=0x0022}
0x1f7e…1fa4 Head {h00=0x0022, h01=0x0050, text=» XR A2,DWTLRC,A6 LRC-CHARACTER«, t00=0x0014, t01=0x0046}
0x1fa4…1fc0 Head {h00=0x0018, h01=0x0050, text=» ORK A2,/30 SET ZONE«, t00=0x0014, t01=0x006c}
0x1fc0…1fe8 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND LRC-CHARACTER«, t00=0x0014, t01=0x0088}
0x1fe8…201a Head {h00=0x002e, h01=0x0050, text=»WRIT25 CF A5,STREG WAIT FOR STATUS MESSAGE«, t00=0x0014, t01=0x00b0}
0x201a…2024 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x00e2}
0x2024…2036 Head {h00=0x000e, h01=0x0050, text=» LDR A7,A2«, t00=0x0014, t01=0x00ec}
0x2036…205e Head {h00=0x0024, h01=0x0050, text=» SUK A7,4 OPERATION INCORRECT ? «, t00=0x0014, t01=0x00fe}
0x205e…2078 Head {h00=0x0016, h01=0x0050, text=» RF(NE) WRIT30 NO «, t00=0x0014, t01=0x0126}
0x2078…208a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0014, t01=0x0140}
0x208a…20aa Head {h00=0x001c, h01=0x0050, text=» RB(NZ) WRIT05 TRY AGAIN«, t00=0x0014, t01=0x0152}
0x20aa…20da Head {h00=0x002c, h01=0x0050, text=»WRIT27 LDK A1,4 NEGATIVE ACKNOWLEDGEMENT«, t00=0x0014, t01=0x0172}
0x20da…20ec Head {h00=0x000e, h01=0x0050, text=» RB ENDIO2«, t00=0x0015, t01=0x0012}
0x20ec…2118 Head {h00=0x0028, h01=0x0050, text=»WRIT30 SUK A7,2 OPERATION CORRECT ? «, t00=0x0015, t01=0x0024}
0x2118…2132 Head {h00=0x0016, h01=0x0050, text=» RB(Z) ENDIO2 YES «, t00=0x0015, t01=0x0050}
0x2132…2144 Head {h00=0x000e, h01=0x0050, text=» SUK A7,2 «, t00=0x0015, t01=0x006a}
0x2144…2170 Head {h00=0x0028, h01=0x0050, text=» RB(E) WRIT27 NO DATA AT READ CHECK «, t00=0x0015, t01=0x007c}
0x2170…2182 Head {h00=0x000e, h01=0x0050, text=» RB WRIT25«, t00=0x0015, t01=0x00a8}
0x2182…219a Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0015, t01=0x00ba}
0x219a…21a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00d2}
0x21a4…21c6 Head {h00=0x001e, h01=0x0050, text=»* END OF OPERATION /26«, t00=0x0015, t01=0x00dc}
0x21c6…21d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fe}
0x21d0…21e4 Head {h00=0x0010, h01=0x0050, text=»ENDOP EQU * «, t00=0x0015, t01=0x0108}
0x21e4…2206 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/01 GENERAL RESET «, t00=0x0015, t01=0x011c}
0x2206…222a Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0015, t01=0x013e}
0x222a…224e Head {h00=0x0020, h01=0x0050, text=» LDK A4,/0D DOCUMENT ESCAPED«, t00=0x0015, t01=0x0162}
0x224e…2276 Head {h00=0x0024, h01=0x0050, text=» LC A2,DWTBC,A6 GET BYTE COUNTER«, t00=0x0015, t01=0x0186}
0x2276…228a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0016, t01=0x001e}
0x228a…22a0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) END10 «, t00=0x0016, t01=0x0032}
0x22a0…22d4 Head {h00=0x0030, h01=0x0050, text=»END05 CF A5,STREG WAIT FOR MESSAGE FROM MSU «, t00=0x0016, t01=0x0048}
0x22d4…22fe Head {h00=0x0026, h01=0x0050, text=»END10 CWR A2,A4 DOCUMENT ESCAPED? «, t00=0x0016, t01=0x007c}
0x22fe…2316 Head {h00=0x0014, h01=0x0050, text=» RB(NE) END05 NO«, t00=0x0016, t01=0x00a6}
0x2316…234c Head {h00=0x0032, h01=0x0050, text=» SC A4,DWTST+1,A6 CHAR TO BYTE COUNTER IN DWT «, t00=0x0016, t01=0x00be}
0x234c…2364 Head {h00=0x0014, h01=0x0050, text=»ENDIO3 RB ENDIO2«, t00=0x0016, t01=0x00f4}
0x2364…237c Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0016, t01=0x010c}
0x237c…2386 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0124}
0x2386…239a Head {h00=0x0010, h01=0x0050, text=»* I H M S «, t00=0x0016, t01=0x012e}
0x239a…23a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0142}
0x23a4…23c2 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER «, t00=0x0016, t01=0x014c}
0x23c2…23cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x016a}
0x23cc…23d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0174}
0x23d6…23e8 Head {h00=0x000e, h01=0x0050, text=»IHMS EQU *«, t00=0x0016, t01=0x017e}
0x23e8…23fc Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0016, t01=0x0190}
0x23fc…2424 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTST,A6 GET STATUS WORD «, t00=0x0017, t01=0x0014}
0x2424…2440 Head {h00=0x0018, h01=0x0050, text=» RF(NN) IHM100 BUSY «, t00=0x0017, t01=0x003c}
0x2440…245c Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 SAVE CHAR«, t00=0x0017, t01=0x0058}
0x245c…2482 Head {h00=0x0022, h01=0x0050, text=» SUK A3,/0C DOCUMENT INSERTED «, t00=0x0017, t01=0x0074}
0x2482…2498 Head {h00=0x0012, h01=0x0050, text=» RF(E) IHMS10 «, t00=0x0017, t01=0x009a}
0x2498…24ba Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 DOCUMENT ESCAPED«, t00=0x0017, t01=0x00b0}
0x24ba…24ce Head {h00=0x0010, h01=0x0050, text=» RF(NE) EXIT«, t00=0x0017, t01=0x00d2}
0x24ce…24e2 Head {h00=0x0010, h01=0x0050, text=»IHMS10 EQU *«, t00=0x0017, t01=0x00e6}
0x24e2…250c Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTST+1,A6 SET STATUS WORD «, t00=0x0017, t01=0x00fa}
0x250c…2534 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0017, t01=0x0124}
0x2534…253e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x014c}
0x253e…2556 Head {h00=0x0014, h01=0x0050, text=»* DEVICE BUSY «, t00=0x0017, t01=0x0156}
0x2556…2560 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x016e}
0x2560…2574 Head {h00=0x0010, h01=0x0050, text=»IHM100 EQU *«, t00=0x0017, t01=0x0178}
0x2574…25a2 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHLT/CHRT «, t00=0x0017, t01=0x018c}
0x25a2…25d4 Head {h00=0x002e, h01=0x0050, text=» RB(NE) ENDIO3 YES; INDICATE NOT OPERABEL «, t00=0x0018, t01=0x002a}
0x25d4…25f6 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 OUTPUT ANSWER ?«, t00=0x0018, t01=0x005c}
0x25f6…260e Head {h00=0x0014, h01=0x0050, text=» RF(Z) IHRET YES«, t00=0x0018, t01=0x007e}
0x260e…262e Head {h00=0x001c, h01=0x0050, text=» SUK A7,/11 INSERT CARD «, t00=0x0018, t01=0x0096}
0x262e…2646 Head {h00=0x0014, h01=0x0050, text=» RF(E) IHRET YES«, t00=0x0018, t01=0x00b6}
0x2646…266c Head {h00=0x0022, h01=0x0050, text=» SUK A7,/15 END OF OPERATION? «, t00=0x0018, t01=0x00ce}
0x266c…2680 Head {h00=0x0010, h01=0x0050, text=» RF(E) IHRET«, t00=0x0018, t01=0x00f4}
0x2680…2692 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0018, t01=0x0108}
0x2692…26b8 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/0D DOCUMENT ESCAPED ?«, t00=0x0018, t01=0x011a}
0x26b8…26d2 Head {h00=0x0016, h01=0x0050, text=» RF(E) IHM140 YES «, t00=0x0018, t01=0x0140}
0x26d2…2712 Head {h00=0x003c, h01=0x0050, text=»IHRET ABL LDREG LOAD REG. AND RETURN CALLING SEQ VIA A5 «, t00=0x0018, t01=0x015a}
0x2712…271c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x000a}
0x271c…2736 Head {h00=0x0016, h01=0x0050, text=»IHM140 LDK A4,/0D «, t00=0x0019, t01=0x0014}
0x2736…2762 Head {h00=0x0028, h01=0x0050, text=» SC A4,DWTST+1,A6 UPDATE STATUS WORD«, t00=0x0019, t01=0x002e}
0x2762…2782 Head {h00=0x001c, h01=0x0050, text=» LDK A1,/20 CARD MISSING«, t00=0x0019, t01=0x005a}
0x2782…279a Head {h00=0x0014, h01=0x0050, text=»ENDIO4 RB ENDIO3«, t00=0x0019, t01=0x007a}
0x279a…27b2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x0019, t01=0x0092}
0x27b2…27bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00aa}
0x27bc…27c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00b4}
0x27c6…27da Head {h00=0x0010, h01=0x0050, text=»* R C M S «, t00=0x0019, t01=0x00be}
0x27da…27e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00d2}
0x27e4…2800 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE«, t00=0x0019, t01=0x00dc}
0x2800…280a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f8}
0x280a…2814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0102}
0x2814…2826 Head {h00=0x000e, h01=0x0050, text=»RCMS EQU *«, t00=0x0019, t01=0x010c}
0x2826…2854 Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON A15 STACK «, t00=0x0019, t01=0x011e}
0x2854…2868 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/0D «, t00=0x0019, t01=0x014c}
0x2868…2894 Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTST+1,A6 RESET STATUS WORD «, t00=0x0019, t01=0x0160}
0x2894…28b2 Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTST,A6 BUSY? «, t00=0x0019, t01=0x018c}
0x28b2…28c8 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x001a, t01=0x001a}
0x28c8…28ea Head {h00=0x001e, h01=0x0050, text=» LDK A1,2 THROUGPUT ERROR «, t00=0x001a, t01=0x0030}
0x28ea…28fc Head {h00=0x000e, h01=0x0050, text=» RB ENDIO4«, t00=0x001a, t01=0x0052}
0x28fc…2914 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS01 «, t00=0x001a, t01=0x0064}
0x2914…291e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x007c}
0x291e…2950 Head {h00=0x002e, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE CHARACTER «, t00=0x001a, t01=0x0086}
0x2950…298e Head {h00=0x003a, h01=0x0050, text=»* IN ECB-BUFFER AND INCREMENT BUFFER INDEX. «, t00=0x001a, t01=0x00b8}
0x298e…2998 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00f6}
0x2998…29ac Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x001a, t01=0x0100}
0x29ac…29d2 Head {h00=0x0022, h01=0x0050, text=» LD A7,ECBBA,A8 BUFFER ADDRESS«, t00=0x001a, t01=0x0114}
0x29d2…29f6 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A3 ADD BUFFER INDEX «, t00=0x001a, t01=0x013a}
0x29f6…2a14 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A7 STORE CHAR «, t00=0x001a, t01=0x015e}
0x2a14…2a32 Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 INCR. INDEX «, t00=0x001a, t01=0x017c}
0x2a32…2a42 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x001b, t01=0x000a}
0x2a42…2a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x001a}
0x2a4c…2a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0024}
0x2a56…2a84 Head {h00=0x002a, h01=0x0050, text=»* CDCHK = CHECK IF CODE CHECK ERROR «, t00=0x001b, t01=0x002e}
0x2a84…2a8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x005c}
0x2a8e…2ab0 Head {h00=0x001e, h01=0x0050, text=»* AT ENTRY: A2=CHARACTER«, t00=0x001b, t01=0x0066}
0x2ab0…2ad8 Head {h00=0x0024, h01=0x0050, text=»* AT EXIT: A1=RERURN CODE 0,4 «, t00=0x001b, t01=0x0088}
0x2ad8…2aec Head {h00=0x0010, h01=0x0050, text=»CDCHK EQU * «, t00=0x001b, t01=0x00b0}
0x2aec…2afe Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x001b, t01=0x00c4}
0x2afe…2b1e Head {h00=0x001c, h01=0x0050, text=» SUK A1,/30 VALID CODE? «, t00=0x001b, t01=0x00d6}
0x2b1e…2b36 Head {h00=0x0014, h01=0x0050, text=» RF(N) CDC05 NO «, t00=0x001b, t01=0x00f6}
0x2b36…2b58 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F NUMERIC VALUE? «, t00=0x001b, t01=0x010e}
0x2b58…2b70 Head {h00=0x0014, h01=0x0050, text=» RF(P) CDC05 NO «, t00=0x001b, t01=0x0130}
0x2b70…2b8a Head {h00=0x0016, h01=0x0050, text=» LDK A1,0 SET R.C.«, t00=0x001b, t01=0x0148}
0x2b8a…2b9c Head {h00=0x000e, h01=0x0050, text=» RF CDC10 «, t00=0x001b, t01=0x0162}
0x2b9c…2bbc Head {h00=0x001c, h01=0x0050, text=»CDC05 LDK A1,4 SET R.C. «, t00=0x001b, t01=0x0174}
0x2bbc…2be2 (28, 2, 80) Head {h00=0x0022, h01=0x0050, text=» ORS A1,ECBRC,A8 INSERT IN ECB«, t00=0x001c, t01=0x0004}
0x2be2…2bf8 Head {h00=0x0012, h01=0x0050, text=»CDC10 RTN A15 «, t00=0x001c, t01=0x002a}
0x2bf8…2c04 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x001c, t01=0x0040}
0x2c04…2c08 Head {h00=0x4004, h01=0x0000}
0x2c08…2c0c 00 1c 00 4c ┆ L┆
0x2c0c…2c14 (29, 1, 8) 20 04 00 00 00 1d 00 04 ┆ ┆
0x2c14…2c64 (30, 0, 400) 49 4e 44 49 43 41 54 45 20 54 48 52 4f 55 47 48 50 55 54 20 45 52 52 4f 52 20 00 3d 01 86 00 0e 00 50 5c 52 42 5c 52 43 44 59 31 35 00 3e 00 22 00 26 00 50 52 43 44 59 32 35 5c 4c 44 4b 5c 41 32 2c 53 54 58 5c 53 54 41 52 54 20 4f 46 20 4d ┆INDICATE THROUGHPUT ERROR = P RB RCDY15 > " & PRCDY25 LDK A2,STX START OF M┆
0x2c64…2cb4 45 53 53 41 47 45 00 3e 00 34 00 12 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 20 00 3e 00 5e 00 34 00 50 5c 4c 43 5c 41 34 2c 44 57 54 42 43 2c 41 36 5c 47 45 54 20 4e 55 4d 42 45 52 20 4f 46 20 50 4f 53 49 54 49 4f 4e 53 20 54 4f 20 42 ┆ESSAGE > 4 P CF A5,OUTPUT > ^ 4 P LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO B┆
0x2cb4…2d04 41 43 4b 20 00 3e 00 74 00 10 00 50 5c 41 4e 4b 5c 41 34 2c 2f 46 46 20 00 3e 00 ac 00 12 00 50 5c 52 46 28 45 29 5c 52 43 44 59 33 30 20 00 3e 00 c0 00 2e 00 50 5c 43 46 5c 41 35 2c 42 41 43 43 41 4e 5c 53 45 4e 44 20 42 41 43 4b 53 50 41 ┆ACK > t P ANK A4,/FF > P RF(E) RCDY30 > . P CF A5,BACCAN SEND BACKSPA┆
0x2d04…2d54 43 45 53 20 41 4e 44 20 52 55 42 20 4f 55 54 20 00 3e 00 d6 00 20 00 50 5c 4c 44 4b 5c 41 33 2c 32 5c 53 54 41 52 54 20 42 55 46 46 45 52 20 49 4e 44 45 58 00 3e 01 08 00 16 00 50 52 43 44 59 33 30 5c 41 42 4c 5c 41 43 44 59 39 30 20 00 3e ┆CES AND RUB OUT > P LDK A3,2 START BUFFER INDEX > PRCDY30 ABL ACDY90 >┆
0x2d54…2da4 01 2c 00 0a 00 50 5c 45 4a 45 43 54 00 3e 01 46 00 06 00 50 2a 20 00 3e 01 54 00 14 00 50 2a 20 20 20 20 45 20 43 20 48 20 4f 20 44 20 59 00 3e 01 5e 00 06 00 50 2a 20 00 3e 01 76 00 30 00 50 2a 20 20 20 20 45 43 48 4f 44 59 20 3d 20 44 45 ┆ , P EJECT > F P* > T P* E C H O D Y > ^ P* > v 0 P* ECHODY = DE┆
0x2da4…2dac (31, 0, 8) 08 68 08 70 08 78 0d 98 ┆ h p x ┆
0x2dac…2dfc (32, 0, 400) 00 32 00 50 5c 49 44 45 4e 54 20 44 52 44 49 30 31 20 5c 52 45 4c 20 38 2e 32 20 37 38 2d 30 39 2d 31 35 20 20 38 37 30 31 30 35 39 34 30 39 31 32 20 00 00 00 04 00 04 00 50 00 00 00 3a 00 06 00 50 2a 20 00 00 00 42 00 3c 00 50 2a 2a 2a 2a ┆ 2 P IDENT DRDI01 REL 8.2 78-09-15 870105940912 P : P* B < P****┆
0x2dfc…2e4c 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 00 00 4c 00 06 00 50 2a 20 00 00 00 8c 00 24 00 50 2a 20 20 20 50 48 49 4c 49 50 ┆*************************************************** L P* $ P* PHILIP┆
0x2e4c…2e9c 53 20 54 45 52 4d 49 4e 41 4c 20 53 59 53 54 45 4d 20 50 54 53 20 00 00 00 96 00 06 00 50 2a 20 00 00 00 be 00 2a 00 50 2a 20 20 20 44 52 44 49 30 31 20 3d 20 44 52 49 56 45 52 20 49 4e 44 49 43 41 54 4f 52 20 44 49 53 50 4c 41 59 20 00 00 ┆S TERMINAL SYSTEM PTS P* * P* DRDI01 = DRIVER INDICATOR DISPLAY ┆
0x2e9c…2eec 00 c8 00 06 00 50 2a 20 00 00 00 f6 00 06 00 50 2a 20 00 00 01 00 00 06 00 50 2a 20 00 00 01 0a 00 06 00 50 2a 20 00 00 01 14 00 06 00 50 2a 20 00 00 01 1e 00 06 00 50 2a 20 00 00 01 28 00 3c 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* P* P* P* P* P* ( < P**************┆
0x2eec…2f3c 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 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 00 01 32 00 06 00 50 2a 20 00 00 01 72 00 06 00 50 2a 20 00 00 01 7c 00 3e 00 50 2a 20 20 20 54 48 49 53 20 44 ┆***************************************** 2 P* r P* | > P* THIS D┆
0x2f3c…2f8c (33, 0, 400) 52 49 56 45 52 20 48 41 4e 44 4c 45 53 20 4f 55 54 50 55 54 20 54 4f 20 53 49 47 4e 41 4c 20 44 49 53 50 4c 41 59 53 20 50 54 53 20 36 32 34 31 00 00 01 86 00 3e 00 50 2a 20 20 20 41 4e 44 20 36 32 34 32 2e 20 49 54 20 41 4c 53 4f 20 43 4f ┆RIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 > P* AND 6242. IT ALSO CO┆
0x2f8c…2fdc 4e 54 52 4f 4c 53 20 4c 41 4d 50 53 20 4f 4e 20 4b 45 59 42 4f 41 52 44 53 20 50 54 53 20 36 32 33 32 00 01 00 38 00 22 00 50 2a 20 20 20 36 32 33 33 2c 20 36 32 33 36 20 41 4e 44 20 36 33 33 2c 20 36 32 33 36 31 2e 00 01 00 7a 00 06 00 50 ┆NTROLS LAMPS ON KEYBOARDS PTS 6232 8 " P* 6233, 6236 AND 633, 62361. z P┆
0x2fdc…302c 2a 20 00 01 00 a0 00 40 00 50 2a 20 20 20 54 48 45 53 45 20 44 45 56 49 43 45 53 20 4d 55 53 54 20 42 45 20 43 4f 4e 4e 45 43 54 45 44 20 54 4f 20 43 50 55 20 56 49 41 20 43 48 4c 54 20 4f 52 20 43 48 52 54 20 00 01 00 aa 00 06 00 50 2a 20 ┆* @ P* THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT P* ┆
0x302c…307c 00 01 00 ee 00 06 00 50 2a 20 00 01 00 f8 00 34 00 50 2a 20 20 20 54 48 45 20 44 52 49 56 45 52 20 43 4f 4e 53 49 53 54 53 20 4f 46 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 50 41 52 54 53 3a 20 00 01 01 02 00 06 00 50 2a 20 00 01 01 3a ┆ P* 4 P* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: P* :┆
0x307c…30cc 00 22 00 50 2a 20 20 20 41 20 43 20 44 20 49 20 3a 5c 41 43 54 49 56 41 54 49 4f 4e 20 50 41 52 54 20 00 01 01 44 00 06 00 50 2a 20 00 01 01 6a 00 24 00 50 2a 20 20 20 49 20 48 20 44 20 49 20 3a 5c 49 4e 54 45 52 52 55 50 54 20 48 41 4e 44 ┆ " P* A C D I : ACTIVATION PART D P* j $ P* I H D I : INTERRUPT HAND┆
0x30cc…311c (34, 0, 400) 4c 45 52 20 00 01 01 74 00 06 00 50 2a 20 00 02 00 0c 00 22 00 50 2a 20 20 20 52 20 43 20 44 20 49 20 3a 5c 52 45 43 4f 56 45 52 59 20 52 4f 55 54 49 4e 45 00 02 00 16 00 06 00 50 2a 20 00 02 00 3c 00 06 00 50 2a 20 00 02 00 46 00 2a 00 50 ┆LER t P* " P* R C D I : RECOVERY ROUTINE P* < P* F * P┆
0x311c…316c 2a 20 20 20 54 48 45 20 46 4f 4c 4c 4f 57 49 4e 47 20 4f 52 44 45 52 53 20 41 52 45 20 54 52 45 41 54 45 44 3a 20 00 02 00 50 00 06 00 50 2a 20 00 02 00 7e 00 22 00 50 2a 20 20 20 4f 52 44 45 52 20 30 35 3a 5c 57 52 49 54 45 20 4c 49 47 48 ┆* THE FOLLOWING ORDERS ARE TREATED: P P* ~ " P* ORDER 05: WRITE LIGH┆
0x316c…31bc 54 53 20 4f 4e 20 00 02 00 88 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 30 36 3a 5c 57 52 49 54 45 20 4c 49 47 48 54 53 20 4f 46 46 00 02 00 ae 00 28 00 50 2a 20 20 20 20 20 20 20 20 20 30 37 3a 5c 57 52 49 54 45 20 50 52 4f 47 52 41 4d 20 ┆TS ON " P* 06: WRITE LIGHTS OFF ( P* 07: WRITE PROGRAM ┆
0x31bc…320c 44 49 53 50 4c 41 59 20 00 02 00 d4 00 2c 00 50 2a 20 20 20 20 20 20 20 20 20 33 39 3a 20 20 20 20 20 57 52 49 54 45 20 20 46 4c 41 53 48 49 4e 47 20 4c 49 47 48 54 53 00 02 01 00 00 0a 00 50 5c 45 4a 45 43 54 00 02 01 30 00 06 00 50 2a 20 ┆DISPLAY , P* 39: WRITE FLASHING LIGHTS P EJECT 0 P* ┆
0x320c…325c 00 02 01 3e 00 06 00 50 2a 20 00 02 01 48 00 1e 00 50 2a 20 20 20 4e 4f 52 4d 41 4c 20 52 45 47 49 53 54 45 52 20 55 53 41 47 45 3a 00 02 01 52 00 06 00 50 2a 20 00 02 01 74 00 20 00 50 2a 20 20 20 52 45 47 49 53 54 45 52 20 41 31 3a 5c 52 ┆ > P* H P* NORMAL REGISTER USAGE: R P* t P* REGISTER A1: R┆
0x325c…32ac (35, 0, 400) 45 54 55 52 4e 20 43 4f 44 45 00 02 01 7e 00 1c 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 32 3a 20 20 4f 55 54 50 55 54 00 03 00 12 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 33 3a 5c 57 4f 52 4b 20 52 45 47 49 53 54 45 52 ┆ETURN CODE ~ P* A2: OUTPUT " P* A3: WORK REGISTER┆
0x32ac…32fc 00 03 00 32 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 34 3a 5c 57 4f 52 4b 20 52 45 47 49 53 54 45 52 00 03 00 58 00 22 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 35 3a 5c 57 4f 52 4b 20 52 45 47 49 53 54 45 52 00 03 00 7e ┆ 2 " P* A4: WORK REGISTER X " P* A5: WORK REGISTER ~┆
0x32fc…334c 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 36 3a 5c 44 57 54 2d 41 44 44 52 45 53 53 00 03 00 a4 00 1a 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 20 41 37 3a 5c 4f 52 44 45 52 00 03 00 c8 00 20 00 50 2a 20 20 20 20 20 20 20 20 20 ┆ P* A6: DWT-ADDRESS P* A7: ORDER P* ┆
0x334c…339c 20 20 20 41 38 3a 5c 45 43 42 2d 41 44 44 52 45 53 53 00 03 00 e6 00 06 00 50 2a 20 00 03 01 0a 00 06 00 50 2a 20 00 03 01 14 00 1a 00 50 2a 20 20 20 53 59 53 54 45 4d 20 41 44 41 50 54 41 54 49 4f 4e 20 00 03 01 1e 00 06 00 50 2a 20 00 03 ┆ A8: ECB-ADDRESS P* P* P* SYSTEM ADAPTATION P* ┆
0x339c…33ec 01 3c 00 3a 00 50 2a 20 20 20 44 49 53 50 4c 41 59 20 54 59 50 45 20 4d 55 53 54 20 42 45 20 44 45 46 49 4e 45 44 20 49 4e 20 46 49 52 53 54 20 57 4f 52 44 20 49 4e 20 44 57 54 20 00 03 01 46 00 06 00 50 2a 20 00 03 01 84 00 34 00 50 2a 20 ┆ < : P* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT F P* 4 P* ┆
0x33ec…343c (36, 0, 400) 20 20 42 49 54 20 31 30 20 3d 20 31 20 20 20 49 46 20 50 52 4f 47 52 41 4d 20 44 49 53 50 4c 41 59 20 20 20 28 50 54 53 20 36 32 34 31 29 00 03 01 8e 00 2c 00 50 2a 20 20 20 42 49 54 20 31 31 20 3d 20 31 20 20 20 46 4f 52 20 50 54 53 20 36 ┆ BIT 10 = 1 IF PROGRAM DISPLAY (PTS 6241) , P* BIT 11 = 1 FOR PTS 6┆
0x343c…348c 32 33 32 2c 36 33 33 31 2c 36 32 33 36 20 00 04 00 36 00 2c 00 50 2a 20 20 20 42 49 54 20 31 31 20 3d 20 30 20 20 20 46 4f 52 20 50 54 53 20 36 32 34 31 2c 36 32 34 32 2c 36 32 33 33 20 00 04 00 66 00 06 00 50 2a 20 00 04 00 96 00 3a 00 50 ┆232,6331,6236 6 , P* BIT 11 = 0 FOR PTS 6241,6242,6233 f P* : P┆
0x348c…34dc 2a 20 20 20 4f 52 44 45 52 20 30 37 2c 20 57 52 49 54 45 20 50 52 4f 47 52 41 4d 20 44 49 53 50 4c 41 59 20 4d 41 59 20 42 45 20 45 58 43 4c 55 44 45 44 20 42 59 00 04 00 a0 00 1c 00 50 2a 20 20 20 43 4f 4e 44 49 54 49 4f 4e 41 4c 20 41 53 ┆* ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY P* CONDITIONAL AS┆
0x34dc…352c 53 45 4d 42 4c 59 00 04 00 de 00 06 00 50 2a 20 00 04 00 fe 00 0a 00 50 5c 45 4a 45 43 54 00 04 01 08 00 06 00 50 2a 20 00 04 01 16 00 06 00 50 2a 20 00 04 01 20 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 01 2a 00 14 ┆SEMBLY P* P EJECT P* P* P*************** * ┆
0x352c…357c 00 50 2a 20 20 20 20 45 4e 54 52 49 45 53 20 20 2a 20 00 04 01 42 00 14 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 04 01 5a 00 06 00 50 2a 20 00 04 01 72 00 28 00 50 5c 45 4e 54 52 59 5c 44 49 41 44 5c 41 44 44 52 45 53 53 20 ┆ P* ENTRIES * B P*************** Z P* r ( P ENTRY DIAD ADDRESS ┆