|
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: 20780 (0x512c)
Notes: pts_type(SC)
Names: »DRMS02.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/DRMS02.SC«
IDENT DRMS02 REL 10.0 80-03-14 870105041000 * ************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRMS02 = 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 6266. * 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. * * PIN KEYBOARD IS NOT SUPPORTED BY THIS VERSION OF DRIVER * OFF-LINE TEST IS NOT SUPPORTED BY THIS VERSION OF DRIVER * * 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 DRMS02 * * THE FOLLOWING ORDERS ARE TREATED: * * CREDIT * /06 WRITE CARD WRITE * /0A READ CARD RANDOM READ * /21 OPEN - * /26 END OF OPERATION DSC0 CC=4 * /37 INSERT CARD DSC0 CC=0 * * * THE FOLLOWING RETURN CODE IS USED: * * BIT 0 REQUEST ERROR * 2 CARD MISSING * 10 READ/WRITE WARNING * 12 INCORRECT LENGTH * 13 NEGATIVE ACKNOWLEDGEMENT * 14 THROUGHPUT ERROR * 15 NOT OPERABLE * * * NORMAL USE OF REGISTERS: * * REGISTER A1 RETURN CODE * A2 INPUT/OUTPUT CHARACTER * A3 BUFFER INDEX * A4 RETRY COUNTER * A5 STACK BASE POINTER * A6 DWT ADDRESS * A7 ORDER * A8 ECB ADDRESS * EJECT DRMS02 * *********** * ENTRIES * *********** * ENTRY MSAD ADDRESS BLOCK * ************* * EXTERNALS * ************* * * EXTERNAL ROUTINES 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 * * DWT DISPLACEMENTS EXTRN DWTST DWT SOFTWARE STATUS EXTRN DWTECB ECB-ADDRESS EXTRN DWTOR ORDER EXTRN DWTSB2 STACK BASE * * ECB DISPLACEMENTS EXTRN ECBBA BUFFER ADDRESS EXTRN ECBRL REQUESTED LENGTH EXTRN ECBEL EFFECTIVE LENGTH EXTRN ECBRC RETURN CODE EXTRN ECBCW CONTROL WORD * EJECT DRMS02 * ************************ * CONDITIONAL ASSEMBLY * ************************ * * * A PROGRAM VERSION USING TOSS MMU PAGING * IS OBTAINED BY SETTING MMUPAG EQU 1. * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * * MMU BUFFER SIZE (BYTES) * X:A EQU 108 DVBLEN EQU X:A * EJECT DRMS02 * ************* * CONSTANTS * ************* * * MAGNETIC STRIPE CHARACTERS CRWSTX EQU /3B CARD START CHARACTER CRDSTX EQU /3D START CHAR, GERMAN BOOK (DIN) CRWETX EQU /3F END CHARACTER * * STATUS MESSAGES FROM MSU DOCINS EQU /C DOCUMENT INSERTED DOCESC EQU /E DOCUMENT ESCAPED WRWARN EQU 8 WRITE WARNING RDERR EQU 9 READ ERROR WRERR EQU /A WRITE ERROR WROK EQU /B WRITE OKAY * * COMMANDS TO MSU RESET EQU 2 GENERAL RESET SELTRA EQU 6 SELECT TRACK 2 FOR READ ENCTRA EQU 5 ENCODE TRACK 3 REATRD EQU 8 READ TRACK 3 GERMAN BOOK (DIN) ENCTRD EQU 9 ENCODE TRACK 3 GERMAN BOOK (DIN) * * ORDERS TO DRIVER INCARD EQU /37 INSERT CARD ENOFOP EQU /26 END OF OPERATION * * MISCELLANEOUS RTRIES EQU 2 NUMBER OF RETRIES * EJECT DRMS02 * * RETURN CODES REQERR EQU /8000 REQUEST ERROR WARNRW EQU /20 READ/WRITE WARNING CARMIS EQU /2000 CARD MISSING INCLEN EQU 8 INCORRECT LENGTH NEGACK EQU 4 NEGATIVE ACKNOWLEDGEMENT THRERR EQU 2 THROUGHPUT ERROR NOTOPE EQU 1 NOT OPERABLE * EJECT DRMS02 * ******************** * DWT-DISPLACEMENT * ******************** * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * * DWTFRT EQU START+/14 BIT 0 CREDIT CARD / GERMAN BOOK FLAG * BIT 1-7 NOT USED * BIT 8-15 RETRY COUNTER SAVE AREA DWTLRC EQU START+/16 LRC ACCUMULATOR * EJECT DRMS02 * ********** * TABLES * ********** * DATA DVBLEN MMU BUFFER SIZE DATA 2 MMU DEVICE INDEX MSAD EQU * DATA ACMS ACTIVATION DRIVER DATA 0 ABORT ROUTINE ADDRESS DATA IHMS INTERRUPT HANDLER DATA RCMS RECOVERY ROUTINE * * * TAB EQU * ORDER TABLE DATA /060A,/3726,/2100 TABL EQU *-TAB-1 NUMBER OF ENTRIES * MSFUN EQU * MAGNETIC STRIPE FUNCTION DATA WRITE,READ,INSERT DATA ENDOP,OPEN EJECT DRMS02 * * * 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 DRMS02 * ************************************************** * * OPEN /21 * * THE DRIVER IS SET TO HANDLE EITHER CREDIT * CARDS/AMERICAN PASSBOOKS OR GERMAN PASSBOOKS. * * REGISTER INPUT: * A6 = DWT ADDRESS * A8 = ECB ADDRESS * ************************************************** * OPEN EQU * LD A2,ECBCW,A8 FORMAT CODE RF(NZ) OPEN10 NOT CREDIT CARD / AMERICAN BOOK LDKL A2,/7FFF MASK FOR BIT 0 ANS A2,DWTFRT,A6 CLEAR FORMAT FLAG, INDICATING * CREDIT CARD / AMERICAN BOOK RF OPEN20 EXIT * OPEN10 EQU * SUK A2,1 FORMAT CODE GERMAN PASSBOOK? RB(NZ) MSERR NO, ILLEGAL CODE LDKL A2,/8000 MASK FOR BIT 0 ORS A2,DWTFRT,A6 SET FORMAT FLAG, * INDICATING GERMAN BOOK * OPEN20 EQU * LDK A1,0 RETURN CODE RF ENDIO EXIT * EJECT DRMS02 * ************************************************** * * INSERT CARD /11 * ************************************************** * INSERT EQU * LDK A4,DOCINS CHAR. DOC. INSERTED LC A2,DWTST+1,A6 GET STATUS ANK A2,/FF RF(NE) INSE10 INSE05 EQU * LDK A2,RESET GENERAL RESET CF A5,OUTPUT SEND IT CF A5,STREG WAIT FOR MESSAGE FROM MSU INSE10 CWK A2,DOCESC DOCUMENT ESCAPED ? RB(E) INSE05 YES CWR A2,A4 DOCUMENT INSERTED ? RF(NE) INSE15 NO SC A4,DWTST+1,A6 YES LDK A1,0 RF ENDIO INSE15 LDK A1,THRERR THROUGHPUT ERROR EJECT DRMS02 * * END OF INPUT/OUTPUT REQUEST * ENDIO EQU * ABL DISEND EJECT DRMS02 * ************************************************** * * READ CARD /0A * ************************************************** * READ EQU * LC A2,DWTST+1,A6 GET STATUS ANK A2,/FF SUK A2,DOCINS DOCUMENT INSERTED? RF(NE) WRIT02 NO * * LDK A4,RTRIES NUMBER OF RETRIES READ10 EQU * LDK A3,0 RESET BUFFER INDEX LD A2,DWTFRT,A6 FORMAT CODE RF(N) READ20 GERMAN BOOK * EJECT DRMS02 * * READ CREDIT CARD / AMERICAN PASSBOOK 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,SELTRA COMPUTE TRACK TO SELECT * CF A5,OUTPUT SEND READ TRACK COMMAND (/06 OR /07) * CF A5,REABLK READ ONE DATA BLOCK CWK A1,NEGACK RETURN CODE READ ERROR? RB(NE) ENDIO NO, OK OR INCORRECT LENGTH. EXIT * SUK A4,1 MORE RETRIES? RB(NN) READ10 YES, PERFORM RETRY RB ENDIO NO, EXIT * EJECT DRMS02 * READ20 EQU * * READ GERMAN PASSBOOK LDK A2,REATRD CF A5,OUTPUT SEND "READ GERMAN BOOK" COMMAND * CF A5,REABLK READ FIRST BLOCK CWK A1,INCLEN BUFFER OVERFLOW? RB(E) ENDIO YES, EXIT * SC A4,DWTFRT+1,A6 SAVE RETRY COUNTER LDR A4,A1 SAVE RETURN CODE CF A5,REABLK READ SECOND BLOCK CWK A1,INCLEN BUFFER OVERFLOW? RB(E) ENDIO YES, EXIT * CWR A1,A4 RF(E) READ30 BOTH BLOCKS OK OR BOTH WRONG * * ONE BLOCK WAS OK, ONE WAS ERRONEOUS LDK A1,WARNRW RETURN CODE "READ/WRITE WARNING" RF READ40 CHECK IF MORE RETRIES LEFT * READ30 EQU * * BOTH BLOCKS WERE OK OR BOTH WERE ERRONEOUS LDR A1,A1 BOTH OK? RB(Z) ENDIO YES, EXIT * READ40 EQU * * CHECK IF MORE RETRIES SHOULD BE MADE LC A4,DWTFRT+1,A6 GET RETRY COUNTER ANK A4,/FF CLEAN SUK A4,1 MORE RETRIES? RB(NN) READ10 YES, PERFORM RETRY RB ENDIO NO, EXIT * EJECT DRMS02 * ************************************************** * * READ DATA BLOCK * * ONE DATA BLOCK IS READ FROM THE MSU. READING * IS TERMINATED WHEN READ ERROR MESSAGE IS * RECIEVED, END CHARACTER IS READ OR INPUT * BUFFER IS FULL. * * REGISTER INPUT: * A3 = BYTE INDEX * A5 = LOCAL STACK POINTER * A6 = DWT ADDRESS * A8 = ECB ADDRESS * A15 = SYSTEM STACK POINTER * * REGISTER OUTPUT: * A1 = RETURN CODE * A3 = UPDATED BYTE INDEX * ************************************************** * REABLK EQU * CF A5,STREG FETCH DATA CWK A2,RDERR READ ERROR? RF(E) RB100 YES, EXIT * CWK A2,CRWETX END CHARACTER? RF(E) RB110 YES, EXIT CW A3,ECBRL,A8 BUFFER ALREADY FULL? RF(NL) RB120 YES, EXIT * EJECT DRMS02 * CF A15,CDCHK CHECK IF LEGAL CHAR CF A15,STORE PUT CHAR IN BUFFER RB REABLK READ NEXT CHAR * * * BLOCK TREATED. SET RETURN CODE AND EFFECTIVE LENGTH. * RB100 EQU * LDK A1,NEGACK READ ERROR LD A3,ECBEL,A8 RESET BYTE INDEX RF RB140 EXIT * RB110 EQU * LDK A1,0 NORMAL ENDING RF RB130 EXIT * RB120 EQU * LDK A1,INCLEN BUFFER OVERFLOW * RB130 EQU * ST A3,ECBEL,A8 EFFECTIVE LENGTH TO ECB * RB140 EQU * RTN A5 * EJECT DRMS02 * ************************************************** * * WRITE CARD /06 * ************************************************** * WRITE EQU * LDK A4,RTRIES SET NO OF RTRIES LC A2,DWTST+1,A6 GET STATUS ANK A2,/FF SUK A2,DOCINS DOCUMENT INSERTED? RF(E) WRIT05 YES WRIT02 LDKL A1,CARMIS CARD MISSING ENDIO2 RB ENDIO * * WRIT05 EQU * CM DWTLRC,A6 CLEAR LRC-ACKUMULATOR * * TEST REQUESTED LENGTH AND GET START CHARACTER. * LDK A1,INCLEN SET ERROR CODE JUST IN CASE LD A2,ECBRL,A8 REQUESTED LENGTH LD A3,DWTFRT,A6 FORMAT CODE FLAG RF(N) WRIT07 GERMAN BOOK * EJECT DRMS02 * * CREDIT CARD / AMERICAN PASSBOOK SUK A2,104 RB(P) ENDIO ERROR IF LENGTH > MAX LDK A2,CRWSTX START CHAR CREDIT CARD / AMERICAN BOOK RF WRIT09 CONTINUE * WRIT07 EQU * * GERMAN PASSBOOK SUK A2,45 RB(P) ENDIO ERROR IF LENGTH > MAX LDK A2,CRDSTX START CHAR GERMAN BOOK * WRIT09 EQU * LDK A3,0 RESET BUFFER INDEX * 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 ANY CHARACTERS LEFT? RF(E) WRIT20 NO CF A15,CDCHK VALID CODE? LDR A1,A1 RB(Z) WRIT10 YES RB WRIT15 * EJECT DRMS02 * WRIT20 EQU * LDK A2,CRWETX CARD END CHARACTER XRS A2,DWTLRC,A6 UPDATE LRC CF A5,OUTPUT SEND CHARACTER LD A2,DWTLRC,A6 LRC-CHARACTER ORK A2,/30 SET ZONE CF A5,OUTPUT SEND LRC-CHARACTER * * SEND WRITE TRACK COMMAND LDK A2,ENCTRD ASSUME GERMAN PASSBOOK LD A1,DWTFRT,A6 IS IT GERMAN BOOK? RF(N) WRIT30 YES, CONTINUE LDK A2,ENCTRA NO, SET CREDIT CARD / AMERICAN BOOK * WRIT30 EQU * CF A5,OUTPUT SEND WRITE TRACK COMMAND CF A5,STREG WAIT FOR STATUS MESSAGE LDK A1,0 RETURN CODE OK CWK A2,WROK WAS IT OK? RB(E) ENDIO2 YES, EXIT * SUK A4,1 MORE RETRIES? RB(NN) WRIT05 YES, PERFORM RETRY * LDK A1,NEGACK RETURN CODE NEGATIVE ACK CWK A2,WRERR WAS IT WRITE ERROR? RB(E) ENDIO2 YES, EXIT * LDK A1,WARNRW RETURN CODE READ/WRITE WARNING CWK A2,WRWARN WAS IT WRITE WARNING? RB(E) ENDIO2 YES, EXIT * LDK A1,THRERR ILLEGAL STATUS FROM MSU. THROUGHPUT ERR RB ENDIO2 * EJECT DRMS02 * ************************************************** * * END OF OPERATION /26 * ************************************************** * ENDOP EQU * LDK A4,DOCESC DOCUMENT ESCAPED LC A2,DWTST+1,A6 GET STATUS ANK A2,/FF RF(NE) END10 END05 LDK A2,RESET GENERAL RESET CF A5,OUTPUT SEND CHARACTER CF A5,STREG WAIT FOR MESSAGE FROM MSU END10 CWK A2,DOCINS DOCUMENT INSERTED ? RB(E) END05 YES CWR A2,A4 DOCUMENT ESCAPED ? RF(NE) END15 NO SC A4,DWTST+1,A6 CHAR TO STATUS IN DWT LDK A1,0 RB ENDIO2 END15 LDK A1,THRERR THROUGHPUT ERROR ENDIO3 RB ENDIO2 EJECT DRMS02 * * 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,DOCINS DOCUMENT INSERTED RF(E) IHMS10 ADK A3,DOCINS SUK A3,DOCESC DOCUMENT ESCAPED RF(NE) EXIT IHMS10 EQU * SC A2,DWTST+1,A6 SET STATUS WORD EXIT ABL TDISP GO TO DISPATCHER * EJECT DRMS02 * * DEVICE BUSY * IHM100 EQU * LDR A1,A1 RETURN CODE FROM CHLT/CHRT RB(NE) ENDIO3 YES; INDICATE NOT OPERABLE LDR A4,A4 OUTPUT ANSWER ? RF(Z) IHRET YES SUK A7,INCARD INSERT CARD RF(E) IHRET YES ADK A7,INCARD SUK A7,ENOFOP END OF OPERATION ? RF(E) IHRET LDR A4,A2 SUK A4,DOCESC DOCUMENT ESCAPED ? RF(E) IHM140 YES IHRET ABL LDREG LOAD REG. AND RETURN CALLING SEQ VIA A5 * IHM140 LDK A4,DOCESC SC A4,DWTST+1,A6 UPDATE STATUS WORD LDKL A1,CARMIS CARD MISSING ENDIO4 RB ENDIO3 EJECT DRMS02 * * * R C M S * * RECOVERY ROUTINE * * RCMS EQU * * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON A15 STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 XIF * LDK A2,DOCESC SC A2,DWTST+1,A6 RESET STATUS WORD LD A7,DWTST,A6 BUSY? RB(N) EXIT NO LDK A1,THRERR THROUGHPUT ERROR RB ENDIO4 EJECT DRMS02 * * 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 * EJECT * * CDCHK = CHECK IF CODE CHECK ERROR * * AT ENTRY: A2=CHARACTER * AT EXIT: A1=RERURN CODE 0,2 * CDCHK EQU * LDR A1,A2 SUK A1,/30 VALID CODE? RF(N) CDC20 NO SUK A1,10 DIGIT? RF(N) CDC30 YES, OK * * THE CHARACTER IS A CONTROL CHARACTER LD A1,DWTFRT,A6 CREDIT CARD? RF(NN) CDC10 YES * * GERMAN PASSBOOK CWK A2,/3E FIELD SEPARATOR? RF(E) CDC30 YES, OK RF CDC20 NO, ERROR * CDC10 EQU * * CREDIT CARD / AMERICAN PASSBOOK LDR A1,A2 CHARACTER SUK A1,/3A ACCOUNT SEPARATOR? RF(Z) CDC30 YES, OK SUK A1,3 FIELD SEPARATOR? RF(Z) CDC30 YES, OK * CDC20 EQU * * ILLEGAL CHARACTER LDK A1,THRERR RET CODE := THROUGHPUT ERR ORS A1,ECBRC,A8 INSERT IN ECB RF CDC40 EXIT * CDC30 EQU * * VALID CHARACTER LDK A1,0 RETURN CODE := OK CDC40 EQU * RTN A15 * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRMS02 REL 10.0 80-03-14 870105041000 «, 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=»* DRMS02 = 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…01fa Head {h00=0x0044, 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 6266. «, t00=0x0001, t01=0x0026}
0x01fa…023c Head {h00=0x003e, h01=0x0050, text=»* THE MSU MUST BE CONNECTED TO THE CPU VIA CHLT OR CHRT.«, t00=0x0001, t01=0x006e}
0x023c…0246 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b0}
0x0246…028a Head {h00=0x0040, h01=0x0050, text=»* TRACK 2 AND 3 ON STRIPES CAN BE READ AND TRACK 3 CAN BE «, t00=0x0001, t01=0x00ba}
0x028a…029e Head {h00=0x0010, h01=0x0050, text=»* WRITTEN.«, t00=0x0001, t01=0x00fe}
0x029e…02a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0112}
0x02a8…02ec Head {h00=0x0040, h01=0x0050, text=»* PIN KEYBOARD IS NOT SUPPORTED BY THIS VERSION OF DRIVER «, t00=0x0001, t01=0x011c}
0x02ec…0330 Head {h00=0x0040, h01=0x0050, text=»* OFF-LINE TEST IS NOT SUPPORTED BY THIS VERSION OF DRIVER«, t00=0x0001, t01=0x0160}
0x0330…033a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0014}
0x033a…036e Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS: «, t00=0x0002, t01=0x001e}
0x036e…0378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0052}
0x0378…03a0 Head {h00=0x0024, h01=0x0050, text=»* A C M S : ACTIVATION PART«, t00=0x0002, t01=0x005c}
0x03a0…03c8 Head {h00=0x0024, h01=0x0050, text=»* ORDER PROCESSOR«, t00=0x0002, t01=0x0084}
0x03c8…03f2 Head {h00=0x0026, h01=0x0050, text=»* I H M S : INTERRUPT HANDLER«, t00=0x0002, t01=0x00ac}
0x03f2…041c Head {h00=0x0026, h01=0x0050, text=»* O N M S : RECOVERY ROUTINE «, t00=0x0002, t01=0x00d6}
0x041c…0426 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0100}
0x0426…0430 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x010a}
0x0430…0448 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0002, t01=0x0114}
0x0448…0452 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x012c}
0x0452…047e Head {h00=0x0028, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0002, t01=0x0136}
0x047e…0488 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0162}
0x0488…049a Head {h00=0x000e, h01=0x0050, text=»* CREDIT«, t00=0x0002, t01=0x016c}
0x049a…04bc Head {h00=0x001e, h01=0x0050, text=»* /06 WRITE CARD WRITE«, t00=0x0002, t01=0x017e}
0x04bc…04e4 Head {h00=0x0024, h01=0x0050, text=»* /0A READ CARD RANDOM READ «, t00=0x0003, t01=0x0010}
0x04e4…04fe Head {h00=0x0016, h01=0x0050, text=»* /21 OPEN - «, t00=0x0003, t01=0x0038}
0x04fe…052c Head {h00=0x002a, h01=0x0050, text=»* /26 END OF OPERATION DSC0 CC=4 «, t00=0x0003, t01=0x0052}
0x052c…0554 Head {h00=0x0024, h01=0x0050, text=»* /37 INSERT CARD DSC0 CC=0«, t00=0x0003, t01=0x0080}
0x0554…055e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00a8}
0x055e…0568 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b2}
0x0568…0596 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING RETURN CODE IS USED:«, t00=0x0003, t01=0x00bc}
0x0596…05a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ea}
0x05a0…05c2 Head {h00=0x001e, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x0003, t01=0x00f4}
0x05c2…05e4 Head {h00=0x001e, h01=0x0050, text=»* 2 CARD MISSING «, t00=0x0003, t01=0x0116}
0x05e4…060c Head {h00=0x0024, h01=0x0050, text=»* 10 READ/WRITE WARNING «, t00=0x0003, t01=0x0138}
0x060c…0632 Head {h00=0x0022, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x0003, t01=0x0160}
0x0632…0660 Head {h00=0x002a, h01=0x0050, text=»* 13 NEGATIVE ACKNOWLEDGEMENT «, t00=0x0003, t01=0x0186}
0x0660…0686 Head {h00=0x0022, h01=0x0050, text=»* 14 THROUGHPUT ERROR «, t00=0x0004, t01=0x0024}
0x0686…06a8 Head {h00=0x001e, h01=0x0050, text=»* 15 NOT OPERABLE «, t00=0x0004, t01=0x004a}
0x06a8…06b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006c}
0x06b2…06bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0076}
0x06bc…06e0 Head {h00=0x0020, h01=0x0050, text=»* NORMAL USE OF REGISTERS:«, t00=0x0004, t01=0x0080}
0x06e0…06ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a4}
0x06ea…0710 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 RETURN CODE«, t00=0x0004, t01=0x00ae}
0x0710…0742 Head {h00=0x002e, h01=0x0050, text=»* A2 INPUT/OUTPUT CHARACTER «, t00=0x0004, t01=0x00d4}
0x0742…076a Head {h00=0x0024, h01=0x0050, text=»* A3 BUFFER INDEX «, t00=0x0004, t01=0x0106}
0x076a…0792 Head {h00=0x0024, h01=0x0050, text=»* A4 RETRY COUNTER«, t00=0x0004, t01=0x012e}
0x0792…07c0 Head {h00=0x002a, h01=0x0050, text=»* A5 STACK BASE POINTER «, t00=0x0004, t01=0x0156}
0x07c0…07e6 Head {h00=0x0022, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0004, t01=0x0184}
0x07e6…0806 Head {h00=0x001c, h01=0x0050, text=»* A7 ORDER«, t00=0x0005, t01=0x001a}
0x0806…082c Head {h00=0x0022, h01=0x0050, text=»* A8 ECB ADDRESS«, t00=0x0005, t01=0x003a}
0x082c…0836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0060}
0x0836…084e Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0005, t01=0x006a}
0x084e…0858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0082}
0x0858…086c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x008c}
0x086c…0880 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x00a0}
0x0880…0894 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x00b4}
0x0894…089e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089e…08c0 Head {h00=0x001e, h01=0x0050, text=» ENTRY MSAD ADDRESS BLOCK «, t00=0x0005, t01=0x00d2}
0x08c0…08ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00f4}
0x08ca…08e0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x00fe}
0x08e0…08f6 Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x0114}
0x08f6…090c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x012a}
0x090c…0916 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0140}
0x0916…0934 Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL ROUTINES«, t00=0x0005, t01=0x014a}
0x0934…096a Head {h00=0x0032, h01=0x0050, text=» EXTRN SAVE8 SAVE REGISTER A1-A8 ON A15 STACK «, t00=0x0005, t01=0x0168}
0x096a…09a4 Head {h00=0x0036, h01=0x0050, text=» EXTRN STREG STORE REGISTERS AND GO TO DISPATCHER «, t00=0x0006, t01=0x000e}
0x09a4…09e0 Head {h00=0x0038, h01=0x0050, text=» EXTRN LDREG LOAD REGISTER AND RETURN TO USER VIA A5«, t00=0x0006, t01=0x0048}
0x09e0…0a12 Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0006, t01=0x0084}
0x0a12…0a48 Head {h00=0x0032, h01=0x0050, text=» EXTRN DISIOE DISPATCH END I/O, REQUEST ERROR «, t00=0x0006, t01=0x00b6}
0x0a48…0a7e Head {h00=0x0032, h01=0x0050, text=» EXTRN GETCHR GET NEXT CHARACTER IN ECB-BUFFER«, t00=0x0006, t01=0x00ec}
0x0a7e…0aa8 Head {h00=0x0026, h01=0x0050, text=» EXTRN DISEND END I/O AND DISPATCH«, t00=0x0006, t01=0x0122}
0x0aa8…0ace Head {h00=0x0022, h01=0x0050, text=» EXTRN TDISP DISPATCHER ENTRY «, t00=0x0006, t01=0x014c}
0x0ace…0ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0172}
0x0ad8…0af6 Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS«, t00=0x0006, t01=0x017c}
0x0af6…0b1e Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTST DWT SOFTWARE STATUS«, t00=0x0007, t01=0x000a}
0x0b1e…0b40 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0007, t01=0x0032}
0x0b40…0b5a Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0007, t01=0x0054}
0x0b5a…0b7a Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0007, t01=0x006e}
0x0b7a…0b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008e}
0x0b84…0ba2 Head {h00=0x001a, h01=0x0050, text=»* ECB DISPLACEMENTS«, t00=0x0007, t01=0x0098}
0x0ba2…0bc6 Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0007, t01=0x00b6}
0x0bc6…0bec Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0007, t01=0x00da}
0x0bec…0c12 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x0007, t01=0x0100}
0x0c12…0c32 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x0007, t01=0x0126}
0x0c32…0c54 Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x0007, t01=0x0146}
0x0c54…0c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0168}
0x0c5e…0c76 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0007, t01=0x0172}
0x0c76…0c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x018a}
0x0c80…0ca0 (8, 0, 400) Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0004}
0x0ca0…0cc0 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0008, t01=0x0024}
0x0cc0…0ce0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0044}
0x0ce0…0cea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0064}
0x0cea…0cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006e}
0x0cf4…0d26 Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x0078}
0x0d26…0d54 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00aa}
0x0d54…0d5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00d8}
0x0d5e…0d72 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x00e2}
0x0d72…0d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7c…0d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0100}
0x0d86…0dc0 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x010a}
0x0dc0…0df2 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x0144}
0x0df2…0dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0176}
0x0dfc…0e10 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0008, t01=0x0180}
0x0e10…0e1a (9, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e1a…0e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x000e}
0x0e24…0e48 Head {h00=0x0020, h01=0x0050, text=»* MMU BUFFER SIZE (BYTES) «, t00=0x0009, t01=0x0018}
0x0e48…0e52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x003c}
0x0e52…0e66 Head {h00=0x0010, h01=0x0050, text=»X:A EQU 108 «, t00=0x0009, t01=0x0046}
0x0e66…0e7c Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:A«, t00=0x0009, t01=0x005a}
0x0e7c…0e86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0070}
0x0e86…0e9e Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0009, t01=0x007a}
0x0e9e…0ea8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0092}
0x0ea8…0ebe Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x009c}
0x0ebe…0ed4 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0009, t01=0x00b2}
0x0ed4…0eea Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x00c8}
0x0eea…0ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00de}
0x0ef4…0f1c Head {h00=0x0024, h01=0x0050, text=»* MAGNETIC STRIPE CHARACTERS «, t00=0x0009, t01=0x00e8}
0x0f1c…0f48 Head {h00=0x0028, h01=0x0050, text=»CRWSTX EQU /3B CARD START CHARACTER «, t00=0x0009, t01=0x0110}
0x0f48…0f7c Head {h00=0x0030, h01=0x0050, text=»CRDSTX EQU /3D START CHAR, GERMAN BOOK (DIN)«, t00=0x0009, t01=0x013c}
0x0f7c…0fa0 Head {h00=0x0020, h01=0x0050, text=»CRWETX EQU /3F END CHARACTER«, t00=0x0009, t01=0x0170}
0x0fa0…0faa (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0faa…0fd0 Head {h00=0x0022, h01=0x0050, text=»* STATUS MESSAGES FROM MSU «, t00=0x000a, t01=0x000e}
0x0fd0…0ff8 Head {h00=0x0024, h01=0x0050, text=»DOCINS EQU /C DOCUMENT INSERTED «, t00=0x000a, t01=0x0034}
0x0ff8…101e Head {h00=0x0022, h01=0x0050, text=»DOCESC EQU /E DOCUMENT ESCAPED«, t00=0x000a, t01=0x005c}
0x101e…1040 Head {h00=0x001e, h01=0x0050, text=»WRWARN EQU 8 WRITE WARNING«, t00=0x000a, t01=0x0082}
0x1040…105e Head {h00=0x001a, h01=0x0050, text=»RDERR EQU 9 READ ERROR«, t00=0x000a, t01=0x00a4}
0x105e…107e Head {h00=0x001c, h01=0x0050, text=»WRERR EQU /A WRITE ERROR«, t00=0x000a, t01=0x00c2}
0x107e…109c Head {h00=0x001a, h01=0x0050, text=»WROK EQU /B WRITE OKAY«, t00=0x000a, t01=0x00e2}
0x109c…10a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0100}
0x10a6…10c2 Head {h00=0x0018, h01=0x0050, text=»* COMMANDS TO MSU«, t00=0x000a, t01=0x010a}
0x10c2…10e4 Head {h00=0x001e, h01=0x0050, text=»RESET EQU 2 GENERAL RESET «, t00=0x000a, t01=0x0126}
0x10e4…1110 Head {h00=0x0028, h01=0x0050, text=»SELTRA EQU 6 SELECT TRACK 2 FOR READ«, t00=0x000a, t01=0x0148}
0x1110…1134 Head {h00=0x0020, h01=0x0050, text=»ENCTRA EQU 5 ENCODE TRACK 3 «, t00=0x000a, t01=0x0174}
0x1134…1168 Head {h00=0x0030, h01=0x0050, text=»REATRD EQU 8 READ TRACK 3 GERMAN BOOK (DIN) «, t00=0x000b, t01=0x0008}
0x1168…119e Head {h00=0x0032, h01=0x0050, text=»ENCTRD EQU 9 ENCODE TRACK 3 GERMAN BOOK (DIN) «, t00=0x000b, t01=0x003c}
0x119e…11a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0072}
0x11a8…11c6 Head {h00=0x001a, h01=0x0050, text=»* ORDERS TO DRIVER «, t00=0x000b, t01=0x007c}
0x11c6…11e8 Head {h00=0x001e, h01=0x0050, text=»INCARD EQU /37 INSERT CARD«, t00=0x000b, t01=0x009a}
0x11e8…1210 Head {h00=0x0024, h01=0x0050, text=»ENOFOP EQU /26 END OF OPERATION «, t00=0x000b, t01=0x00bc}
0x1210…121a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x00e4}
0x121a…1234 Head {h00=0x0016, h01=0x0050, text=»* MISCELLANEOUS«, t00=0x000b, t01=0x00ee}
0x1234…125a Head {h00=0x0022, h01=0x0050, text=»RTRIES EQU 2 NUMBER OF RETRIES«, t00=0x000b, t01=0x0108}
0x125a…1264 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x012e}
0x1264…127c Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x000b, t01=0x0138}
0x127c…1286 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0150}
0x1286…12a0 Head {h00=0x0016, h01=0x0050, text=»* RETURN CODES «, t00=0x000b, t01=0x015a}
0x12a0…12c6 Head {h00=0x0022, h01=0x0050, text=»REQERR EQU /8000 REQUEST ERROR«, t00=0x000b, t01=0x0174}
0x12c6…12f0 Head {h00=0x0026, h01=0x0050, text=»WARNRW EQU /20 READ/WRITE WARNING «, t00=0x000c, t01=0x000a}
0x12f0…1316 Head {h00=0x0022, h01=0x0050, text=»CARMIS EQU /2000 CARD MISSING «, t00=0x000c, t01=0x0034}
0x1316…133c Head {h00=0x0022, h01=0x0050, text=»INCLEN EQU 8 INCORRECT LENGTH «, t00=0x000c, t01=0x005a}
0x133c…136a Head {h00=0x002a, h01=0x0050, text=»NEGACK EQU 4 NEGATIVE ACKNOWLEDGEMENT «, t00=0x000c, t01=0x0080}
0x136a…1390 Head {h00=0x0022, h01=0x0050, text=»THRERR EQU 2 THROUGHPUT ERROR «, t00=0x000c, t01=0x00ae}
0x1390…13b2 Head {h00=0x001e, h01=0x0050, text=»NOTOPE EQU 1 NOT OPERABLE «, t00=0x000c, t01=0x00d4}
0x13b2…13bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00f6}
0x13bc…13d4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x000c, t01=0x0100}
0x13d4…13de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0118}
0x13de…13fa Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0122}
0x13fa…1416 Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x000c, t01=0x013e}
0x1416…1432 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x015a}
0x1432…143c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0176}
0x143c…1470 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000c, t01=0x0180}
0x1470…147a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0024}
0x147a…1490 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x002e}
0x1490…14a8 Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000d, t01=0x0044}
0x14a8…14b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x005c}
0x14b4…14be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0068}
0x14be…14d4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x0072}
0x14d4…14ee Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000d, t01=0x0088}
0x14ee…14fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x00a2}
0x14fa…1504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ae}
0x1504…150e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b8}
0x150e…1552 Head {h00=0x0040, h01=0x0050, text=»DWTFRT EQU START+/14 BIT 0 CREDIT CARD / GERMAN BOOK FLAG «, t00=0x000d, t01=0x00c2}
0x1552…156e Head {h00=0x0018, h01=0x0050, text=»* BIT 1-7 NOT USED«, t00=0x000d, t01=0x0106}
0x156e…159a Head {h00=0x0028, h01=0x0050, text=»* BIT 8-15 RETRY COUNTER SAVE AREA«, t00=0x000d, t01=0x0122}
0x159a…15c6 Head {h00=0x0028, h01=0x0050, text=»DWTLRC EQU START+/16 LRC ACCUMULATOR«, t00=0x000d, t01=0x014e}
0x15c6…15d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x017a}
0x15d0…15e8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x000d, t01=0x0184}
0x15e8…15f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000c}
0x15f2…1604 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x0016}
0x1604…1616 Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000e, t01=0x0028}
0x1616…1628 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000e, t01=0x003a}
0x1628…1632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x004c}
0x1632…1656 Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x000e, t01=0x0056}
0x1656…1676 Head {h00=0x001c, h01=0x0050, text=» DATA 2 MMU DEVICE INDEX«, t00=0x000e, t01=0x007a}
0x1676…1688 Head {h00=0x000e, h01=0x0050, text=»MSAD EQU *«, t00=0x000e, t01=0x009a}
0x1688…16ac Head {h00=0x0020, h01=0x0050, text=» DATA ACMS ACTIVATION DRIVER«, t00=0x000e, t01=0x00ac}
0x16ac…16d2 Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000e, t01=0x00d0}
0x16d2…16f6 Head {h00=0x0020, h01=0x0050, text=» DATA IHMS INTERRUPT HANDLER«, t00=0x000e, t01=0x00f6}
0x16f6…171a Head {h00=0x0020, h01=0x0050, text=» DATA RCMS RECOVERY ROUTINE «, t00=0x000e, t01=0x011a}
0x171a…1724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x013e}
0x1724…172e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0148}
0x172e…1738 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0152}
0x1738…1756 Head {h00=0x001a, h01=0x0050, text=»TAB EQU * ORDER TABLE «, t00=0x000e, t01=0x015c}
0x1756…1776 Head {h00=0x001c, h01=0x0050, text=» DATA /060A,/3726,/2100 «, t00=0x000e, t01=0x017a}
0x1776…17a0 Head {h00=0x0026, h01=0x0050, text=»TABL EQU *-TAB-1 NUMBER OF ENTRIES«, t00=0x000f, t01=0x000a}
0x17a0…17aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0034}
0x17aa…17d6 Head {h00=0x0028, h01=0x0050, text=»MSFUN EQU * MAGNETIC STRIPE FUNCTION«, t00=0x000f, t01=0x003e}
0x17d6…17f6 Head {h00=0x001c, h01=0x0050, text=» DATA WRITE,READ,INSERT «, t00=0x000f, t01=0x006a}
0x17f6…180e Head {h00=0x0014, h01=0x0050, text=» DATA ENDOP,OPEN«, t00=0x000f, t01=0x008a}
0x180e…1826 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x000f, t01=0x00a2}
0x1826…1830 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ba}
0x1830…183a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c4}
0x183a…184e Head {h00=0x0010, h01=0x0050, text=»* A C M S «, t00=0x000f, t01=0x00ce}
0x184e…1858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e2}
0x1858…188e Head {h00=0x0032, h01=0x0050, text=»* ACTIVATION PART: CHECKS VALIDITY OF ORDERS«, t00=0x000f, t01=0x00ec}
0x188e…18c2 Head {h00=0x0030, h01=0x0050, text=»* AND STARTS PROCESSING. «, t00=0x000f, t01=0x0122}
0x18c2…18cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0156}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0160}
0x18d6…18e8 Head {h00=0x000e, h01=0x0050, text=»ACMS EQU *«, t00=0x000f, t01=0x016a}
0x18e8…18fe Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x000f, t01=0x017c}
0x18fe…1932 (16, 0, 400) Head {h00=0x0030, h01=0x0050, text=»ACMS10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER «, t00=0x0010, t01=0x0004}
0x1932…1954 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACMS20 VALID ORDER «, t00=0x0010, t01=0x0038}
0x1954…1966 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0010, t01=0x005a}
0x1966…1986 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACMS10 TRY NEXT «, t00=0x0010, t01=0x006c}
0x1986…1990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008c}
0x1990…199a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0096}
0x199a…19d2 Head {h00=0x0034, h01=0x0050, text=»MSERR ABL DISIOE DISPATCH END I/O,REQUEST ERROR «, t00=0x0010, t01=0x00a0}
0x19d2…19dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00d8}
0x19dc…19f0 Head {h00=0x0010, h01=0x0050, text=»ACMS20 EQU *«, t00=0x0010, t01=0x00e2}
0x19f0…1a0c Head {h00=0x0018, h01=0x0050, text=» ADR A4,A4 GET INDEX«, t00=0x0010, t01=0x00f6}
0x1a0c…1a42 Head {h00=0x0032, h01=0x0050, text=» ABI MSFUN,A4 BRANCH TO VALID FUNCTION MODULE «, t00=0x0010, t01=0x0112}
0x1a42…1a4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0148}
0x1a4c…1a64 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0010, t01=0x0152}
0x1a64…1a6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016a}
0x1a6e…1aa8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0010, t01=0x0174}
0x1aa8…1ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1ab2…1ac6 Head {h00=0x0010, h01=0x0050, text=»* OPEN /21«, t00=0x0011, t01=0x0028}
0x1ac6…1ad0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003c}
0x1ad0…1b06 Head {h00=0x0032, h01=0x0050, text=»* THE DRIVER IS SET TO HANDLE EITHER CREDIT «, t00=0x0011, t01=0x0046}
0x1b06…1b40 Head {h00=0x0036, h01=0x0050, text=»* CARDS/AMERICAN PASSBOOKS OR GERMAN PASSBOOKS. «, t00=0x0011, t01=0x007c}
0x1b40…1b4a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00b6}
0x1b4a…1b64 Head {h00=0x0016, h01=0x0050, text=»* REGISTER INPUT: «, t00=0x0011, t01=0x00c0}
0x1b64…1b82 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0011, t01=0x00da}
0x1b82…1ba0 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x0011, t01=0x00f8}
0x1ba0…1baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0116}
0x1baa…1be4 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0011, t01=0x0120}
0x1be4…1bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x015a}
0x1bee…1c00 Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x0011, t01=0x0164}
0x1c00…1c24 Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A8 FORMAT CODE «, t00=0x0011, t01=0x0176}
0x1c24…1c5a Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OPEN10 NOT CREDIT CARD / AMERICAN BOOK«, t00=0x0012, t01=0x000a}
0x1c5a…1c80 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/7FFF MASK FOR BIT 0 «, t00=0x0012, t01=0x0040}
0x1c80…1cb8 Head {h00=0x0034, h01=0x0050, text=» ANS A2,DWTFRT,A6 CLEAR FORMAT FLAG, INDICATING «, t00=0x0012, t01=0x0066}
0x1cb8…1ce0 Head {h00=0x0024, h01=0x0050, text=»* CREDIT CARD / AMERICAN BOOK «, t00=0x0012, t01=0x009e}
0x1ce0…1cf8 Head {h00=0x0014, h01=0x0050, text=» RF OPEN20 EXIT «, t00=0x0012, t01=0x00c6}
0x1cf8…1d02 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00de}
0x1d02…1d16 Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x0012, t01=0x00e8}
0x1d16…1d44 Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 FORMAT CODE GERMAN PASSBOOK?«, t00=0x0012, t01=0x00fc}
0x1d44…1d6a Head {h00=0x0022, h01=0x0050, text=» RB(NZ) MSERR NO, ILLEGAL CODE«, t00=0x0012, t01=0x012a}
0x1d6a…1d90 Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/8000 MASK FOR BIT 0 «, t00=0x0012, t01=0x0150}
0x1d90…1dba Head {h00=0x0026, h01=0x0050, text=» ORS A2,DWTFRT,A6 SET FORMAT FLAG,«, t00=0x0012, t01=0x0176}
0x1dba…1ddc Head {h00=0x001e, h01=0x0050, text=»* INDICATING GERMAN BOOK«, t00=0x0013, t01=0x0010}
0x1ddc…1de6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0032}
0x1de6…1dfa Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x0013, t01=0x003c}
0x1dfa…1e18 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x0013, t01=0x0050}
0x1e18…1e2e Head {h00=0x0012, h01=0x0050, text=» RF ENDIO EXIT«, t00=0x0013, t01=0x006e}
0x1e2e…1e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0084}
0x1e38…1e50 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0013, t01=0x008e}
0x1e50…1e5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a6}
0x1e5a…1e94 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0013, t01=0x00b0}
0x1e94…1e9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00ea}
0x1e9e…1ebc Head {h00=0x001a, h01=0x0050, text=»* INSERT CARD /11 «, t00=0x0013, t01=0x00f4}
0x1ebc…1ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0112}
0x1ec6…1f00 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0013, t01=0x011c}
0x1f00…1f0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0156}
0x1f0a…1f1e Head {h00=0x0010, h01=0x0050, text=»INSERT EQU *«, t00=0x0013, t01=0x0160}
0x1f1e…1f48 Head {h00=0x0026, h01=0x0050, text=» LDK A4,DOCINS CHAR. DOC. INSERTED«, t00=0x0013, t01=0x0174}
0x1f48…1f6c Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTST+1,A6 GET STATUS«, t00=0x0014, t01=0x000e}
0x1f6c…1f80 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0014, t01=0x0032}
0x1f80…1f96 Head {h00=0x0012, h01=0x0050, text=» RF(NE) INSE10«, t00=0x0014, t01=0x0046}
0x1f96…1faa Head {h00=0x0010, h01=0x0050, text=»INSE05 EQU *«, t00=0x0014, t01=0x005c}
0x1faa…1fce Head {h00=0x0020, h01=0x0050, text=» LDK A2,RESET GENERAL RESET «, t00=0x0014, t01=0x0070}
0x1fce…1fec Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x0014, t01=0x0094}
0x1fec…201a Head {h00=0x002a, h01=0x0050, text=» CF A5,STREG WAIT FOR MESSAGE FROM MSU«, t00=0x0014, t01=0x00b2}
0x201a…204a Head {h00=0x002c, h01=0x0050, text=»INSE10 CWK A2,DOCESC DOCUMENT ESCAPED ? «, t00=0x0014, t01=0x00e0}
0x204a…2064 Head {h00=0x0016, h01=0x0050, text=» RB(E) INSE05 YES «, t00=0x0014, t01=0x0110}
0x2064…208a Head {h00=0x0022, h01=0x0050, text=» CWR A2,A4 DOCUMENT INSERTED ?«, t00=0x0014, t01=0x012a}
0x208a…20a4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) INSE15 NO «, t00=0x0014, t01=0x0150}
0x20a4…20c2 Head {h00=0x001a, h01=0x0050, text=» SC A4,DWTST+1,A6 YES «, t00=0x0014, t01=0x016a}
0x20c2…20d4 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0014, t01=0x0188}
0x20d4…20e6 Head {h00=0x000e, h01=0x0050, text=» RF ENDIO «, t00=0x0015, t01=0x000a}
0x20e6…2114 Head {h00=0x002a, h01=0x0050, text=»INSE15 LDK A1,THRERR THROUGHPUT ERROR «, t00=0x0015, t01=0x001c}
0x2114…212c Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0015, t01=0x004a}
0x212c…2136 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0062}
0x2136…215e Head {h00=0x0024, h01=0x0050, text=»* END OF INPUT/OUTPUT REQUEST «, t00=0x0015, t01=0x006c}
0x215e…2168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0094}
0x2168…217c Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x0015, t01=0x009e}
0x217c…2190 Head {h00=0x0010, h01=0x0050, text=» ABL DISEND «, t00=0x0015, t01=0x00b2}
0x2190…21a8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0015, t01=0x00c6}
0x21a8…21b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00de}
0x21b2…21ec Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0015, t01=0x00e8}
0x21ec…21f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0122}
0x21f6…2212 Head {h00=0x0018, h01=0x0050, text=»* READ CARD /0A «, t00=0x0015, t01=0x012c}
0x2212…221c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0148}
0x221c…2256 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0015, t01=0x0152}
0x2256…2260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018c}
0x2260…2272 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x0016, t01=0x0008}
0x2272…2296 Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTST+1,A6 GET STATUS«, t00=0x0016, t01=0x001a}
0x2296…22aa Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0016, t01=0x003e}
0x22aa…22d4 Head {h00=0x0026, h01=0x0050, text=» SUK A2,DOCINS DOCUMENT INSERTED? «, t00=0x0016, t01=0x0052}
0x22d4…22ee Head {h00=0x0016, h01=0x0050, text=» RF(NE) WRIT02 NO «, t00=0x0016, t01=0x007c}
0x22ee…22f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0096}
0x22f8…2302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00a0}
0x2302…232a Head {h00=0x0024, h01=0x0050, text=» LDK A4,RTRIES NUMBER OF RETRIES«, t00=0x0016, t01=0x00aa}
0x232a…233e Head {h00=0x0010, h01=0x0050, text=»READ10 EQU *«, t00=0x0016, t01=0x00d2}
0x233e…2362 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0016, t01=0x00e6}
0x2362…2386 Head {h00=0x0020, h01=0x0050, text=» LD A2,DWTFRT,A6 FORMAT CODE«, t00=0x0016, t01=0x010a}
0x2386…23a8 Head {h00=0x001e, h01=0x0050, text=» RF(N) READ20 GERMAN BOOK «, t00=0x0016, t01=0x012e}
0x23a8…23b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0150}
0x23b2…23ca Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0016, t01=0x015a}
0x23ca…23d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0172}
0x23d4…2406 Head {h00=0x002e, h01=0x0050, text=»* READ CREDIT CARD / AMERICAN PASSBOOK «, t00=0x0016, t01=0x017c}
0x2406…242e Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBCW,A8 GET TRACK NUMBER«, t00=0x0017, t01=0x001e}
0x242e…2440 Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0017, t01=0x0046}
0x2440…245e Head {h00=0x001a, h01=0x0050, text=» RB(N) MSERR TRACK < 2«, t00=0x0017, t01=0x0058}
0x245e…2470 Head {h00=0x000e, h01=0x0050, text=» CWK A2,1 «, t00=0x0017, t01=0x0076}
0x2470…248e Head {h00=0x001a, h01=0x0050, text=» RB(G) MSERR TRACK > 3«, t00=0x0017, t01=0x0088}
0x248e…24bc Head {h00=0x002a, h01=0x0050, text=» ADK A2,SELTRA COMPUTE TRACK TO SELECT«, t00=0x0017, t01=0x00a6}
0x24bc…24c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00d4}
0x24c6…2500 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT SEND READ TRACK COMMAND (/06 OR /07)«, t00=0x0017, t01=0x00de}
0x2500…250a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0118}
0x250a…2534 Head {h00=0x0026, h01=0x0050, text=» CF A5,REABLK READ ONE DATA BLOCK «, t00=0x0017, t01=0x0122}
0x2534…2562 Head {h00=0x002a, h01=0x0050, text=» CWK A1,NEGACK RETURN CODE READ ERROR?«, t00=0x0017, t01=0x014c}
0x2562…2598 Head {h00=0x0032, h01=0x0050, text=» RB(NE) ENDIO NO, OK OR INCORRECT LENGTH. EXIT«, t00=0x0017, t01=0x017a}
0x2598…25a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0020}
0x25a2…25c2 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 MORE RETRIES? «, t00=0x0018, t01=0x002a}
0x25c2…25ec Head {h00=0x0026, h01=0x0050, text=» RB(NN) READ10 YES, PERFORM RETRY «, t00=0x0018, t01=0x004a}
0x25ec…2606 Head {h00=0x0016, h01=0x0050, text=» RB ENDIO NO, EXIT«, t00=0x0018, t01=0x0074}
0x2606…2610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x008e}
0x2610…2628 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0018, t01=0x0098}
0x2628…2632 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00b0}
0x2632…2646 Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x0018, t01=0x00ba}
0x2646…2668 Head {h00=0x001e, h01=0x0050, text=»* READ GERMAN PASSBOOK «, t00=0x0018, t01=0x00ce}
0x2668…267e Head {h00=0x0012, h01=0x0050, text=» LDK A2,REATRD«, t00=0x0018, t01=0x00f0}
0x267e…26b4 Head {h00=0x0032, h01=0x0050, text=» CF A5,OUTPUT SEND "READ GERMAN BOOK" COMMAND «, t00=0x0018, t01=0x0106}
0x26b4…26be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x013c}
0x26be…26e4 Head {h00=0x0022, h01=0x0050, text=» CF A5,REABLK READ FIRST BLOCK«, t00=0x0018, t01=0x0146}
0x26e4…270c Head {h00=0x0024, h01=0x0050, text=» CWK A1,INCLEN BUFFER OVERFLOW? «, t00=0x0018, t01=0x016c}
0x270c…272a (25, 0, 400) Head {h00=0x001a, h01=0x0050, text=» RB(E) ENDIO YES, EXIT«, t00=0x0019, t01=0x0004}
0x272a…2734 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0022}
0x2734…2762 Head {h00=0x002a, h01=0x0050, text=» SC A4,DWTFRT+1,A6 SAVE RETRY COUNTER «, t00=0x0019, t01=0x002c}
0x2762…2786 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 SAVE RETURN CODE «, t00=0x0019, t01=0x005a}
0x2786…27ae Head {h00=0x0024, h01=0x0050, text=» CF A5,REABLK READ SECOND BLOCK «, t00=0x0019, t01=0x007e}
0x27ae…27d6 Head {h00=0x0024, h01=0x0050, text=» CWK A1,INCLEN BUFFER OVERFLOW? «, t00=0x0019, t01=0x00a6}
0x27d6…27f4 Head {h00=0x001a, h01=0x0050, text=» RB(E) ENDIO YES, EXIT«, t00=0x0019, t01=0x00ce}
0x27f4…27fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00ec}
0x27fe…2810 Head {h00=0x000e, h01=0x0050, text=» CWR A1,A4«, t00=0x0019, t01=0x00f6}
0x2810…2842 Head {h00=0x002e, h01=0x0050, text=» RF(E) READ30 BOTH BLOCKS OK OR BOTH WRONG«, t00=0x0019, t01=0x0108}
0x2842…284c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x013a}
0x284c…287c Head {h00=0x002c, h01=0x0050, text=»* ONE BLOCK WAS OK, ONE WAS ERRONEOUS«, t00=0x0019, t01=0x0144}
0x287c…28b4 Head {h00=0x0034, h01=0x0050, text=» LDK A1,WARNRW RETURN CODE "READ/WRITE WARNING" «, t00=0x0019, t01=0x0174}
0x28b4…28e2 Head {h00=0x002a, h01=0x0050, text=» RF READ40 CHECK IF MORE RETRIES LEFT «, t00=0x001a, t01=0x001c}
0x28e2…28ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x004a}
0x28ec…2900 Head {h00=0x0010, h01=0x0050, text=»READ30 EQU *«, t00=0x001a, t01=0x0054}
0x2900…2938 Head {h00=0x0034, h01=0x0050, text=»* BOTH BLOCKS WERE OK OR BOTH WERE ERRONEOUS «, t00=0x001a, t01=0x0068}
0x2938…2954 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 BOTH OK? «, t00=0x001a, t01=0x00a0}
0x2954…2972 Head {h00=0x001a, h01=0x0050, text=» RB(Z) ENDIO YES, EXIT«, t00=0x001a, t01=0x00bc}
0x2972…297c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00da}
0x297c…2990 Head {h00=0x0010, h01=0x0050, text=»READ40 EQU *«, t00=0x001a, t01=0x00e4}
0x2990…29c2 Head {h00=0x002e, h01=0x0050, text=»* CHECK IF MORE RETRIES SHOULD BE MADE «, t00=0x001a, t01=0x00f8}
0x29c2…29ee Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTFRT+1,A6 GET RETRY COUNTER«, t00=0x001a, t01=0x012a}
0x29ee…2a08 Head {h00=0x0016, h01=0x0050, text=» ANK A4,/FF CLEAN «, t00=0x001a, t01=0x0156}
0x2a08…2a28 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 MORE RETRIES? «, t00=0x001a, t01=0x0170}
0x2a28…2a52 Head {h00=0x0026, h01=0x0050, text=» RB(NN) READ10 YES, PERFORM RETRY «, t00=0x001a, t01=0x0190}
0x2a52…2a6c Head {h00=0x0016, h01=0x0050, text=» RB ENDIO NO, EXIT«, t00=0x001b, t01=0x002a}
0x2a6c…2a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0044}
0x2a76…2a8e Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x001b, t01=0x004e}
0x2a8e…2a98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0066}
0x2a98…2ad2 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001b, t01=0x0070}
0x2ad2…2adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00aa}
0x2adc…2af6 Head {h00=0x0016, h01=0x0050, text=»* READ DATA BLOCK «, t00=0x001b, t01=0x00b4}
0x2af6…2b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00ce}
0x2b00…2b38 Head {h00=0x0034, h01=0x0050, text=»* ONE DATA BLOCK IS READ FROM THE MSU. READING«, t00=0x001b, t01=0x00d8}
0x2b38…2b6c Head {h00=0x0030, h01=0x0050, text=»* IS TERMINATED WHEN READ ERROR MESSAGE IS«, t00=0x001b, t01=0x0110}
0x2b6c…2ba0 Head {h00=0x0030, h01=0x0050, text=»* RECIEVED, END CHARACTER IS READ OR INPUT«, t00=0x001b, t01=0x0144}
0x2ba0…2bbc Head {h00=0x0018, h01=0x0050, text=»* BUFFER IS FULL. «, t00=0x001b, t01=0x0178}
0x2bbc…2bc6 (28, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0004}
0x2bc6…2be0 Head {h00=0x0016, h01=0x0050, text=»* REGISTER INPUT: «, t00=0x001c, t01=0x000e}
0x2be0…2bfc Head {h00=0x0018, h01=0x0050, text=»* A3 = BYTE INDEX«, t00=0x001c, t01=0x0028}
0x2bfc…2c22 Head {h00=0x0022, h01=0x0050, text=»* A5 = LOCAL STACK POINTER «, t00=0x001c, t01=0x0044}
0x2c22…2c40 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x001c, t01=0x006a}
0x2c40…2c5e Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x001c, t01=0x0088}
0x2c5e…2c84 Head {h00=0x0022, h01=0x0050, text=»* A15 = SYSTEM STACK POINTER«, t00=0x001c, t01=0x00a6}
0x2c84…2c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x00cc}
0x2c8e…2ca8 Head {h00=0x0016, h01=0x0050, text=»* REGISTER OUTPUT:«, t00=0x001c, t01=0x00d6}
0x2ca8…2cc6 Head {h00=0x001a, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x001c, t01=0x00f0}
0x2cc6…2cea Head {h00=0x0020, h01=0x0050, text=»* A3 = UPDATED BYTE INDEX«, t00=0x001c, t01=0x010e}
0x2cea…2cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0132}
0x2cf4…2d2e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001c, t01=0x013c}
0x2d2e…2d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0176}
0x2d38…2d4c Head {h00=0x0010, h01=0x0050, text=»REABLK EQU *«, t00=0x001c, t01=0x0180}
0x2d4c…2d6c (29, 0, 400) Head {h00=0x001c, h01=0x0050, text=» CF A5,STREG FETCH DATA «, t00=0x001d, t01=0x0004}
0x2d6c…2d8e Head {h00=0x001e, h01=0x0050, text=» CWK A2,RDERR READ ERROR? «, t00=0x001d, t01=0x0024}
0x2d8e…2dac Head {h00=0x001a, h01=0x0050, text=» RF(E) RB100 YES, EXIT«, t00=0x001d, t01=0x0046}
0x2dac…2db6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0064}
0x2db6…2ddc Head {h00=0x0022, h01=0x0050, text=» CWK A2,CRWETX END CHARACTER? «, t00=0x001d, t01=0x006e}
0x2ddc…2dfa Head {h00=0x001a, h01=0x0050, text=» RF(E) RB110 YES, EXIT«, t00=0x001d, t01=0x0094}
0x2dfa…2e26 Head {h00=0x0028, h01=0x0050, text=» CW A3,ECBRL,A8 BUFFER ALREADY FULL?«, t00=0x001d, t01=0x00b2}
0x2e26…2e46 Head {h00=0x001c, h01=0x0050, text=» RF(NL) RB120 YES, EXIT «, t00=0x001d, t01=0x00de}
0x2e46…2e50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x00fe}
0x2e50…2e68 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x001d, t01=0x0108}
0x2e68…2e72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0120}
0x2e72…2e9c Head {h00=0x0026, h01=0x0050, text=» CF A15,CDCHK CHECK IF LEGAL CHAR «, t00=0x001d, t01=0x012a}
0x2e9c…2ec4 Head {h00=0x0024, h01=0x0050, text=» CF A15,STORE PUT CHAR IN BUFFER«, t00=0x001d, t01=0x0154}
0x2ec4…2ee6 Head {h00=0x001e, h01=0x0050, text=» RB REABLK READ NEXT CHAR «, t00=0x001d, t01=0x017c}
0x2ee6…2ef0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x000e}
0x2ef0…2efa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0018}
0x2efa…2f3c Head {h00=0x003e, h01=0x0050, text=»* BLOCK TREATED. SET RETURN CODE AND EFFECTIVE LENGTH. «, t00=0x001e, t01=0x0022}
0x2f3c…2f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0064}
0x2f46…2f5a Head {h00=0x0010, h01=0x0050, text=»RB100 EQU * «, t00=0x001e, t01=0x006e}
0x2f5a…2f7c Head {h00=0x001e, h01=0x0050, text=» LDK A1,NEGACK READ ERROR «, t00=0x001e, t01=0x0082}
0x2f7c…2fa4 Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBEL,A8 RESET BYTE INDEX«, t00=0x001e, t01=0x00a4}
0x2fa4…2fba Head {h00=0x0012, h01=0x0050, text=» RF RB140 EXIT«, t00=0x001e, t01=0x00cc}
0x2fba…2fc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00e2}
0x2fc4…2fd8 Head {h00=0x0010, h01=0x0050, text=»RB110 EQU * «, t00=0x001e, t01=0x00ec}
0x2fd8…2ff8 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 NORMAL ENDING «, t00=0x001e, t01=0x0100}
0x2ff8…300e Head {h00=0x0012, h01=0x0050, text=» RF RB130 EXIT«, t00=0x001e, t01=0x0120}
0x300e…3018 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0136}
0x3018…302c Head {h00=0x0010, h01=0x0050, text=»RB120 EQU * «, t00=0x001e, t01=0x0140}
0x302c…3052 Head {h00=0x0022, h01=0x0050, text=» LDK A1,INCLEN BUFFER OVERFLOW«, t00=0x001e, t01=0x0154}
0x3052…305c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x017a}
0x305c…3070 Head {h00=0x0010, h01=0x0050, text=»RB130 EQU * «, t00=0x001e, t01=0x0184}
0x3070…30a0 Head {h00=0x002c, h01=0x0050, text=» ST A3,ECBEL,A8 EFFECTIVE LENGTH TO ECB «, t00=0x001f, t01=0x0008}
0x30a0…30aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0038}
0x30aa…30be Head {h00=0x0010, h01=0x0050, text=»RB140 EQU * «, t00=0x001f, t01=0x0042}
0x30be…30ce Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x001f, t01=0x0056}
0x30ce…30d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0066}
0x30d8…30f0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x001f, t01=0x0070}
0x30f0…30fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0088}
0x30fa…3134 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001f, t01=0x0092}
0x3134…313e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00cc}
0x313e…315a Head {h00=0x0018, h01=0x0050, text=»* WRITE CARD /06«, t00=0x001f, t01=0x00d6}
0x315a…3164 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00f2}
0x3164…319e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001f, t01=0x00fc}
0x319e…31a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0136}
0x31a8…31bc Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x001f, t01=0x0140}
0x31bc…31e4 Head {h00=0x0024, h01=0x0050, text=» LDK A4,RTRIES SET NO OF RTRIES «, t00=0x001f, t01=0x0154}
0x31e4…3208 Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTST+1,A6 GET STATUS«, t00=0x001f, t01=0x017c}
0x3208…321c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0020, t01=0x0010}
0x321c…3246 Head {h00=0x0026, h01=0x0050, text=» SUK A2,DOCINS DOCUMENT INSERTED? «, t00=0x0020, t01=0x0024}
0x3246…3260 Head {h00=0x0016, h01=0x0050, text=» RF(E) WRIT05 YES «, t00=0x0020, t01=0x004e}
0x3260…328a Head {h00=0x0026, h01=0x0050, text=»WRIT02 LDKL A1,CARMIS CARD MISSING«, t00=0x0020, t01=0x0068}
0x328a…32a2 Head {h00=0x0014, h01=0x0050, text=»ENDIO2 RB ENDIO «, t00=0x0020, t01=0x0092}
0x32a2…32ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00aa}
0x32ac…32b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00b4}
0x32b6…32ca Head {h00=0x0010, h01=0x0050, text=»WRIT05 EQU *«, t00=0x0020, t01=0x00be}
0x32ca…32f6 Head {h00=0x0028, h01=0x0050, text=» CM DWTLRC,A6 CLEAR LRC-ACKUMULATOR «, t00=0x0020, t01=0x00d2}
0x32f6…3300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00fe}
0x3300…333c Head {h00=0x0038, h01=0x0050, text=»* TEST REQUESTED LENGTH AND GET START CHARACTER. «, t00=0x0020, t01=0x0108}
0x333c…3346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x0144}
0x3346…3378 Head {h00=0x002e, h01=0x0050, text=» LDK A1,INCLEN SET ERROR CODE JUST IN CASE«, t00=0x0020, t01=0x014e}
0x3378…33a0 Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBRL,A8 REQUESTED LENGTH«, t00=0x0020, t01=0x0180}
0x33a0…33ca Head {h00=0x0026, h01=0x0050, text=» LD A3,DWTFRT,A6 FORMAT CODE FLAG «, t00=0x0021, t01=0x0018}
0x33ca…33ec Head {h00=0x001e, h01=0x0050, text=» RF(N) WRIT07 GERMAN BOOK «, t00=0x0021, t01=0x0042}
0x33ec…33f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0064}
0x33f6…340e Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0021, t01=0x006e}
0x340e…3418 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0086}
0x3418…3444 Head {h00=0x0028, h01=0x0050, text=»* CREDIT CARD / AMERICAN PASSBOOK«, t00=0x0021, t01=0x0090}
0x3444…3458 Head {h00=0x0010, h01=0x0050, text=» SUK A2,104 «, t00=0x0021, t01=0x00bc}
0x3458…3482 Head {h00=0x0026, h01=0x0050, text=» RB(P) ENDIO ERROR IF LENGTH > MAX«, t00=0x0021, t01=0x00d0}
0x3482…34c0 Head {h00=0x003a, h01=0x0050, text=» LDK A2,CRWSTX START CHAR CREDIT CARD / AMERICAN BOOK «, t00=0x0021, t01=0x00fa}
0x34c0…34dc Head {h00=0x0018, h01=0x0050, text=» RF WRIT09 CONTINUE «, t00=0x0021, t01=0x0138}
0x34dc…34e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0154}
0x34e6…34fa Head {h00=0x0010, h01=0x0050, text=»WRIT07 EQU *«, t00=0x0021, t01=0x015e}
0x34fa…3516 Head {h00=0x0018, h01=0x0050, text=»* GERMAN PASSBOOK«, t00=0x0021, t01=0x0172}
0x3516…3528 Head {h00=0x000e, h01=0x0050, text=» SUK A2,45«, t00=0x0021, t01=0x018e}
0x3528…3552 Head {h00=0x0026, h01=0x0050, text=» RB(P) ENDIO ERROR IF LENGTH > MAX«, t00=0x0022, t01=0x0010}
0x3552…3580 Head {h00=0x002a, h01=0x0050, text=» LDK A2,CRDSTX START CHAR GERMAN BOOK «, t00=0x0022, t01=0x003a}
0x3580…358a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0068}
0x358a…359e Head {h00=0x0010, h01=0x0050, text=»WRIT09 EQU *«, t00=0x0022, t01=0x0072}
0x359e…35c2 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0022, t01=0x0086}
0x35c2…35cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00aa}
0x35cc…35e0 Head {h00=0x0010, h01=0x0050, text=»WRIT10 EQU *«, t00=0x0022, t01=0x00b4}
0x35e0…3610 Head {h00=0x002c, h01=0x0050, text=» XRS A2,DWTLRC,A6 UPDATE LRC-ACKUMULATOR«, t00=0x0022, t01=0x00c8}
0x3610…3634 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0022, t01=0x00f8}
0x3634…366e Head {h00=0x0036, h01=0x0050, text=»WRIT15 CF A15,GETCHR GET NEXT CHAR FROM ECB-BUFFER«, t00=0x0022, t01=0x011c}
0x366e…3696 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 ANY CHARACTERS LEFT? «, t00=0x0022, t01=0x0156}
0x3696…36ae Head {h00=0x0014, h01=0x0050, text=» RF(E) WRIT20 NO«, t00=0x0022, t01=0x017e}
0x36ae…36d0 Head {h00=0x001e, h01=0x0050, text=» CF A15,CDCHK VALID CODE? «, t00=0x0023, t01=0x0008}
0x36d0…36e2 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x0023, t01=0x002a}
0x36e2…36fc Head {h00=0x0016, h01=0x0050, text=» RB(Z) WRIT10 YES «, t00=0x0023, t01=0x003c}
0x36fc…370e Head {h00=0x000e, h01=0x0050, text=» RB WRIT15«, t00=0x0023, t01=0x0056}
0x370e…3718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0068}
0x3718…3730 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0023, t01=0x0072}
0x3730…373a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x008a}
0x373a…374e Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x0023, t01=0x0094}
0x374e…3778 Head {h00=0x0026, h01=0x0050, text=» LDK A2,CRWETX CARD END CHARACTER «, t00=0x0023, t01=0x00a8}
0x3778…379c Head {h00=0x0020, h01=0x0050, text=» XRS A2,DWTLRC,A6 UPDATE LRC«, t00=0x0023, t01=0x00d2}
0x379c…37c0 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0023, t01=0x00f6}
0x37c0…37e6 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTLRC,A6 LRC-CHARACTER«, t00=0x0023, t01=0x011a}
0x37e6…3802 Head {h00=0x0018, h01=0x0050, text=» ORK A2,/30 SET ZONE«, t00=0x0023, t01=0x0140}
0x3802…382a Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND LRC-CHARACTER«, t00=0x0023, t01=0x015c}
0x382a…3834 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0184}
0x3834…385a Head {h00=0x0022, h01=0x0050, text=»* SEND WRITE TRACK COMMAND «, t00=0x0023, t01=0x018e}
0x385a…3888 Head {h00=0x002a, h01=0x0050, text=» LDK A2,ENCTRD ASSUME GERMAN PASSBOOK «, t00=0x0024, t01=0x0024}
0x3888…38b4 Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTFRT,A6 IS IT GERMAN BOOK? «, t00=0x0024, t01=0x0052}
0x38b4…38d8 Head {h00=0x0020, h01=0x0050, text=» RF(N) WRIT30 YES, CONTINUE «, t00=0x0024, t01=0x007e}
0x38d8…3912 Head {h00=0x0036, h01=0x0050, text=» LDK A2,ENCTRA NO, SET CREDIT CARD / AMERICAN BOOK«, t00=0x0024, t01=0x00a2}
0x3912…391c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00dc}
0x391c…3930 Head {h00=0x0010, h01=0x0050, text=»WRIT30 EQU *«, t00=0x0024, t01=0x00e6}
0x3930…395e Head {h00=0x002a, h01=0x0050, text=» CF A5,OUTPUT SEND WRITE TRACK COMMAND«, t00=0x0024, t01=0x00fa}
0x395e…398a Head {h00=0x0028, h01=0x0050, text=» CF A5,STREG WAIT FOR STATUS MESSAGE«, t00=0x0024, t01=0x0128}
0x398a…39aa Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 RETURN CODE OK«, t00=0x0024, t01=0x0154}
0x39aa…39ca Head {h00=0x001c, h01=0x0050, text=» CWK A2,WROK WAS IT OK? «, t00=0x0024, t01=0x0174}
0x39ca…39ea (37, 0, 398) Head {h00=0x001c, h01=0x0050, text=» RB(E) ENDIO2 YES, EXIT «, t00=0x0025, t01=0x0004}
0x39ea…39f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0024}
0x39f4…3a14 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 MORE RETRIES? «, t00=0x0025, t01=0x002e}
0x3a14…3a3e Head {h00=0x0026, h01=0x0050, text=» RB(NN) WRIT05 YES, PERFORM RETRY «, t00=0x0025, t01=0x004e}
0x3a3e…3a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0078}
0x3a48…3a78 Head {h00=0x002c, h01=0x0050, text=» LDK A1,NEGACK RETURN CODE NEGATIVE ACK «, t00=0x0025, t01=0x0082}
0x3a78…3aa2 Head {h00=0x0026, h01=0x0050, text=» CWK A2,WRERR WAS IT WRITE ERROR? «, t00=0x0025, t01=0x00b2}
0x3aa2…3ac2 Head {h00=0x001c, h01=0x0050, text=» RB(E) ENDIO2 YES, EXIT «, t00=0x0025, t01=0x00dc}
0x3ac2…3acc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00fc}
0x3acc…3b02 Head {h00=0x0032, h01=0x0050, text=» LDK A1,WARNRW RETURN CODE READ/WRITE WARNING «, t00=0x0025, t01=0x0106}
0x3b02…3b2e Head {h00=0x0028, h01=0x0050, text=» CWK A2,WRWARN WAS IT WRITE WARNING?«, t00=0x0025, t01=0x013c}
0x3b2e…3b4e Head {h00=0x001c, h01=0x0050, text=» RB(E) ENDIO2 YES, EXIT «, t00=0x0025, t01=0x0168}
0x3b4e…3b58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0188}
0x3b58…3b96 (38, 0, 400) Head {h00=0x003a, h01=0x0050, text=» LDK A1,THRERR ILLEGAL STATUS FROM MSU. THROUGHPUT ERR«, t00=0x0026, t01=0x0004}
0x3b96…3ba8 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO2«, t00=0x0026, t01=0x0042}
0x3ba8…3bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0054}
0x3bb2…3bca Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0026, t01=0x005e}
0x3bca…3bd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0076}
0x3bd4…3c0e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x0080}
0x3c0e…3c18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ba}
0x3c18…3c3a Head {h00=0x001e, h01=0x0050, text=»* END OF OPERATION /26«, t00=0x0026, t01=0x00c4}
0x3c3a…3c44 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00e6}
0x3c44…3c7e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0026, t01=0x00f0}
0x3c7e…3c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x012a}
0x3c88…3c9c Head {h00=0x0010, h01=0x0050, text=»ENDOP EQU * «, t00=0x0026, t01=0x0134}
0x3c9c…3cc4 Head {h00=0x0024, h01=0x0050, text=» LDK A4,DOCESC DOCUMENT ESCAPED «, t00=0x0026, t01=0x0148}
0x3cc4…3ce8 Head {h00=0x0020, h01=0x0050, text=» LC A2,DWTST+1,A6 GET STATUS«, t00=0x0026, t01=0x0170}
0x3ce8…3cfc (39, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x0004}
0x3cfc…3d12 Head {h00=0x0012, h01=0x0050, text=» RF(NE) END10 «, t00=0x0027, t01=0x0018}
0x3d12…3d3a Head {h00=0x0024, h01=0x0050, text=»END05 LDK A2,RESET GENERAL RESET«, t00=0x0027, t01=0x002e}
0x3d3a…3d5e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0027, t01=0x0056}
0x3d5e…3d8c Head {h00=0x002a, h01=0x0050, text=» CF A5,STREG WAIT FOR MESSAGE FROM MSU«, t00=0x0027, t01=0x007a}
0x3d8c…3dbc Head {h00=0x002c, h01=0x0050, text=»END10 CWK A2,DOCINS DOCUMENT INSERTED ? «, t00=0x0027, t01=0x00a8}
0x3dbc…3dd4 Head {h00=0x0014, h01=0x0050, text=» RB(E) END05 YES«, t00=0x0027, t01=0x00d8}
0x3dd4…3dfa Head {h00=0x0022, h01=0x0050, text=» CWR A2,A4 DOCUMENT ESCAPED ? «, t00=0x0027, t01=0x00f0}
0x3dfa…3e12 Head {h00=0x0014, h01=0x0050, text=» RF(NE) END15 NO«, t00=0x0027, t01=0x0116}
0x3e12…3e42 Head {h00=0x002c, h01=0x0050, text=» SC A4,DWTST+1,A6 CHAR TO STATUS IN DWT «, t00=0x0027, t01=0x012e}
0x3e42…3e54 Head {h00=0x000e, h01=0x0050, text=» LDK A1,0 «, t00=0x0027, t01=0x015e}
0x3e54…3e66 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO2«, t00=0x0027, t01=0x0170}
0x3e66…3e92 Head {h00=0x0028, h01=0x0050, text=»END15 LDK A1,THRERR THROUGHPUT ERROR«, t00=0x0027, t01=0x0182}
0x3e92…3eaa Head {h00=0x0014, h01=0x0050, text=»ENDIO3 RB ENDIO2«, t00=0x0028, t01=0x001e}
0x3eaa…3ec2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0028, t01=0x0036}
0x3ec2…3ecc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x004e}
0x3ecc…3ee0 Head {h00=0x0010, h01=0x0050, text=»* I H M S «, t00=0x0028, t01=0x0058}
0x3ee0…3eea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x006c}
0x3eea…3f08 Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER «, t00=0x0028, t01=0x0076}
0x3f08…3f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0094}
0x3f12…3f1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009e}
0x3f1c…3f2e Head {h00=0x000e, h01=0x0050, text=»IHMS EQU *«, t00=0x0028, t01=0x00a8}
0x3f2e…3f42 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0028, t01=0x00ba}
0x3f42…3f6a Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTST,A6 GET STATUS WORD «, t00=0x0028, t01=0x00ce}
0x3f6a…3f86 Head {h00=0x0018, h01=0x0050, text=» RF(NN) IHM100 BUSY «, t00=0x0028, t01=0x00f6}
0x3f86…3fa2 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 SAVE CHAR«, t00=0x0028, t01=0x0112}
0x3fa2…3fca Head {h00=0x0024, h01=0x0050, text=» SUK A3,DOCINS DOCUMENT INSERTED«, t00=0x0028, t01=0x012e}
0x3fca…3fe0 Head {h00=0x0012, h01=0x0050, text=» RF(E) IHMS10 «, t00=0x0028, t01=0x0156}
0x3fe0…3ff6 Head {h00=0x0012, h01=0x0050, text=» ADK A3,DOCINS«, t00=0x0028, t01=0x016c}
0x3ff6…401e Head {h00=0x0024, h01=0x0050, text=» SUK A3,DOCESC DOCUMENT ESCAPED «, t00=0x0028, t01=0x0182}
0x401e…4032 Head {h00=0x0010, h01=0x0050, text=» RF(NE) EXIT«, t00=0x0029, t01=0x001a}
0x4032…4046 Head {h00=0x0010, h01=0x0050, text=»IHMS10 EQU *«, t00=0x0029, t01=0x002e}
0x4046…4070 Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTST+1,A6 SET STATUS WORD «, t00=0x0029, t01=0x0042}
0x4070…4098 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0029, t01=0x006c}
0x4098…40a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0094}
0x40a2…40ba Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0029, t01=0x009e}
0x40ba…40c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00b6}
0x40c4…40dc Head {h00=0x0014, h01=0x0050, text=»* DEVICE BUSY «, t00=0x0029, t01=0x00c0}
0x40dc…40e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00d8}
0x40e6…40fa Head {h00=0x0010, h01=0x0050, text=»IHM100 EQU *«, t00=0x0029, t01=0x00e2}
0x40fa…4128 Head {h00=0x002a, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHLT/CHRT «, t00=0x0029, t01=0x00f6}
0x4128…415a Head {h00=0x002e, h01=0x0050, text=» RB(NE) ENDIO3 YES; INDICATE NOT OPERABLE «, t00=0x0029, t01=0x0124}
0x415a…417c Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 OUTPUT ANSWER ?«, t00=0x0029, t01=0x0156}
0x417c…4194 Head {h00=0x0014, h01=0x0050, text=» RF(Z) IHRET YES«, t00=0x0029, t01=0x0178}
0x4194…41b6 Head {h00=0x001e, h01=0x0050, text=» SUK A7,INCARD INSERT CARD«, t00=0x0029, t01=0x0190}
0x41b6…41ce Head {h00=0x0014, h01=0x0050, text=» RF(E) IHRET YES«, t00=0x002a, t01=0x0022}
0x41ce…41e4 Head {h00=0x0012, h01=0x0050, text=» ADK A7,INCARD«, t00=0x002a, t01=0x003a}
0x41e4…420e Head {h00=0x0026, h01=0x0050, text=» SUK A7,ENOFOP END OF OPERATION ? «, t00=0x002a, t01=0x0050}
0x420e…4222 Head {h00=0x0010, h01=0x0050, text=» RF(E) IHRET«, t00=0x002a, t01=0x007a}
0x4222…4234 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002a, t01=0x008e}
0x4234…425e Head {h00=0x0026, h01=0x0050, text=» SUK A4,DOCESC DOCUMENT ESCAPED ? «, t00=0x002a, t01=0x00a0}
0x425e…4278 Head {h00=0x0016, h01=0x0050, text=» RF(E) IHM140 YES «, t00=0x002a, t01=0x00ca}
0x4278…42b8 Head {h00=0x003c, h01=0x0050, text=»IHRET ABL LDREG LOAD REG. AND RETURN CALLING SEQ VIA A5 «, t00=0x002a, t01=0x00e4}
0x42b8…42c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0124}
0x42c2…42de Head {h00=0x0018, h01=0x0050, text=»IHM140 LDK A4,DOCESC«, t00=0x002a, t01=0x012e}
0x42de…430a Head {h00=0x0028, h01=0x0050, text=» SC A4,DWTST+1,A6 UPDATE STATUS WORD«, t00=0x002a, t01=0x014a}
0x430a…432e Head {h00=0x0020, h01=0x0050, text=» LDKL A1,CARMIS CARD MISSING«, t00=0x002a, t01=0x0176}
0x432e…4346 Head {h00=0x0014, h01=0x0050, text=»ENDIO4 RB ENDIO3«, t00=0x002b, t01=0x000a}
0x4346…435e Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x002b, t01=0x0022}
0x435e…4368 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x003a}
0x4368…4372 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0044}
0x4372…4386 Head {h00=0x0010, h01=0x0050, text=»* R C M S «, t00=0x002b, t01=0x004e}
0x4386…4390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0062}
0x4390…43ac Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE«, t00=0x002b, t01=0x006c}
0x43ac…43b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0088}
0x43b6…43c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0092}
0x43c0…43d2 Head {h00=0x000e, h01=0x0050, text=»RCMS EQU *«, t00=0x002b, t01=0x009c}
0x43d2…43dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ae}
0x43dc…43f2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x002b, t01=0x00b8}
0x43f2…4420 Head {h00=0x002a, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON A15 STACK «, t00=0x002b, t01=0x00ce}
0x4420…442c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x00fc}
0x442c…4436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0108}
0x4436…444c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x002b, t01=0x0112}
0x444c…446a Head {h00=0x001a, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 «, t00=0x002b, t01=0x0128}
0x446a…4476 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0146}
0x4476…4480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0152}
0x4480…4496 Head {h00=0x0012, h01=0x0050, text=» LDK A2,DOCESC«, t00=0x002b, t01=0x015c}
0x4496…44c2 Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTST+1,A6 RESET STATUS WORD «, t00=0x002b, t01=0x0172}
0x44c2…44e0 Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTST,A6 BUSY? «, t00=0x002c, t01=0x000e}
0x44e0…44f6 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x002c, t01=0x002c}
0x44f6…451e Head {h00=0x0024, h01=0x0050, text=» LDK A1,THRERR THROUGHPUT ERROR «, t00=0x002c, t01=0x0042}
0x451e…4530 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO4«, t00=0x002c, t01=0x006a}
0x4530…4548 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x002c, t01=0x007c}
0x4548…4552 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0094}
0x4552…4584 Head {h00=0x002e, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE CHARACTER «, t00=0x002c, t01=0x009e}
0x4584…45c2 Head {h00=0x003a, h01=0x0050, text=»* IN ECB-BUFFER AND INCREMENT BUFFER INDEX. «, t00=0x002c, t01=0x00d0}
0x45c2…45cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x010e}
0x45cc…45e0 Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x002c, t01=0x0118}
0x45e0…4606 Head {h00=0x0022, h01=0x0050, text=» LD A7,ECBBA,A8 BUFFER ADDRESS«, t00=0x002c, t01=0x012c}
0x4606…462a Head {h00=0x0020, h01=0x0050, text=» ADR A7,A3 ADD BUFFER INDEX «, t00=0x002c, t01=0x0152}
0x462a…4648 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A7 STORE CHAR «, t00=0x002c, t01=0x0176}
0x4648…4666 (45, 0, 400) Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 INCR. INDEX «, t00=0x002d, t01=0x0004}
0x4666…4676 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002d, t01=0x0022}
0x4676…4680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0032}
0x4680…468e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x003c}
0x468e…4698 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x004a}
0x4698…46c6 Head {h00=0x002a, h01=0x0050, text=»* CDCHK = CHECK IF CODE CHECK ERROR «, t00=0x002d, t01=0x0054}
0x46c6…46d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0082}
0x46d0…46f2 Head {h00=0x001e, h01=0x0050, text=»* AT ENTRY: A2=CHARACTER«, t00=0x002d, t01=0x008c}
0x46f2…471a Head {h00=0x0024, h01=0x0050, text=»* AT EXIT: A1=RERURN CODE 0,2 «, t00=0x002d, t01=0x00ae}
0x471a…4724 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00d6}
0x4724…4738 Head {h00=0x0010, h01=0x0050, text=»CDCHK EQU * «, t00=0x002d, t01=0x00e0}
0x4738…474a Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x002d, t01=0x00f4}
0x474a…476a Head {h00=0x001c, h01=0x0050, text=» SUK A1,/30 VALID CODE? «, t00=0x002d, t01=0x0106}
0x476a…4782 Head {h00=0x0014, h01=0x0050, text=» RF(N) CDC20 NO «, t00=0x002d, t01=0x0126}
0x4782…479c Head {h00=0x0016, h01=0x0050, text=» SUK A1,10 DIGIT? «, t00=0x002d, t01=0x013e}
0x479c…47b8 Head {h00=0x0018, h01=0x0050, text=» RF(N) CDC30 YES, OK«, t00=0x002d, t01=0x0158}
0x47b8…47c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0174}
0x47c2…47f4 Head {h00=0x002e, h01=0x0050, text=»* THE CHARACTER IS A CONTROL CHARACTER «, t00=0x002d, t01=0x017e}
0x47f4…481a Head {h00=0x0022, h01=0x0050, text=» LD A1,DWTFRT,A6 CREDIT CARD? «, t00=0x002e, t01=0x0020}
0x481a…4834 Head {h00=0x0016, h01=0x0050, text=» RF(NN) CDC10 YES «, t00=0x002e, t01=0x0046}
0x4834…483e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0060}
0x483e…485a Head {h00=0x0018, h01=0x0050, text=»* GERMAN PASSBOOK«, t00=0x002e, t01=0x006a}
0x485a…487e Head {h00=0x0020, h01=0x0050, text=» CWK A2,/3E FIELD SEPARATOR?«, t00=0x002e, t01=0x0086}
0x487e…489a Head {h00=0x0018, h01=0x0050, text=» RF(E) CDC30 YES, OK«, t00=0x002e, t01=0x00aa}
0x489a…48b6 Head {h00=0x0018, h01=0x0050, text=» RF CDC20 NO, ERROR «, t00=0x002e, t01=0x00c6}
0x48b6…48c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00e2}
0x48c0…48d4 Head {h00=0x0010, h01=0x0050, text=»CDC10 EQU * «, t00=0x002e, t01=0x00ec}
0x48d4…4900 Head {h00=0x0028, h01=0x0050, text=»* CREDIT CARD / AMERICAN PASSBOOK«, t00=0x002e, t01=0x0100}
0x4900…491c Head {h00=0x0018, h01=0x0050, text=» LDR A1,A2 CHARACTER«, t00=0x002e, t01=0x012c}
0x491c…4942 Head {h00=0x0022, h01=0x0050, text=» SUK A1,/3A ACCOUNT SEPARATOR?«, t00=0x002e, t01=0x0148}
0x4942…495e Head {h00=0x0018, h01=0x0050, text=» RF(Z) CDC30 YES, OK«, t00=0x002e, t01=0x016e}
0x495e…4980 Head {h00=0x001e, h01=0x0050, text=» SUK A1,3 FIELD SEPARATOR?«, t00=0x002e, t01=0x018a}
0x4980…499c Head {h00=0x0018, h01=0x0050, text=» RF(Z) CDC30 YES, OK«, t00=0x002f, t01=0x001c}
0x499c…49a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0038}
0x49a6…49ba Head {h00=0x0010, h01=0x0050, text=»CDC20 EQU * «, t00=0x002f, t01=0x0042}
0x49ba…49d8 Head {h00=0x001a, h01=0x0050, text=»* ILLEGAL CHARACTER«, t00=0x002f, t01=0x0056}
0x49d8…4a0a Head {h00=0x002e, h01=0x0050, text=» LDK A1,THRERR RET CODE := THROUGHPUT ERR «, t00=0x002f, t01=0x0074}
0x4a0a…4a30 Head {h00=0x0022, h01=0x0050, text=» ORS A1,ECBRC,A8 INSERT IN ECB«, t00=0x002f, t01=0x00a6}
0x4a30…4a46 Head {h00=0x0012, h01=0x0050, text=» RF CDC40 EXIT«, t00=0x002f, t01=0x00cc}
0x4a46…4a50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x00e2}
0x4a50…4a64 Head {h00=0x0010, h01=0x0050, text=»CDC30 EQU * «, t00=0x002f, t01=0x00ec}
0x4a64…4a80 Head {h00=0x0018, h01=0x0050, text=»* VALID CHARACTER«, t00=0x002f, t01=0x0100}
0x4a80…4aa4 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RETURN CODE := OK «, t00=0x002f, t01=0x011c}
0x4aa4…4ab8 Head {h00=0x0010, h01=0x0050, text=»CDC40 EQU * «, t00=0x002f, t01=0x0140}
0x4ab8…4ac8 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x002f, t01=0x0154}
0x4ac8…4ad2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0164}
0x4ad2…4ade Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x002f, t01=0x016e}
0x4ade…4ae2 Head {h00=0x4004, h01=0x0000}
0x4ae2…4ae6 00 2f 01 7a ┆ / z┆
0x4ae6…4aee (48, 1, 8) 20 04 00 00 00 30 00 04 ┆ 0 ┆
0x4aee…4b3e (49, 0, 400) 47 20 00 08 01 68 00 2a 00 50 2a 5c 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 4d 4d 55 50 41 47 20 45 51 55 20 31 2e 00 09 00 0a 00 06 00 50 2a 20 00 09 00 38 00 10 00 50 4d 4d 55 50 41 47 5c 45 51 55 5c 30 00 09 ┆G h * P* IS OBTAINED BY SETTING MMUPAG EQU 1. P* 8 PMMUPAG EQU 0 ┆
0x4b3e…4b8e 00 42 00 06 00 50 2a 20 00 09 00 56 00 06 00 50 2a 20 00 09 00 60 00 36 00 50 2a 5c 41 20 50 52 4f 47 52 41 4d 20 56 45 52 53 49 4f 4e 20 55 53 49 4e 47 20 54 48 45 20 45 58 54 45 4e 44 45 44 20 49 4e 53 54 52 55 43 54 49 4f 4e 00 09 00 6a ┆ B P* V P* ` 6 P* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION j┆
0x4b8e…4bde 00 2e 00 50 2a 5c 53 45 54 20 49 53 20 4f 42 54 41 49 4e 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 43 50 55 38 35 32 20 45 51 55 20 30 2e 00 09 00 a4 00 06 00 50 2a 20 00 09 00 d6 00 10 00 50 43 50 55 38 35 32 5c 45 51 55 5c 31 00 09 00 e0 ┆ . P* SET IS OBTAINED BY SETTING CPU852 EQU 0. P* PCPU852 EQU 1 ┆
0x4bde…4c2e 00 06 00 50 2a 20 00 09 00 f4 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 09 00 fe 00 06 00 50 2a 20 00 09 01 16 00 06 00 50 2a 20 00 09 01 20 00 40 00 50 2a 20 20 20 20 4f 52 44 45 52 53 20 2f 32 31 20 4f 50 45 4e 20 41 ┆ P* P EJECT DRFD01 P* P* @ P* ORDERS /21 OPEN A┆
0x4c2e…4c7e 4e 44 20 2f 32 32 20 43 4c 4f 53 45 20 57 48 49 43 48 20 43 4f 4e 54 52 4f 4c 53 20 54 48 45 20 50 4f 57 45 52 20 00 09 01 2a 00 44 00 50 2a 20 20 20 20 54 4f 20 54 48 45 20 44 49 53 4b 20 44 52 49 56 45 20 55 4e 49 54 20 43 41 4e 20 42 45 ┆ND /22 CLOSE WHICH CONTROLS THE POWER * D P* TO THE DISK DRIVE UNIT CAN BE┆
0x4c7e…4cce (50, 0, 400) 20 49 4e 43 4c 55 44 45 44 20 42 59 20 53 45 54 54 49 4e 47 20 4f 50 43 4c 4f 53 20 3d 31 00 09 01 6e 00 06 00 50 2a 20 00 0a 00 26 00 0e 00 50 58 3a 44 5c 45 51 55 5c 30 20 00 0a 00 30 00 12 00 50 4f 50 43 4c 4f 53 5c 45 51 55 5c 58 3a 44 ┆ INCLUDED BY SETTING OPCLOS =1 n P* & PX:D EQU 0 0 POPCLOS EQU X:D┆
0x4cce…4d1e 00 0a 00 42 00 06 00 50 2a 20 00 0a 00 58 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 0a 00 62 00 06 00 50 2a 20 00 0a 00 7a 00 06 00 50 2a 20 00 0a 00 84 00 18 00 50 2a 20 20 20 4d 4d 55 20 42 55 46 46 45 52 20 53 49 5a ┆ B P* X P EJECT DRFD01 b P* z P* P* MMU BUFFER SIZ┆
0x4d1e…4d6e 45 20 00 0a 00 8e 00 06 00 50 2a 20 00 0a 00 aa 00 06 00 50 2a 20 00 0a 00 b4 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 30 20 00 0a 00 be 00 12 00 50 44 56 42 4c 45 4e 5c 45 51 55 5c 32 35 36 00 0a 00 d4 00 08 00 50 5c 58 49 46 00 0a ┆E P* P* P IFT MMUPAG=0 PDVBLEN EQU 256 P XIF ┆
0x4d6e…4dbe 00 ea 00 06 00 50 2a 20 00 0a 00 f6 00 12 00 50 5c 49 46 54 5c 4d 4d 55 50 41 47 3d 31 20 00 0a 01 00 00 12 00 50 58 3a 45 5c 45 51 55 5c 32 35 36 5c 5c 20 00 0a 01 16 00 14 00 50 44 56 42 4c 45 4e 5c 45 51 55 5c 58 3a 45 5c 5c 00 0a 01 2c ┆ P* P IFT MMUPAG=1 PX:E EQU 256 PDVBLEN EQU X:E ,┆
0x4dbe…4e0e 00 08 00 50 5c 58 49 46 00 0a 01 44 00 06 00 50 2a 20 00 0a 01 50 00 06 00 50 2a 20 00 0a 01 5a 00 18 00 50 2a 20 20 20 4d 4d 55 20 44 45 56 49 43 45 20 49 4e 44 45 58 00 0a 01 64 00 06 00 50 2a 20 00 0a 01 80 00 06 00 50 2a 20 00 0a 01 8a ┆ P XIF D P* P P* Z P* MMU DEVICE INDEX d P* P* ┆
0x4e0e…4e5e (51, 0, 400) 00 12 00 50 44 45 56 49 4e 44 5c 45 51 55 5c 31 30 20 00 0b 00 04 00 06 00 50 2a 20 00 0b 00 1a 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 0b 00 24 00 06 00 50 2a 20 00 0b 00 3c 00 12 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ PDEVIND EQU 10 P* P EJECT DRFD01 $ P* < P**********┆
0x4e5e…4eae 2a 2a 2a 20 00 0b 00 46 00 12 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 0b 00 5c 00 12 00 50 2a 20 43 4f 4e 53 54 41 4e 54 53 20 2a 20 00 0b 00 72 00 12 00 50 2a 20 20 20 20 20 20 20 20 20 20 20 2a 20 00 0b 00 88 00 12 00 50 2a 2a ┆*** F P* * P* CONSTANTS * r P* * P**┆
0x4eae…4efe 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 00 0b 00 9e 00 06 00 50 2a 20 00 0b 00 b4 00 26 00 50 43 55 41 44 52 5c 45 51 55 5c 30 39 5c 43 4f 4e 54 52 4f 4c 20 55 4e 49 54 20 41 44 44 52 45 53 53 20 00 0b 00 be 00 26 00 50 4d 55 58 41 44 52 5c 45 ┆*********** P* & PCUADR EQU 09 CONTROL UNIT ADDRESS & PMUXADR E┆
0x4efe…4f4e 51 55 5c 43 55 41 44 52 2b 43 55 41 44 52 5c 4d 55 58 2d 41 44 44 52 45 53 53 00 0b 00 e8 00 28 00 50 53 4f 50 44 41 5c 45 51 55 5c 2f 32 45 5c 53 2e 4f 2e 50 2e 20 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 0b 01 12 00 20 00 50 53 45 ┆QU CUADR+CUADR MUX-ADDRESS ( PSOPDA EQU /2E S.O.P. DEVICE ADDRESS PSE┆
0x4f4e…4f9e 43 4c 45 4e 5c 45 51 55 5c 31 32 38 5c 53 45 43 54 4f 52 20 4c 45 4e 47 54 48 00 0b 01 3e 00 26 00 50 4d 41 58 53 45 43 5c 45 51 55 5c 32 30 30 32 5c 4d 41 58 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 00 0b 01 62 00 2e 00 50 4d 41 58 49 ┆CLEN EQU 128 SECTOR LENGTH > & PMAXSEC EQU 2002 MAX SECTOR NUMBER b . PMAXI┆
0x4f9e…4fee (52, 0, 398) 42 4d 5c 45 51 55 5c 31 39 32 33 5c 4d 41 58 20 53 45 43 54 4f 52 20 4e 55 4d 42 45 52 20 49 42 4d 20 44 49 53 43 00 0b 01 8c 00 28 00 50 42 4f 45 5c 45 51 55 5c 32 38 5c 42 45 47 49 4e 20 4f 46 20 45 58 54 45 4e 54 20 50 4f 53 49 54 49 4f ┆BM EQU 1923 MAX SECTOR NUMBER IBM DISC ( PBOE EQU 28 BEGIN OF EXTENT POSITIO┆
0x4fee…503e 4e 20 00 0c 00 2e 00 26 00 50 45 4f 45 5c 45 51 55 5c 33 34 5c 45 4e 44 20 4f 46 20 45 58 54 45 4e 54 20 50 4f 53 49 54 49 4f 4e 20 00 0c 00 5a 00 24 00 50 45 4f 44 5c 45 51 55 5c 37 34 5c 45 4e 44 20 4f 46 20 44 41 54 41 20 50 4f 53 49 54 ┆N . & PEOE EQU 34 END OF EXTENT POSITION Z $ PEOD EQU 74 END OF DATA POSIT┆
0x503e…508e 49 4f 4e 20 00 0c 00 84 00 20 00 50 54 49 4d 45 5c 45 51 55 5c 32 30 5c 44 45 4c 41 59 20 2d 20 50 4f 57 45 52 20 4f 4e 00 0c 00 ac 00 26 00 50 4f 50 45 4e 54 49 5c 45 51 55 5c 31 30 5c 44 45 4c 41 59 20 41 54 20 4f 50 45 4e 20 4f 52 44 45 ┆ION PTIME EQU 20 DELAY - POWER ON & POPENTI EQU 10 DELAY AT OPEN ORDE┆
0x508e…50de 52 53 00 0c 00 d0 00 06 00 50 2a 20 00 0c 00 fa 00 24 00 50 44 49 58 54 41 42 5c 45 51 55 5c 2a 5c 44 4f 55 42 4c 45 20 49 4e 44 45 58 20 54 41 42 4c 45 20 00 0c 01 04 00 10 00 50 5c 44 41 54 41 5c 2f 30 31 30 32 20 00 0c 01 2c 00 10 00 50 ┆RS P* $ PDIXTAB EQU * DOUBLE INDEX TABLE P DATA /0102 , P┆
0x50de…512c 5c 44 41 54 41 5c 2f 30 34 30 38 20 00 0c 01 40 00 06 00 50 2a 20 00 0c 01 54 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 46 44 30 31 20 00 0c 01 5e 00 06 00 50 2a 20 00 0c 01 76 00 0e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 0c 01 80 ┆ DATA /0408 @ P* T P EJECT DRFD01 ^ P* v P********** ┆