|
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: 27016 (0x6988)
Notes: pts_type(SC)
Names: »DRMS02.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRMS02.SC«
└─⟦bc20f3abf⟧ Bits:30009670 Philips computer tape "600126"
└─⟦this⟧ »TOSSWORK/DRMS02.SC«
IDENT DRMS02 REL 11.0 81-01-26 870105041100 * ************************************************* * * 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 * /02 READ * /06 WRITE CARD WRITE * /0A READ CARD RANDOM READ * /21 OPEN - * /26 END OF OPERATION DSC0 CC=4 * /31 RESET CIRCULAR BUFFER * /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 LENDER I/O REQUEST ERROR =1 EXTRN OUTPUT SEND CHARACTER =1 EXTRN LDISP DISPATCHER =1 EXTRN NDGET8 RELOAD REGISTERS AND RETURN =1 EXTRN TENDIO END I/O =1 EXTRN GETCHR HET CHARACTER FROM ECB BUFFER =1 EXTRN STABLK START OF BLOCK =1 EXTRN ENDBLK END OF BLOCK =1 EXTRN DWTDEV DEVICE STATUS =1 EXTRN INPUT READ CHARCTER =1 * * 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 * * X:B EQU 10 LENGTH OF CIRCULAR INPUT BUFFER DWTLNG EQU X:B NUMBER OF BYTES IN DECIMAL FORM 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 * * DWTTIM EQU /2 TIMER POINTER =1 DWTSEC EQU /4 DWTFRT EQU /6 BIT 0 CREDIT CARD / GERMAN BANK BOOK FLAG =1 BIT 1-7 NOT USED =1 BIT 8-15 RETRY COUNTER SAVE AREA =1 DWTLRC EQU /8 LRC - ACKUMULATOR =1 * * CIRCULAR INPUT BUFFER * DWTINQ EQU /0C POINTER TO FIRST PLACE DWTUTQ EQU /0E POINTER TO LAST PLACE DWTSQ EQU /10 START OF BUFFER DWTEQ EQU DWTSQ+DWTLNG END OF BUFFER * 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,/2102,/3100 TABL EQU *-TAB-1 NUMBER OF ENTRIES * MSFUN EQU * MAGNETIC STRIPE FUNCTION DATA WRITE,READ,INSERT DATA ENDOP,OPEN DATA RDPIN,RST READ PIN - KEYBOARD AND RST BUFFER EJECT DRMS02 * * * A C M S * * ACTIVATION PART: CHECKS VALIDITY OF ORDERS * AND STARTS PROCESSING. * * ACMS EQU * LDK A1,0 RESET RETURN CODE =2 LDK A3,0 RESET BUFFER INDEX 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 EQU * DISPATCH END I/O =1 ABL LENDER REQUEST ERROR =1 * ACMS20 EQU * ADR A4,A4 GET INDEX ABI MSFUN,A4 BRANCH TO VALID FUNCTION MODULE * EJECT DRMS02 * ******************************** * * R E A D PIN - KEYBOARD * ******************************** * RDPIN EQU * LD A2,ECBRL,A8 REQUESTED LENGTH = 0 RF(E) OPEN20 YES END I/O LDR A3,A3 FIRST TIME RF(NE) RDP020 NO LD A1,ECBBA,A8 BUFFER ADRESS SUK A1,1 ADJUST BUFFER ADRESS ADR A1,A2 END OF BUFFER RDP010 EQU * SCR A3,A1 CLEAR ECB BUFFER SUK A1,1 SUK A2,1 WHOLE BUFFER CLEARED RB(NE) RDP010 NO RDP020 EQU * LD A1,DWTDEV+DWTUTQ,A6 GET CHARACTER ;CHECK IF OVERFLOW LCR A2,A1 GET CHARACTER LDR A4,A2 XRK A4,/FF OVERFLOW RF(NE) RDP030 NO SCR A4,A1 YES LDK A1,2 SET OVERFLOW IN RETURN CODE RF ENDIO END I/O REQUEST RDP030 EQU * CW A1,DWTDEV+DWTINQ,A6 ANYTHING IN QUEUE RF(NE) RDP040 YES CF A5,INPUT NO ; READ A CHARACTER RF RDP047 RDP040 EQU * CF A15,EOQUEU SET NEW BUFFER POINTER ST A1,DWTDEV+DWTUTQ,A6 SET NEW BUFFER RDP047 EQU * CW A3,ECBRL,A8 REQ.LEN = EFF.LEN RF(NL) RDP080 YES ; ERROR LD A1,ECBCW,A8 KEY TABLE ADRESS RF(Z) RDP060 NO LCR A4,A1 GET KEY TABLE LENGTH ANK A4,/FF ADR A1,A4 LAST PLACE IN KEY TABLE ADK A1,1 RDP050 EQU * SUK A4,1 RF(N) RDP060 KEY NOT FOUND IN KEY TABLE SUK A1,1 NEXT KEY CCR A2,A1 FOUND RB(NE) RDP050 NO ADK A4,1 KEY FOUND ; MAKE KEY TABLE INDEX RDP055 EQU * ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH IN ECB CF A15,STORE STORE KEY IN ECB BUGFFER RF OPEN20 END I/O RDP060 EQU * CWK A2,/0D NO KEY TABLE CHECK IF STANDARD END OF RECORD RF(NE) RDP070 NOT EOR - KEY LDK A4,1 SET INDEX TO STANDARD EOR RB RDP055 END I/O RDP070 EQU * CF A15,STORE STORE CHARACTER IN ECB BUFFER RB RDP020 GET NEXT CHARACTER RDP080 EQU * LDK A1,8 SET ERROR CODE RF ENDIO END I/O REQUEST EJECT DRMS02 * ***************************** * * R S T CIRCULAR INPUT BUFFER * ********************************* * * RST EQU * INH LD A2,DWTDEV+DWTINQ,A6 POINTER TO FIRST PLACE SCR A1,A2 RESET POINTER ST A2,DWTDEV+DWTUTQ,A6 SET POINTER TO LAST PLACE ENB RF ENDIO END I/O REQUEST 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+DWTDEV,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+DWTDEV,A6 SET FORMAT FLAG, * INDICATING GERMAN BOOK * OPEN20 EQU * LDK A1,0 RETURN CODE RF ENDIO EXIT * EJECT DRMS02 * ************************************************** * * END OF OPERATION /26 AND INSERT CARD /11 =2 * ************************************************** * ENDOP EQU * =2 LDK A4,DOCESC =2 RF COMMON =2 INSERT EQU * =2 LDK A4,DOCINS =2 CC A4,DWTDEV+1,A6 =2 RF(E) ENDIO DOCUMENT ALREADY INSERTED =2 COMMON EQU * =2 LDK A2,/6 BLOCK SIZE =1 CF A5,STABLK START OF BLOCK =1 RF(NZ) ERRMS1 ERROR END I/O =1 LDK A2,RESET GENERAL RESET CF A5,OUTPUT SEND IT RF(NZ) ERRMS1 ERROR END I/O =1 CF A5,ENDBLK END BLOCK =1 RF(NZ) ERRMS1 ERROR END I/O =1 CC A4,DWTDEV+1,A6 =2 RF(E) ENDIO DOCUMENT ALREADY ESCAPED =2 CF A5,INPUT WAIT FOR MESSAGE FROM MSU LDR A3,A2 =2 SUK A2,DOCINS =2 RF(E) COM100 DOCUMENT INSERTED =2 SUK A2,DOCESC-DOCINS =2 RF(E) COM100 DOCUMENT ESCAPED =2 LDK A1,THRERR THROUGHPUT ERROR =2 COM100 EQU * =2 SC A3,DWTDEV+1,A6 UPDATE DOCUMENT STATUS =2 EJECT DRMS02 * * END OF INPUT/OUTPUT REQUEST * ENDIO EQU * CF A15,TENDIO END I/O =1 ABL LDISP DISPATCH =1 EJECT DRMS02 * ************************************************** * * READ CARD /0A * ************************************************** * READ EQU * LC A2,DWTDEV+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 A2,104 MAX BLOCK SIZE =1 CF A5,STABLK START BLOCK =1 RF(NZ) ERRMS1 ERROR END I/O =1 LDK A3,0 RESET BUFFER INDEX LD A2,DWTFRT+DWTDEV,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 ABL(N) MSERR TRACK < 2 CWK A2,1 ABL(G) MSERR TRACK > 3 ADK A2,SELTRA COMPUTE TRACK TO SELECT * CF A5,OUTPUT SEND READ TRACK COMMAND (/06 OR /07) RF(NZ) ERRMS1 ERROR END I/O =1 CF A5,ENDBLK END OF BLOCK =1 RF(NZ) ERRMS1 ERROR END I/O =1 * 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 RF(NZ) ERRMS1 ERROR END I/O =1 CF A5,ENDBLK END OF BLOCK =1 * ERRMS1 EQU * ERROR END I/O =1 RF(NZ) ERRMS2 ERROR END I/O =1 CF A5,REABLK READ FIRST BLOCK CWK A1,INCLEN BUFFER OVERFLOW? RB(E) ENDIO YES, EXIT * SC A4,DWTFRT+DWTDEV+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+DWTDEV+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,INPUT 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,DWTDEV+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+DWTDEV,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+DWTDEV,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 A3,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 A3,CRDSTX START CHAR GERMAN BOOK * WRIT09 EQU * LDK A2,80 MAX BLOCK SIZE =1 CF A5,STABLK START BLOCK =1 ERRMS2 EQU * ERROR END I/O =1 RF(NZ) ERRMS EERROR END I/O =1 LDR A2,A3 =2 LDK A3,0 RESET BUFFER INDEX * WRIT10 EQU * XRS A2,DWTLRC+DWTDEV,A6 UPDATE LRC-ACKUMULATOR CF A5,OUTPUT SEND CHARACTER RF(NZ) ERRMS ERROR END I/O =1 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+DWTDEV,A6 UPDATE LRC CF A5,OUTPUT SEND CHARACTER RF(NZ) ERRMS ERROR END I/O =1 LD A2,DWTLRC+DWTDEV,A6 LRC-CHARACTER ORK A2,/30 SET ZONE CF A5,OUTPUT SEND LRC-CHARACTER RF(NZ) ERRMS ERROR END I/O =1 * * SEND WRITE TRACK COMMAND LDK A2,ENCTRD ASSUME GERMAN PASSBOOK LD A1,DWTFRT+DWTDEV,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 RF(NZ) ERRMS ERROR END I/O =1 CF A5,ENDBLK END BLOCK =1 RF(NZ) ERRMS ERROR END I/O =1 CF A5,INPUT 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 * * 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 SUK A3,DOCESC-DOCINS =2 RF(NE) IHMS20 NEITHER INSERTED OR ESCAPED IHMS10 EQU * SC A2,DWTDEV+1,A6 SET STATUS WORD EXIT ABL LDISP GO TO DISPATCHER * IHMS20 EQU * * * STORE INCOMING CHARACTER IN CIRCULAR BUFFER * LD A1,DWTDEV+DWTINQ,A6 LCR A4,A1 XRK A4,/FF ALREADY OVERFLOW ? RB(E) EXIT YES ! * LDR A4,A1 CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS * CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ? RF(NE) IHMS30 NO ! ORK A2,/FF SET OVERFLOW BIT IN BUFFER RF IHMS40 * IHMS30 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER IHMS40 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER * RB EXIT DISPATCH EJECT DRMS02 * * DEVICE BUSY * IHM100 EQU * SUK A7,INCARD RF(E) IHRET INSERT CARD ORDER CODE ADK A7,INCARD-ENOFOP =2 RF(E) IHRET END OF OPERATION ORDER CODE LDR A4,A2 SUK A4,DOCESC RF(E) IHM140 DOCUMENT ESCAPED IHRET EQU * ABL LENDER * IHM140 EQU * =2 SC A2,DWTST+1,A6 UPDATE STATUS WORD =2 LDKL A1,CARMIS CARD MISSING ENDIO4 RB ENDIO2 EJECT DRMS02 * * * R C M S * * RECOVERY ROUTINE * * RCMS EQU * LDK A2,DOCESC SC A2,DWTDEV+1,A6 RESET STATUS WORD LD A7,DWTST,A6 BUSY? RB(N) EXIT NO LDK A1,THRERR THROUGHPUT ERROR RB ENDIO4 EJECT DRMS02 ** * ***************************** * * * E R R M S * * ERROR ROUTINE * * ****************************** * * ERRMS EQU * ERROR ROUTINE =1 ANK A1,/12 OUTPUT ERROR OR LRC - ERROR RB(NZ) RCMS YES DO RECOVERY =1 LDK A1,NOTOPE RETURN CODE NOT OPERABLE =1 RB ENDIO4 END I/O REQUEST =1 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 DROD01 * * * EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER * * ON ENTRY: * * A1 = QUEUE POINTER * A6 = DWT-ADDRESS * * ON EXIT: * * A1 = NEW QUEUE POINTER EOQUEU EQU * ADK A1,1 SUR A1,A6 CWK A1,DWTEQ+DWTDEV END OF QUEUE? RF(NE) EOQU10 LDKL A1,DWTSQ+DWTDEV SET QUEUE START ADRESS EOQU10 ADR A1,A6 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+DWTDEV,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 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0046 Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x0042}
0x0046…0050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x004a}
0x0050…008a Head {h00=0x0036, h01=0x0050, text=»************************************************* «, t00=0x0000, t01=0x0054}
0x008a…0094 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008e}
0x0094…00bc Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0098}
0x00bc…00c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00c0}
0x00c6…00f2 Head {h00=0x0028, h01=0x0050, text=»* DRMS02 = DRIVER MAGNETIC STRIPE «, t00=0x0000, t01=0x00ca}
0x00f2…00fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00f6}
0x00fc…0106 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0100}
0x0106…0110 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x010a}
0x0110…011a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0114}
0x011a…0124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x011e}
0x0124…012e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0128}
0x012e…0138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0132}
0x0138…0172 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0000, t01=0x013c}
0x0172…017c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0176}
0x017c…0186 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0180}
0x0186…01ba Head {h00=0x0030, h01=0x0050, text=»* THIS DRIVER HANDLES INPUT/OUTPUT ON THE «, t00=0x0000, t01=0x018a}
0x01ba…0202 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=0x002e}
0x0202…0244 Head {h00=0x003e, h01=0x0050, text=»* THE MSU MUST BE CONNECTED TO THE CPU VIA CHLT OR CHRT.«, t00=0x0001, t01=0x0076}
0x0244…024e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b8}
0x024e…0292 Head {h00=0x0040, h01=0x0050, text=»* TRACK 2 AND 3 ON STRIPES CAN BE READ AND TRACK 3 CAN BE «, t00=0x0001, t01=0x00c2}
0x0292…02a6 Head {h00=0x0010, h01=0x0050, text=»* WRITTEN.«, t00=0x0001, t01=0x0106}
0x02a6…02b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x011a}
0x02b0…02f4 Head {h00=0x0040, h01=0x0050, text=»* PIN KEYBOARD IS NOT SUPPORTED BY THIS VERSION OF DRIVER «, t00=0x0001, t01=0x0124}
0x02f4…0338 Head {h00=0x0040, h01=0x0050, text=»* OFF-LINE TEST IS NOT SUPPORTED BY THIS VERSION OF DRIVER«, t00=0x0001, t01=0x0168}
0x0338…0342 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x001c}
0x0342…0376 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS: «, t00=0x0002, t01=0x0026}
0x0376…0380 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005a}
0x0380…03a8 Head {h00=0x0024, h01=0x0050, text=»* A C M S : ACTIVATION PART«, t00=0x0002, t01=0x0064}
0x03a8…03d0 Head {h00=0x0024, h01=0x0050, text=»* ORDER PROCESSOR«, t00=0x0002, t01=0x008c}
0x03d0…03fa Head {h00=0x0026, h01=0x0050, text=»* I H M S : INTERRUPT HANDLER«, t00=0x0002, t01=0x00b4}
0x03fa…0424 Head {h00=0x0026, h01=0x0050, text=»* O N M S : RECOVERY ROUTINE «, t00=0x0002, t01=0x00de}
0x0424…042e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0108}
0x042e…0438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0112}
0x0438…0450 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0002, t01=0x011c}
0x0450…045a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0134}
0x045a…0486 Head {h00=0x0028, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0002, t01=0x013e}
0x0486…0490 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x016a}
0x0490…04a2 Head {h00=0x000e, h01=0x0050, text=»* CREDIT«, t00=0x0002, t01=0x0174}
0x04a2…04b8 Head {h00=0x0012, h01=0x0050, text=»* /02 READ«, t00=0x0002, t01=0x0186}
0x04b8…04da Head {h00=0x001e, h01=0x0050, text=»* /06 WRITE CARD WRITE«, t00=0x0003, t01=0x000c}
0x04da…0502 Head {h00=0x0024, h01=0x0050, text=»* /0A READ CARD RANDOM READ «, t00=0x0003, t01=0x002e}
0x0502…051c Head {h00=0x0016, h01=0x0050, text=»* /21 OPEN - «, t00=0x0003, t01=0x0056}
0x051c…054a Head {h00=0x002a, h01=0x0050, text=»* /26 END OF OPERATION DSC0 CC=4 «, t00=0x0003, t01=0x0070}
0x054a…0572 Head {h00=0x0024, h01=0x0050, text=»* /31 RESET CIRCULAR BUFFER «, t00=0x0003, t01=0x009e}
0x0572…059a Head {h00=0x0024, h01=0x0050, text=»* /37 INSERT CARD DSC0 CC=0«, t00=0x0003, t01=0x00c6}
0x059a…05a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ee}
0x05a4…05ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00f8}
0x05ae…05dc Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING RETURN CODE IS USED:«, t00=0x0003, t01=0x0102}
0x05dc…05e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0130}
0x05e6…0608 Head {h00=0x001e, h01=0x0050, text=»* BIT 0 REQUEST ERROR«, t00=0x0003, t01=0x013a}
0x0608…062a Head {h00=0x001e, h01=0x0050, text=»* 2 CARD MISSING «, t00=0x0003, t01=0x015c}
0x062a…0652 Head {h00=0x0024, h01=0x0050, text=»* 10 READ/WRITE WARNING «, t00=0x0003, t01=0x017e}
0x0652…0678 Head {h00=0x0022, h01=0x0050, text=»* 12 INCORRECT LENGTH «, t00=0x0004, t01=0x0016}
0x0678…06a6 Head {h00=0x002a, h01=0x0050, text=»* 13 NEGATIVE ACKNOWLEDGEMENT «, t00=0x0004, t01=0x003c}
0x06a6…06cc Head {h00=0x0022, h01=0x0050, text=»* 14 THROUGHPUT ERROR «, t00=0x0004, t01=0x006a}
0x06cc…06ee Head {h00=0x001e, h01=0x0050, text=»* 15 NOT OPERABLE «, t00=0x0004, t01=0x0090}
0x06ee…06f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00b2}
0x06f8…0702 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00bc}
0x0702…0726 Head {h00=0x0020, h01=0x0050, text=»* NORMAL USE OF REGISTERS:«, t00=0x0004, t01=0x00c6}
0x0726…0730 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ea}
0x0730…0756 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 RETURN CODE«, t00=0x0004, t01=0x00f4}
0x0756…0788 Head {h00=0x002e, h01=0x0050, text=»* A2 INPUT/OUTPUT CHARACTER «, t00=0x0004, t01=0x011a}
0x0788…07b0 Head {h00=0x0024, h01=0x0050, text=»* A3 BUFFER INDEX «, t00=0x0004, t01=0x014c}
0x07b0…07d8 Head {h00=0x0024, h01=0x0050, text=»* A4 RETRY COUNTER«, t00=0x0004, t01=0x0174}
0x07d8…0806 Head {h00=0x002a, h01=0x0050, text=»* A5 STACK BASE POINTER «, t00=0x0005, t01=0x000c}
0x0806…082c Head {h00=0x0022, h01=0x0050, text=»* A6 DWT ADDRESS«, t00=0x0005, t01=0x003a}
0x082c…084c Head {h00=0x001c, h01=0x0050, text=»* A7 ORDER«, t00=0x0005, t01=0x0060}
0x084c…0872 Head {h00=0x0022, h01=0x0050, text=»* A8 ECB ADDRESS«, t00=0x0005, t01=0x0080}
0x0872…087c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00a6}
0x087c…0894 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0005, t01=0x00b0}
0x0894…089e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c8}
0x089e…08b2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x00d2}
0x08b2…08c6 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0005, t01=0x00e6}
0x08c6…08da Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0005, t01=0x00fa}
0x08da…08e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010e}
0x08e4…0906 Head {h00=0x001e, h01=0x0050, text=» ENTRY MSAD ADDRESS BLOCK «, t00=0x0005, t01=0x0118}
0x0906…0910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x013a}
0x0910…0926 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0144}
0x0926…093c Head {h00=0x0012, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x015a}
0x093c…0952 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0005, t01=0x0170}
0x0952…095c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0186}
0x095c…097a Head {h00=0x001a, h01=0x0050, text=»* EXTERNAL ROUTINES«, t00=0x0005, t01=0x0190}
0x097a…09a4 Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDER I/O REQUEST ERROR =1«, t00=0x0006, t01=0x001e}
0x09a4…09cc Head {h00=0x0024, h01=0x0050, text=» EXTRN OUTPUT SEND CHARACTER =1 «, t00=0x0006, t01=0x0048}
0x09cc…09ee Head {h00=0x001e, h01=0x0050, text=» EXTRN LDISP DISPATCHER =1«, t00=0x0006, t01=0x0070}
0x09ee…0a22 Head {h00=0x0030, h01=0x0050, text=» EXTRN NDGET8 RELOAD REGISTERS AND RETURN =1«, t00=0x0006, t01=0x0092}
0x0a22…0a42 Head {h00=0x001c, h01=0x0050, text=» EXTRN TENDIO END I/O =1«, t00=0x0006, t01=0x00c6}
0x0a42…0a78 Head {h00=0x0032, h01=0x0050, text=» EXTRN GETCHR HET CHARACTER FROM ECB BUFFER =1«, t00=0x0006, t01=0x00e6}
0x0a78…0aa0 Head {h00=0x0024, h01=0x0050, text=» EXTRN STABLK START OF BLOCK =1 «, t00=0x0006, t01=0x011c}
0x0aa0…0ac6 Head {h00=0x0022, h01=0x0050, text=» EXTRN ENDBLK END OF BLOCK =1 «, t00=0x0006, t01=0x0144}
0x0ac6…0aec Head {h00=0x0022, h01=0x0050, text=» EXTRN DWTDEV DEVICE STATUS =1«, t00=0x0006, t01=0x016a}
0x0aec…0b12 Head {h00=0x0022, h01=0x0050, text=» EXTRN INPUT READ CHARCTER =1 «, t00=0x0006, t01=0x0190}
0x0b12…0b1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0026}
0x0b1c…0b3a Head {h00=0x001a, h01=0x0050, text=»* DWT DISPLACEMENTS«, t00=0x0007, t01=0x0030}
0x0b3a…0b62 Head {h00=0x0024, h01=0x0050, text=» EXTRN DWTST DWT SOFTWARE STATUS«, t00=0x0007, t01=0x004e}
0x0b62…0b84 Head {h00=0x001e, h01=0x0050, text=» EXTRN DWTECB ECB-ADDRESS «, t00=0x0007, t01=0x0076}
0x0b84…0b9e Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x0007, t01=0x0098}
0x0b9e…0bbe Head {h00=0x001c, h01=0x0050, text=» EXTRN DWTSB2 STACK BASE«, t00=0x0007, t01=0x00b2}
0x0bbe…0bc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00d2}
0x0bc8…0be6 Head {h00=0x001a, h01=0x0050, text=»* ECB DISPLACEMENTS«, t00=0x0007, t01=0x00dc}
0x0be6…0c0a Head {h00=0x0020, h01=0x0050, text=» EXTRN ECBBA BUFFER ADDRESS «, t00=0x0007, t01=0x00fa}
0x0c0a…0c30 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBRL REQUESTED LENGTH «, t00=0x0007, t01=0x011e}
0x0c30…0c56 Head {h00=0x0022, h01=0x0050, text=» EXTRN ECBEL EFFECTIVE LENGTH «, t00=0x0007, t01=0x0144}
0x0c56…0c76 Head {h00=0x001c, h01=0x0050, text=» EXTRN ECBRC RETURN CODE«, t00=0x0007, t01=0x016a}
0x0c76…0c98 Head {h00=0x001e, h01=0x0050, text=» EXTRN ECBCW CONTROL WORD «, t00=0x0007, t01=0x018a}
0x0c98…0ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001c}
0x0ca2…0cba Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0008, t01=0x0026}
0x0cba…0cc4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x003e}
0x0cc4…0ce4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0048}
0x0ce4…0d04 Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY *«, t00=0x0008, t01=0x0068}
0x0d04…0d24 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0008, t01=0x0088}
0x0d24…0d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a8}
0x0d2e…0d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b2}
0x0d38…0d6a Head {h00=0x002e, h01=0x0050, text=»* A PROGRAM VERSION USING TOSS MMU PAGING «, t00=0x0008, t01=0x00bc}
0x0d6a…0d98 Head {h00=0x002a, h01=0x0050, text=»* IS OBTAINED BY SETTING MMUPAG EQU 1.«, t00=0x0008, t01=0x00ee}
0x0d98…0da2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x011c}
0x0da2…0db6 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0008, t01=0x0126}
0x0db6…0dc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x013a}
0x0dc0…0dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0144}
0x0dca…0e04 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0008, t01=0x014e}
0x0e04…0e36 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0008, t01=0x0188}
0x0e36…0e40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x002a}
0x0e40…0e54 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0009, t01=0x0034}
0x0e54…0e5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0048}
0x0e5e…0e68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0052}
0x0e68…0e8c Head {h00=0x0020, h01=0x0050, text=»* MMU BUFFER SIZE (BYTES) «, t00=0x0009, t01=0x005c}
0x0e8c…0e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0080}
0x0e96…0eaa Head {h00=0x0010, h01=0x0050, text=»X:A EQU 108 «, t00=0x0009, t01=0x008a}
0x0eaa…0ec0 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:A«, t00=0x0009, t01=0x009e}
0x0ec0…0eca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00b4}
0x0eca…0ed4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00be}
0x0ed4…0f06 Head {h00=0x002e, h01=0x0050, text=»X:B EQU 10 LENGTH OF CIRCULAR INPUT BUFFER«, t00=0x0009, t01=0x00c8}
0x0f06…0f3c Head {h00=0x0032, h01=0x0050, text=»DWTLNG EQU X:B NUMBER OF BYTES IN DECIMAL FORM«, t00=0x0009, t01=0x00fa}
0x0f3c…0f54 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0009, t01=0x0130}
0x0f54…0f5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0148}
0x0f5e…0f74 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x0152}
0x0f74…0f8a Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x0009, t01=0x0168}
0x0f8a…0fa0 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x0009, t01=0x017e}
0x0fa0…0faa (10, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0004}
0x0faa…0fd2 Head {h00=0x0024, h01=0x0050, text=»* MAGNETIC STRIPE CHARACTERS «, t00=0x000a, t01=0x000e}
0x0fd2…0ffe Head {h00=0x0028, h01=0x0050, text=»CRWSTX EQU /3B CARD START CHARACTER «, t00=0x000a, t01=0x0036}
0x0ffe…1032 Head {h00=0x0030, h01=0x0050, text=»CRDSTX EQU /3D START CHAR, GERMAN BOOK (DIN)«, t00=0x000a, t01=0x0062}
0x1032…1056 Head {h00=0x0020, h01=0x0050, text=»CRWETX EQU /3F END CHARACTER«, t00=0x000a, t01=0x0096}
0x1056…1060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ba}
0x1060…1086 Head {h00=0x0022, h01=0x0050, text=»* STATUS MESSAGES FROM MSU «, t00=0x000a, t01=0x00c4}
0x1086…10ae Head {h00=0x0024, h01=0x0050, text=»DOCINS EQU /C DOCUMENT INSERTED «, t00=0x000a, t01=0x00ea}
0x10ae…10d4 Head {h00=0x0022, h01=0x0050, text=»DOCESC EQU /E DOCUMENT ESCAPED«, t00=0x000a, t01=0x0112}
0x10d4…10f6 Head {h00=0x001e, h01=0x0050, text=»WRWARN EQU 8 WRITE WARNING«, t00=0x000a, t01=0x0138}
0x10f6…1114 Head {h00=0x001a, h01=0x0050, text=»RDERR EQU 9 READ ERROR«, t00=0x000a, t01=0x015a}
0x1114…1134 Head {h00=0x001c, h01=0x0050, text=»WRERR EQU /A WRITE ERROR«, t00=0x000a, t01=0x0178}
0x1134…1152 Head {h00=0x001a, h01=0x0050, text=»WROK EQU /B WRITE OKAY«, t00=0x000b, t01=0x0008}
0x1152…115c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0026}
0x115c…1178 Head {h00=0x0018, h01=0x0050, text=»* COMMANDS TO MSU«, t00=0x000b, t01=0x0030}
0x1178…119a Head {h00=0x001e, h01=0x0050, text=»RESET EQU 2 GENERAL RESET «, t00=0x000b, t01=0x004c}
0x119a…11c6 Head {h00=0x0028, h01=0x0050, text=»SELTRA EQU 6 SELECT TRACK 2 FOR READ«, t00=0x000b, t01=0x006e}
0x11c6…11ea Head {h00=0x0020, h01=0x0050, text=»ENCTRA EQU 5 ENCODE TRACK 3 «, t00=0x000b, t01=0x009a}
0x11ea…121e Head {h00=0x0030, h01=0x0050, text=»REATRD EQU 8 READ TRACK 3 GERMAN BOOK (DIN) «, t00=0x000b, t01=0x00be}
0x121e…1254 Head {h00=0x0032, h01=0x0050, text=»ENCTRD EQU 9 ENCODE TRACK 3 GERMAN BOOK (DIN) «, t00=0x000b, t01=0x00f2}
0x1254…125e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0128}
0x125e…127c Head {h00=0x001a, h01=0x0050, text=»* ORDERS TO DRIVER «, t00=0x000b, t01=0x0132}
0x127c…129e Head {h00=0x001e, h01=0x0050, text=»INCARD EQU /37 INSERT CARD«, t00=0x000b, t01=0x0150}
0x129e…12c6 Head {h00=0x0024, h01=0x0050, text=»ENOFOP EQU /26 END OF OPERATION «, t00=0x000b, t01=0x0172}
0x12c6…12d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x000a}
0x12d0…12ea Head {h00=0x0016, h01=0x0050, text=»* MISCELLANEOUS«, t00=0x000c, t01=0x0014}
0x12ea…1310 Head {h00=0x0022, h01=0x0050, text=»RTRIES EQU 2 NUMBER OF RETRIES«, t00=0x000c, t01=0x002e}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0054}
0x131a…1332 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x000c, t01=0x005e}
0x1332…133c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0076}
0x133c…1356 Head {h00=0x0016, h01=0x0050, text=»* RETURN CODES «, t00=0x000c, t01=0x0080}
0x1356…137c Head {h00=0x0022, h01=0x0050, text=»REQERR EQU /8000 REQUEST ERROR«, t00=0x000c, t01=0x009a}
0x137c…13a6 Head {h00=0x0026, h01=0x0050, text=»WARNRW EQU /20 READ/WRITE WARNING «, t00=0x000c, t01=0x00c0}
0x13a6…13cc Head {h00=0x0022, h01=0x0050, text=»CARMIS EQU /2000 CARD MISSING «, t00=0x000c, t01=0x00ea}
0x13cc…13f2 Head {h00=0x0022, h01=0x0050, text=»INCLEN EQU 8 INCORRECT LENGTH «, t00=0x000c, t01=0x0110}
0x13f2…1420 Head {h00=0x002a, h01=0x0050, text=»NEGACK EQU 4 NEGATIVE ACKNOWLEDGEMENT «, t00=0x000c, t01=0x0136}
0x1420…1446 Head {h00=0x0022, h01=0x0050, text=»THRERR EQU 2 THROUGHPUT ERROR «, t00=0x000c, t01=0x0164}
0x1446…1468 Head {h00=0x001e, h01=0x0050, text=»NOTOPE EQU 1 NOT OPERABLE «, t00=0x000c, t01=0x018a}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x001c}
0x1472…148a Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x000d, t01=0x0026}
0x148a…1494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x003e}
0x1494…14b0 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0048}
0x14b0…14cc Head {h00=0x0018, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x000d, t01=0x0064}
0x14cc…14e8 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0080}
0x14e8…14f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009c}
0x14f2…1526 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x000d, t01=0x00a6}
0x1526…1530 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00da}
0x1530…1546 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x000d, t01=0x00e4}
0x1546…155e Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x000d, t01=0x00fa}
0x155e…156a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0112}
0x156a…1574 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x011e}
0x1574…158a Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x000d, t01=0x0128}
0x158a…15a4 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x000d, t01=0x013e}
0x15a4…15b0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000d, t01=0x0158}
0x15b0…15ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0164}
0x15ba…15c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016e}
0x15c4…15ea Head {h00=0x0022, h01=0x0050, text=»DWTTIM EQU /2 TIMER POINTER =1«, t00=0x000d, t01=0x0178}
0x15ea…1600 Head {h00=0x0012, h01=0x0050, text=»DWTSEC EQU /4 «, t00=0x000e, t01=0x000e}
0x1600…1644 Head {h00=0x0040, h01=0x0050, text=»DWTFRT EQU /6 BIT 0 CREDIT CARD / GERMAN BANK BOOK FLAG =1«, t00=0x000e, t01=0x0024}
0x1644…1664 Head {h00=0x001c, h01=0x0050, text=» BIT 1-7 NOT USED =1 «, t00=0x000e, t01=0x0068}
0x1664…1692 Head {h00=0x002a, h01=0x0050, text=» BIT 8-15 RETRY COUNTER SAVE AREA =1«, t00=0x000e, t01=0x0088}
0x1692…16bc Head {h00=0x0026, h01=0x0050, text=»DWTLRC EQU /8 LRC - ACKUMULATOR =1«, t00=0x000e, t01=0x00b6}
0x16bc…16c6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x00e0}
0x16c6…16e8 Head {h00=0x001e, h01=0x0019, text=»* CIRCULAR INPUT BUFFER «, t00=0x000e, t01=0x00ea}
0x16e8…16f2 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000e, t01=0x010c}
0x16f2…1720 Head {h00=0x002a, h01=0x0050, text=»DWTINQ EQU /0C POINTER TO FIRST PLACE «, t00=0x000e, t01=0x0116}
0x1720…174c Head {h00=0x0028, h01=0x0050, text=»DWTUTQ EQU /0E POINTER TO LAST PLACE«, t00=0x000e, t01=0x0144}
0x174c…1772 Head {h00=0x0022, h01=0x0050, text=»DWTSQ EQU /10 START OF BUFFER «, t00=0x000e, t01=0x0170}
0x1772…179e Head {h00=0x0028, h01=0x0050, text=»DWTEQ EQU DWTSQ+DWTLNG END OF BUFFER«, t00=0x000f, t01=0x0008}
0x179e…17a8 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x000f, t01=0x0034}
0x17a8…17c0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x000f, t01=0x003e}
0x17c0…17ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0056}
0x17ca…17dc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x0060}
0x17dc…17ee Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x000f, t01=0x0072}
0x17ee…1800 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x000f, t01=0x0084}
0x1800…180a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0096}
0x180a…182e Head {h00=0x0020, h01=0x0050, text=» DATA DVBLEN MMU BUFFER SIZE«, t00=0x000f, t01=0x00a0}
0x182e…184e Head {h00=0x001c, h01=0x0050, text=» DATA 2 MMU DEVICE INDEX«, t00=0x000f, t01=0x00c4}
0x184e…1860 Head {h00=0x000e, h01=0x0050, text=»MSAD EQU *«, t00=0x000f, t01=0x00e4}
0x1860…1884 Head {h00=0x0020, h01=0x0050, text=» DATA ACMS ACTIVATION DRIVER«, t00=0x000f, t01=0x00f6}
0x1884…18aa Head {h00=0x0022, h01=0x0050, text=» DATA 0 ABORT ROUTINE ADDRESS «, t00=0x000f, t01=0x011a}
0x18aa…18ce Head {h00=0x0020, h01=0x0050, text=» DATA IHMS INTERRUPT HANDLER«, t00=0x000f, t01=0x0140}
0x18ce…18f2 Head {h00=0x0020, h01=0x0050, text=» DATA RCMS RECOVERY ROUTINE «, t00=0x000f, t01=0x0164}
0x18f2…18fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0188}
0x18fc…1906 (16, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0004}
0x1906…1910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x000e}
0x1910…192e Head {h00=0x001a, h01=0x0050, text=»TAB EQU * ORDER TABLE «, t00=0x0010, t01=0x0018}
0x192e…1954 Head {h00=0x0022, h01=0x0050, text=» DATA /060A,/3726,/2102,/3100 «, t00=0x0010, t01=0x0036}
0x1954…197e Head {h00=0x0026, h01=0x0050, text=»TABL EQU *-TAB-1 NUMBER OF ENTRIES«, t00=0x0010, t01=0x005c}
0x197e…1988 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0086}
0x1988…19b4 Head {h00=0x0028, h01=0x0050, text=»MSFUN EQU * MAGNETIC STRIPE FUNCTION«, t00=0x0010, t01=0x0090}
0x19b4…19d4 Head {h00=0x001c, h01=0x0050, text=» DATA WRITE,READ,INSERT «, t00=0x0010, t01=0x00bc}
0x19d4…19ec Head {h00=0x0014, h01=0x0050, text=» DATA ENDOP,OPEN«, t00=0x0010, t01=0x00dc}
0x19ec…1a26 Head {h00=0x0036, h01=0x0050, text=» DATA RDPIN,RST READ PIN - KEYBOARD AND RST BUFFER«, t00=0x0010, t01=0x00f4}
0x1a26…1a3e Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0010, t01=0x012e}
0x1a3e…1a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0146}
0x1a48…1a52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0150}
0x1a52…1a66 Head {h00=0x0010, h01=0x0050, text=»* A C M S «, t00=0x0010, t01=0x015a}
0x1a66…1a70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x016e}
0x1a70…1aa6 Head {h00=0x0032, h01=0x0050, text=»* ACTIVATION PART: CHECKS VALIDITY OF ORDERS«, t00=0x0010, t01=0x0178}
0x1aa6…1ada Head {h00=0x0030, h01=0x0050, text=»* AND STARTS PROCESSING. «, t00=0x0011, t01=0x001e}
0x1ada…1ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0052}
0x1ae4…1aee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x005c}
0x1aee…1b00 Head {h00=0x000e, h01=0x0050, text=»ACMS EQU *«, t00=0x0011, t01=0x0066}
0x1b00…1b26 Head {h00=0x0022, h01=0x0050, text=» LDK A1,0 RESET RETURN CODE =2«, t00=0x0011, t01=0x0078}
0x1b26…1b4a Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0011, t01=0x009e}
0x1b4a…1b60 Head {h00=0x0012, h01=0x0050, text=» LDK A4,TABL-1«, t00=0x0011, t01=0x00c2}
0x1b60…1b94 Head {h00=0x0030, h01=0x0050, text=»ACMS10 CC A7,TAB,A4 FIND OUT IF LEGAL ORDER «, t00=0x0011, t01=0x00d8}
0x1b94…1bb6 Head {h00=0x001e, h01=0x0050, text=» RF(E) ACMS20 VALID ORDER «, t00=0x0011, t01=0x010c}
0x1bb6…1bc8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0011, t01=0x012e}
0x1bc8…1be8 Head {h00=0x001c, h01=0x0050, text=» RB(NN) ACMS10 TRY NEXT «, t00=0x0011, t01=0x0140}
0x1be8…1bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0160}
0x1bf2…1bfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x016a}
0x1bfc…1c24 Head {h00=0x0024, h01=0x0050, text=»MSERR EQU * DISPATCH END I/O =1 «, t00=0x0011, t01=0x0174}
0x1c24…1c48 Head {h00=0x0020, h01=0x0050, text=» ABL LENDER REQUEST ERROR =1«, t00=0x0012, t01=0x000c}
0x1c48…1c52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0030}
0x1c52…1c66 Head {h00=0x0010, h01=0x0050, text=»ACMS20 EQU *«, t00=0x0012, t01=0x003a}
0x1c66…1c82 Head {h00=0x0018, h01=0x0050, text=» ADR A4,A4 GET INDEX«, t00=0x0012, t01=0x004e}
0x1c82…1cb8 Head {h00=0x0032, h01=0x0050, text=» ABI MSFUN,A4 BRANCH TO VALID FUNCTION MODULE «, t00=0x0012, t01=0x006a}
0x1cb8…1cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a0}
0x1cc2…1cda Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0012, t01=0x00aa}
0x1cda…1ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c2}
0x1ce4…1d0c Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x00cc}
0x1d0c…1d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f4}
0x1d16…1d38 Head {h00=0x001e, h01=0x0050, text=»* R E A D PIN - KEYBOARD «, t00=0x0012, t01=0x00fe}
0x1d38…1d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0120}
0x1d42…1d6a Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x012a}
0x1d6a…1d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0152}
0x1d74…1d88 Head {h00=0x0010, h01=0x0050, text=»RDPIN EQU * «, t00=0x0012, t01=0x015c}
0x1d88…1db4 Head {h00=0x0028, h01=0x0050, text=» LD A2,ECBRL,A8 REQUESTED LENGTH = 0«, t00=0x0012, t01=0x0170}
0x1db4…1dd6 Head {h00=0x001e, h01=0x0050, text=» RF(E) OPEN20 YES END I/O «, t00=0x0013, t01=0x000c}
0x1dd6…1df4 Head {h00=0x001a, h01=0x0050, text=» LDR A3,A3 FIRST TIME «, t00=0x0013, t01=0x002e}
0x1df4…1e0e Head {h00=0x0016, h01=0x0050, text=» RF(NE) RDP020 NO «, t00=0x0013, t01=0x004c}
0x1e0e…1e34 Head {h00=0x0022, h01=0x0050, text=» LD A1,ECBBA,A8 BUFFER ADRESS «, t00=0x0013, t01=0x0066}
0x1e34…1e5a Head {h00=0x0022, h01=0x0050, text=» SUK A1,1 ADJUST BUFFER ADRESS«, t00=0x0013, t01=0x008c}
0x1e5a…1e7a Head {h00=0x001c, h01=0x0050, text=» ADR A1,A2 END OF BUFFER«, t00=0x0013, t01=0x00b2}
0x1e7a…1e8e Head {h00=0x0010, h01=0x0050, text=»RDP010 EQU *«, t00=0x0013, t01=0x00d2}
0x1e8e…1eb2 Head {h00=0x0020, h01=0x0050, text=» SCR A3,A1 CLEAR ECB BUFFER «, t00=0x0013, t01=0x00e6}
0x1eb2…1ec4 Head {h00=0x000e, h01=0x0050, text=» SUK A1,1 «, t00=0x0013, t01=0x010a}
0x1ec4…1eea Head {h00=0x0022, h01=0x0050, text=» SUK A2,1 WHOLE BUFFER CLEARED«, t00=0x0013, t01=0x011c}
0x1eea…1f04 Head {h00=0x0016, h01=0x0050, text=» RB(NE) RDP010 NO «, t00=0x0013, t01=0x0142}
0x1f04…1f18 Head {h00=0x0010, h01=0x0050, text=»RDP020 EQU *«, t00=0x0013, t01=0x015c}
0x1f18…1f58 Head {h00=0x003c, h01=0x0050, text=» LD A1,DWTDEV+DWTUTQ,A6 GET CHARACTER ;CHECK IF OVERFLOW«, t00=0x0013, t01=0x0170}
0x1f58…1f78 Head {h00=0x001c, h01=0x0050, text=» LCR A2,A1 GET CHARACTER«, t00=0x0014, t01=0x0020}
0x1f78…1f8c Head {h00=0x0010, h01=0x0050, text=» LDR A4,A2 «, t00=0x0014, t01=0x0040}
0x1f8c…1fa8 Head {h00=0x0018, h01=0x0050, text=» XRK A4,/FF OVERFLOW«, t00=0x0014, t01=0x0054}
0x1fa8…1fc2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RDP030 NO «, t00=0x0014, t01=0x0070}
0x1fc2…1fd8 Head {h00=0x0012, h01=0x0050, text=» SCR A4,A1 YES«, t00=0x0014, t01=0x008a}
0x1fd8…2006 Head {h00=0x002a, h01=0x0050, text=» LDK A1,2 SET OVERFLOW IN RETURN CODE «, t00=0x0014, t01=0x00a0}
0x2006…2028 Head {h00=0x001e, h01=0x0050, text=» RF ENDIO END I/O REQUEST «, t00=0x0014, t01=0x00ce}
0x2028…203c Head {h00=0x0010, h01=0x0050, text=»RDP030 EQU *«, t00=0x0014, t01=0x00f0}
0x203c…206e Head {h00=0x002e, h01=0x0050, text=» CW A1,DWTDEV+DWTINQ,A6 ANYTHING IN QUEUE «, t00=0x0014, t01=0x0104}
0x206e…2088 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RDP040 YES«, t00=0x0014, t01=0x0136}
0x2088…20b2 Head {h00=0x0026, h01=0x0050, text=» CF A5,INPUT NO ; READ A CHARACTER«, t00=0x0014, t01=0x0150}
0x20b2…20c6 Head {h00=0x0010, h01=0x0050, text=» RF RDP047 «, t00=0x0014, t01=0x017a}
0x20c6…20da Head {h00=0x0010, h01=0x0050, text=»RDP040 EQU *«, t00=0x0014, t01=0x018e}
0x20da…2108 Head {h00=0x002a, h01=0x0050, text=» CF A15,EOQUEU SET NEW BUFFER POINTER «, t00=0x0015, t01=0x0012}
0x2108…2136 Head {h00=0x002a, h01=0x0050, text=» ST A1,DWTDEV+DWTUTQ,A6 SET NEW BUFFER«, t00=0x0015, t01=0x0040}
0x2136…214a Head {h00=0x0010, h01=0x0050, text=»RDP047 EQU *«, t00=0x0015, t01=0x006e}
0x214a…2174 Head {h00=0x0026, h01=0x0050, text=» CW A3,ECBRL,A8 REQ.LEN = EFF.LEN «, t00=0x0015, t01=0x0082}
0x2174…2196 Head {h00=0x001e, h01=0x0050, text=» RF(NL) RDP080 YES ; ERROR«, t00=0x0015, t01=0x00ac}
0x2196…21be Head {h00=0x0024, h01=0x0050, text=» LD A1,ECBCW,A8 KEY TABLE ADRESS«, t00=0x0015, t01=0x00ce}
0x21be…21d6 Head {h00=0x0014, h01=0x0050, text=» RF(Z) RDP060 NO«, t00=0x0015, t01=0x00f6}
0x21d6…21fe Head {h00=0x0024, h01=0x0050, text=» LCR A4,A1 GET KEY TABLE LENGTH «, t00=0x0015, t01=0x010e}
0x21fe…2212 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0015, t01=0x0136}
0x2212…223c Head {h00=0x0026, h01=0x0050, text=» ADR A1,A4 LAST PLACE IN KEY TABLE«, t00=0x0015, t01=0x014a}
0x223c…224e Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0015, t01=0x0174}
0x224e…2262 Head {h00=0x0010, h01=0x0050, text=»RDP050 EQU *«, t00=0x0015, t01=0x0186}
0x2262…2274 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x0016, t01=0x000a}
0x2274…22a4 Head {h00=0x002c, h01=0x0050, text=» RF(N) RDP060 KEY NOT FOUND IN KEY TABLE«, t00=0x0016, t01=0x001c}
0x22a4…22be Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 NEXT KEY«, t00=0x0016, t01=0x004c}
0x22be…22d6 Head {h00=0x0014, h01=0x0050, text=» CCR A2,A1 FOUND«, t00=0x0016, t01=0x0066}
0x22d6…22f0 Head {h00=0x0016, h01=0x0050, text=» RB(NE) RDP050 NO «, t00=0x0016, t01=0x007e}
0x22f0…2322 Head {h00=0x002e, h01=0x0050, text=» ADK A4,1 KEY FOUND ; MAKE KEY TABLE INDEX«, t00=0x0016, t01=0x0098}
0x2322…2336 Head {h00=0x0010, h01=0x0050, text=»RDP055 EQU *«, t00=0x0016, t01=0x00ca}
0x2336…236a Head {h00=0x0030, h01=0x0050, text=» ST A4,ECBCW,A8 STORE INDEX IN CONTROL WORD «, t00=0x0016, t01=0x00de}
0x236a…23a0 Head {h00=0x0032, h01=0x0050, text=» ST A3,ECBEL,A8 STORE EFFECTIVE LENGTH IN ECB «, t00=0x0016, t01=0x0112}
0x23a0…23ce Head {h00=0x002a, h01=0x0050, text=» CF A15,STORE STORE KEY IN ECB BUGFFER«, t00=0x0016, t01=0x0148}
0x23ce…23e8 Head {h00=0x0016, h01=0x0050, text=» RF OPEN20 END I/O«, t00=0x0016, t01=0x0176}
0x23e8…23fc Head {h00=0x0010, h01=0x0050, text=»RDP060 EQU *«, t00=0x0016, t01=0x0190}
0x23fc…243c Head {h00=0x003c, h01=0x0050, text=» CWK A2,/0D NO KEY TABLE CHECK IF STANDARD END OF RECORD«, t00=0x0017, t01=0x0014}
0x243c…2460 Head {h00=0x0020, h01=0x0050, text=» RF(NE) RDP070 NOT EOR - KEY«, t00=0x0017, t01=0x0054}
0x2460…248c Head {h00=0x0028, h01=0x0050, text=» LDK A4,1 SET INDEX TO STANDARD EOR «, t00=0x0017, t01=0x0078}
0x248c…24a6 Head {h00=0x0016, h01=0x0050, text=» RB RDP055 END I/O«, t00=0x0017, t01=0x00a4}
0x24a6…24ba Head {h00=0x0010, h01=0x0050, text=»RDP070 EQU *«, t00=0x0017, t01=0x00be}
0x24ba…24ee Head {h00=0x0030, h01=0x0050, text=» CF A15,STORE STORE CHARACTER IN ECB BUFFER «, t00=0x0017, t01=0x00d2}
0x24ee…2514 Head {h00=0x0022, h01=0x0050, text=» RB RDP020 GET NEXT CHARACTER «, t00=0x0017, t01=0x0106}
0x2514…2528 Head {h00=0x0010, h01=0x0050, text=»RDP080 EQU *«, t00=0x0017, t01=0x012c}
0x2528…2548 Head {h00=0x001c, h01=0x0050, text=» LDK A1,8 SET ERROR CODE«, t00=0x0017, t01=0x0140}
0x2548…256a Head {h00=0x001e, h01=0x0050, text=» RF ENDIO END I/O REQUEST «, t00=0x0017, t01=0x0160}
0x256a…2582 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0017, t01=0x0182}
0x2582…258c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x000a}
0x258c…25b2 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0018, t01=0x0014}
0x25b2…25bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x003a}
0x25bc…25e2 Head {h00=0x0022, h01=0x0050, text=»* R S T CIRCULAR INPUT BUFFER«, t00=0x0018, t01=0x0044}
0x25e2…25ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x006a}
0x25ec…2616 Head {h00=0x0026, h01=0x0050, text=»********************************* «, t00=0x0018, t01=0x0074}
0x2616…2620 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x009e}
0x2620…262a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00a8}
0x262a…263c Head {h00=0x000e, h01=0x0050, text=»RST EQU * «, t00=0x0018, t01=0x00b2}
0x263c…2648 Head {h00=0x0008, h01=0x0050, text=» INH«, t00=0x0018, t01=0x00c4}
0x2648…267e Head {h00=0x0032, h01=0x0050, text=» LD A2,DWTDEV+DWTINQ,A6 POINTER TO FIRST PLACE«, t00=0x0018, t01=0x00d0}
0x267e…269e Head {h00=0x001c, h01=0x0018, text=» SCR A1,A2 RESET POINTER«, t00=0x0018, t01=0x0106}
0x269e…26d8 Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTDEV+DWTUTQ,A6 SET POINTER TO LAST PLACE «, t00=0x0018, t01=0x0126}
0x26d8…26e4 Head {h00=0x0008, h01=0x0050, text=» ENB«, t00=0x0018, t01=0x0160}
0x26e4…2706 Head {h00=0x001e, h01=0x0050, text=» RF ENDIO END I/O REQUEST «, t00=0x0018, t01=0x016c}
0x2706…271e Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0018, t01=0x018e}
0x271e…2728 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0016}
0x2728…2762 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0019, t01=0x0020}
0x2762…276c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x005a}
0x276c…2780 Head {h00=0x0010, h01=0x0050, text=»* OPEN /21«, t00=0x0019, t01=0x0064}
0x2780…278a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0078}
0x278a…27c0 Head {h00=0x0032, h01=0x0050, text=»* THE DRIVER IS SET TO HANDLE EITHER CREDIT «, t00=0x0019, t01=0x0082}
0x27c0…27fa Head {h00=0x0036, h01=0x0050, text=»* CARDS/AMERICAN PASSBOOKS OR GERMAN PASSBOOKS. «, t00=0x0019, t01=0x00b8}
0x27fa…2804 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x00f2}
0x2804…281e Head {h00=0x0016, h01=0x0050, text=»* REGISTER INPUT: «, t00=0x0019, t01=0x00fc}
0x281e…283c Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0019, t01=0x0116}
0x283c…285a Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x0019, t01=0x0134}
0x285a…2864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0019, t01=0x0152}
0x2864…289e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0019, t01=0x015c}
0x289e…28a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0008}
0x28a8…28ba Head {h00=0x000e, h01=0x0050, text=»OPEN EQU *«, t00=0x001a, t01=0x0012}
0x28ba…28de Head {h00=0x0020, h01=0x0050, text=» LD A2,ECBCW,A8 FORMAT CODE «, t00=0x001a, t01=0x0024}
0x28de…2914 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OPEN10 NOT CREDIT CARD / AMERICAN BOOK«, t00=0x001a, t01=0x0048}
0x2914…293a Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/7FFF MASK FOR BIT 0 «, t00=0x001a, t01=0x007e}
0x293a…2978 Head {h00=0x003a, h01=0x0050, text=» ANS A2,DWTFRT+DWTDEV,A6 CLEAR FORMAT FLAG, INDICATING«, t00=0x001a, t01=0x00a4}
0x2978…29a0 Head {h00=0x0024, h01=0x0050, text=»* CREDIT CARD / AMERICAN BOOK «, t00=0x001a, t01=0x00e2}
0x29a0…29b8 Head {h00=0x0014, h01=0x0050, text=» RF OPEN20 EXIT «, t00=0x001a, t01=0x010a}
0x29b8…29c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0122}
0x29c2…29d6 Head {h00=0x0010, h01=0x0050, text=»OPEN10 EQU *«, t00=0x001a, t01=0x012c}
0x29d6…2a04 Head {h00=0x002a, h01=0x0050, text=» SUK A2,1 FORMAT CODE GERMAN PASSBOOK?«, t00=0x001a, t01=0x0140}
0x2a04…2a2a Head {h00=0x0022, h01=0x0050, text=» RB(NZ) MSERR NO, ILLEGAL CODE«, t00=0x001a, t01=0x016e}
0x2a2a…2a50 (27, 0, 400) Head {h00=0x0022, h01=0x0050, text=» LDKL A2,/8000 MASK FOR BIT 0 «, t00=0x001b, t01=0x0004}
0x2a50…2a82 Head {h00=0x002e, h01=0x0050, text=» ORS A2,DWTFRT+DWTDEV,A6 SET FORMAT FLAG, «, t00=0x001b, t01=0x002a}
0x2a82…2aa4 Head {h00=0x001e, h01=0x0050, text=»* INDICATING GERMAN BOOK«, t00=0x001b, t01=0x005c}
0x2aa4…2aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x007e}
0x2aae…2ac2 Head {h00=0x0010, h01=0x0050, text=»OPEN20 EQU *«, t00=0x001b, t01=0x0088}
0x2ac2…2ae0 Head {h00=0x001a, h01=0x0050, text=» LDK A1,0 RETURN CODE «, t00=0x001b, t01=0x009c}
0x2ae0…2af6 Head {h00=0x0012, h01=0x0050, text=» RF ENDIO EXIT«, t00=0x001b, t01=0x00ba}
0x2af6…2b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00d0}
0x2b00…2b18 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x001b, t01=0x00da}
0x2b18…2b22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00f2}
0x2b22…2b5c Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001b, t01=0x00fc}
0x2b5c…2b66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0136}
0x2b66…2b9e Head {h00=0x0034, h01=0x0050, text=»* END OF OPERATION /26 AND INSERT CARD /11 =2 «, t00=0x001b, t01=0x0140}
0x2b9e…2ba8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0178}
0x2ba8…2be2 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001b, t01=0x0182}
0x2be2…2bec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x002c}
0x2bec…2c04 Head {h00=0x0014, h01=0x0050, text=»ENDOP EQU * =2 «, t00=0x001c, t01=0x0036}
0x2c04…2c1e Head {h00=0x0016, h01=0x0050, text=» LDK A4,DOCESC =2«, t00=0x001c, t01=0x004e}
0x2c1e…2c34 Head {h00=0x0012, h01=0x0050, text=» RF COMMON =2«, t00=0x001c, t01=0x0068}
0x2c34…2c4c Head {h00=0x0014, h01=0x0050, text=»INSERT EQU * =2«, t00=0x001c, t01=0x007e}
0x2c4c…2c66 Head {h00=0x0016, h01=0x0050, text=» LDK A4,DOCINS =2«, t00=0x001c, t01=0x0096}
0x2c66…2c84 Head {h00=0x001a, h01=0x0050, text=» CC A4,DWTDEV+1,A6 =2«, t00=0x001c, t01=0x00b0}
0x2c84…2cb6 Head {h00=0x002e, h01=0x0050, text=» RF(E) ENDIO DOCUMENT ALREADY INSERTED =2 «, t00=0x001c, t01=0x00ce}
0x2cb6…2cce Head {h00=0x0014, h01=0x0050, text=»COMMON EQU * =2«, t00=0x001c, t01=0x0100}
0x2cce…2cee Head {h00=0x001c, h01=0x0050, text=» LDK A2,/6 BLOCK SIZE =1«, t00=0x001c, t01=0x0118}
0x2cee…2d16 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =1 «, t00=0x001c, t01=0x0138}
0x2d16…2d3e Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS1 ERROR END I/O =1 «, t00=0x001c, t01=0x0160}
0x2d3e…2d62 Head {h00=0x0020, h01=0x0050, text=» LDK A2,RESET GENERAL RESET «, t00=0x001c, t01=0x0188}
0x2d62…2d80 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x001d, t01=0x001c}
0x2d80…2da8 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS1 ERROR END I/O =1 «, t00=0x001d, t01=0x003a}
0x2da8…2dca Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END BLOCK =1«, t00=0x001d, t01=0x0062}
0x2dca…2df2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS1 ERROR END I/O =1 «, t00=0x001d, t01=0x0084}
0x2df2…2e10 Head {h00=0x001a, h01=0x0050, text=» CC A4,DWTDEV+1,A6 =2«, t00=0x001d, t01=0x00ac}
0x2e10…2e40 Head {h00=0x002c, h01=0x0050, text=» RF(E) ENDIO DOCUMENT ALREADY ESCAPED =2«, t00=0x001d, t01=0x00ca}
0x2e40…2e6e Head {h00=0x002a, h01=0x0050, text=» CF A5,INPUT WAIT FOR MESSAGE FROM MSU«, t00=0x001d, t01=0x00fa}
0x2e6e…2e84 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A2 =2«, t00=0x001d, t01=0x0128}
0x2e84…2e9e Head {h00=0x0016, h01=0x0050, text=» SUK A2,DOCINS =2«, t00=0x001d, t01=0x013e}
0x2e9e…2ec8 Head {h00=0x0026, h01=0x0050, text=» RF(E) COM100 DOCUMENT INSERTED =2«, t00=0x001d, t01=0x0158}
0x2ec8…2eea Head {h00=0x001e, h01=0x0050, text=» SUK A2,DOCESC-DOCINS =2 «, t00=0x001d, t01=0x0182}
0x2eea…2f14 Head {h00=0x0026, h01=0x0050, text=» RF(E) COM100 DOCUMENT ESCAPED =2 «, t00=0x001e, t01=0x0014}
0x2f14…2f3e Head {h00=0x0026, h01=0x0050, text=» LDK A1,THRERR THROUGHPUT ERROR =2«, t00=0x001e, t01=0x003e}
0x2f3e…2f56 Head {h00=0x0014, h01=0x0050, text=»COM100 EQU * =2«, t00=0x001e, t01=0x0068}
0x2f56…2f8a Head {h00=0x0030, h01=0x0050, text=» SC A3,DWTDEV+1,A6 UPDATE DOCUMENT STATUS =2«, t00=0x001e, t01=0x0080}
0x2f8a…2fa2 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x001e, t01=0x00b4}
0x2fa2…2fac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00cc}
0x2fac…2fd4 Head {h00=0x0024, h01=0x0050, text=»* END OF INPUT/OUTPUT REQUEST «, t00=0x001e, t01=0x00d6}
0x2fd4…2fde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00fe}
0x2fde…2ff2 Head {h00=0x0010, h01=0x0050, text=»ENDIO EQU * «, t00=0x001e, t01=0x0108}
0x2ff2…3014 Head {h00=0x001e, h01=0x0050, text=» CF A15,TENDIO END I/O =1 «, t00=0x001e, t01=0x011c}
0x3014…3032 Head {h00=0x001a, h01=0x0050, text=» ABL LDISP DISPATCH =1«, t00=0x001e, t01=0x013e}
0x3032…304a Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x001e, t01=0x015c}
0x304a…3054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0174}
0x3054…308e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001e, t01=0x017e}
0x308e…3098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0028}
0x3098…30b4 Head {h00=0x0018, h01=0x0050, text=»* READ CARD /0A «, t00=0x001f, t01=0x0032}
0x30b4…30be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x004e}
0x30be…30f8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x001f, t01=0x0058}
0x30f8…3102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0092}
0x3102…3114 Head {h00=0x000e, h01=0x0050, text=»READ EQU *«, t00=0x001f, t01=0x009c}
0x3114…313a Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS «, t00=0x001f, t01=0x00ae}
0x313a…314e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001f, t01=0x00d4}
0x314e…3178 Head {h00=0x0026, h01=0x0050, text=» SUK A2,DOCINS DOCUMENT INSERTED? «, t00=0x001f, t01=0x00e8}
0x3178…3192 Head {h00=0x0016, h01=0x0050, text=» RF(NE) WRIT02 NO «, t00=0x001f, t01=0x0112}
0x3192…319c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x012c}
0x319c…31a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0136}
0x31a6…31ce Head {h00=0x0024, h01=0x0050, text=» LDK A4,RTRIES NUMBER OF RETRIES«, t00=0x001f, t01=0x0140}
0x31ce…31e2 Head {h00=0x0010, h01=0x0050, text=»READ10 EQU *«, t00=0x001f, t01=0x0168}
0x31e2…3208 Head {h00=0x0022, h01=0x0050, text=» LDK A2,104 MAX BLOCK SIZE =1 «, t00=0x001f, t01=0x017c}
0x3208…322c Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START BLOCK =1«, t00=0x0020, t01=0x0012}
0x322c…3254 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS1 ERROR END I/O =1 «, t00=0x0020, t01=0x0036}
0x3254…3278 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x0020, t01=0x005e}
0x3278…32a4 Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTFRT+DWTDEV,A6 FORMAT CODE «, t00=0x0020, t01=0x0082}
0x32a4…32c6 Head {h00=0x001e, h01=0x0050, text=» RF(N) READ20 GERMAN BOOK «, t00=0x0020, t01=0x00ae}
0x32c6…32d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00d0}
0x32d0…32e8 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0020, t01=0x00da}
0x32e8…32f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0020, t01=0x00f2}
0x32f2…3324 Head {h00=0x002e, h01=0x0050, text=»* READ CREDIT CARD / AMERICAN PASSBOOK «, t00=0x0020, t01=0x00fc}
0x3324…334c Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBCW,A8 GET TRACK NUMBER«, t00=0x0020, t01=0x012e}
0x334c…335e Head {h00=0x000e, h01=0x0050, text=» SUK A2,2 «, t00=0x0020, t01=0x0156}
0x335e…337e Head {h00=0x001c, h01=0x0050, text=» ABL(N) MSERR TRACK < 2 «, t00=0x0020, t01=0x0168}
0x337e…3390 Head {h00=0x000e, h01=0x0050, text=» CWK A2,1 «, t00=0x0020, t01=0x0188}
0x3390…33b0 Head {h00=0x001c, h01=0x0050, text=» ABL(G) MSERR TRACK > 3 «, t00=0x0021, t01=0x000a}
0x33b0…33de Head {h00=0x002a, h01=0x0050, text=» ADK A2,SELTRA COMPUTE TRACK TO SELECT«, t00=0x0021, t01=0x002a}
0x33de…33e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0058}
0x33e8…3422 Head {h00=0x0036, h01=0x0050, text=» CF A5,OUTPUT SEND READ TRACK COMMAND (/06 OR /07)«, t00=0x0021, t01=0x0062}
0x3422…344a Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS1 ERROR END I/O =1 «, t00=0x0021, t01=0x009c}
0x344a…3470 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =1 «, t00=0x0021, t01=0x00c4}
0x3470…3498 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS1 ERROR END I/O =1 «, t00=0x0021, t01=0x00ea}
0x3498…34a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x0112}
0x34a2…34cc Head {h00=0x0026, h01=0x0050, text=» CF A5,REABLK READ ONE DATA BLOCK «, t00=0x0021, t01=0x011c}
0x34cc…34fa Head {h00=0x002a, h01=0x0050, text=» CWK A1,NEGACK RETURN CODE READ ERROR?«, t00=0x0021, t01=0x0146}
0x34fa…3530 Head {h00=0x0032, h01=0x0050, text=» RB(NE) ENDIO NO, OK OR INCORRECT LENGTH. EXIT«, t00=0x0021, t01=0x0174}
0x3530…353a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x001a}
0x353a…355a Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 MORE RETRIES? «, t00=0x0022, t01=0x0024}
0x355a…3584 Head {h00=0x0026, h01=0x0050, text=» RB(NN) READ10 YES, PERFORM RETRY «, t00=0x0022, t01=0x0044}
0x3584…359e Head {h00=0x0016, h01=0x0050, text=» RB ENDIO NO, EXIT«, t00=0x0022, t01=0x006e}
0x359e…35a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0088}
0x35a8…35c0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0022, t01=0x0092}
0x35c0…35ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x00aa}
0x35ca…35de Head {h00=0x0010, h01=0x0050, text=»READ20 EQU *«, t00=0x0022, t01=0x00b4}
0x35de…3600 Head {h00=0x001e, h01=0x0050, text=»* READ GERMAN PASSBOOK «, t00=0x0022, t01=0x00c8}
0x3600…3616 Head {h00=0x0012, h01=0x0050, text=» LDK A2,REATRD«, t00=0x0022, t01=0x00ea}
0x3616…364c Head {h00=0x0032, h01=0x0050, text=» CF A5,OUTPUT SEND "READ GERMAN BOOK" COMMAND «, t00=0x0022, t01=0x0100}
0x364c…3674 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS1 ERROR END I/O =1 «, t00=0x0022, t01=0x0136}
0x3674…369a Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =1 «, t00=0x0022, t01=0x015e}
0x369a…36a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0184}
0x36a4…36ca Head {h00=0x0022, h01=0x0050, text=»ERRMS1 EQU * ERROR END I/O =1 «, t00=0x0022, t01=0x018e}
0x36ca…36f2 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS2 ERROR END I/O =1 «, t00=0x0023, t01=0x0024}
0x36f2…3718 Head {h00=0x0022, h01=0x0050, text=» CF A5,REABLK READ FIRST BLOCK«, t00=0x0023, t01=0x004c}
0x3718…3740 Head {h00=0x0024, h01=0x0050, text=» CWK A1,INCLEN BUFFER OVERFLOW? «, t00=0x0023, t01=0x0072}
0x3740…375e Head {h00=0x001a, h01=0x0050, text=» RB(E) ENDIO YES, EXIT«, t00=0x0023, t01=0x009a}
0x375e…3768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x00b8}
0x3768…379c Head {h00=0x0030, h01=0x0050, text=» SC A4,DWTFRT+DWTDEV+1,A6 SAVE RETRY COUNTER«, t00=0x0023, t01=0x00c2}
0x379c…37c0 Head {h00=0x0020, h01=0x0050, text=» LDR A4,A1 SAVE RETURN CODE «, t00=0x0023, t01=0x00f6}
0x37c0…37e8 Head {h00=0x0024, h01=0x0050, text=» CF A5,REABLK READ SECOND BLOCK «, t00=0x0023, t01=0x011a}
0x37e8…3810 Head {h00=0x0024, h01=0x0050, text=» CWK A1,INCLEN BUFFER OVERFLOW? «, t00=0x0023, t01=0x0142}
0x3810…382e Head {h00=0x001a, h01=0x0050, text=» RB(E) ENDIO YES, EXIT«, t00=0x0023, t01=0x016a}
0x382e…3838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0188}
0x3838…384a (36, 0, 398) Head {h00=0x000e, h01=0x0050, text=» CWR A1,A4«, t00=0x0024, t01=0x0004}
0x384a…387c Head {h00=0x002e, h01=0x0050, text=» RF(E) READ30 BOTH BLOCKS OK OR BOTH WRONG«, t00=0x0024, t01=0x0016}
0x387c…3886 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0048}
0x3886…38b6 Head {h00=0x002c, h01=0x0050, text=»* ONE BLOCK WAS OK, ONE WAS ERRONEOUS«, t00=0x0024, t01=0x0052}
0x38b6…38ee Head {h00=0x0034, h01=0x0050, text=» LDK A1,WARNRW RETURN CODE "READ/WRITE WARNING" «, t00=0x0024, t01=0x0082}
0x38ee…391c Head {h00=0x002a, h01=0x0050, text=» RF READ40 CHECK IF MORE RETRIES LEFT «, t00=0x0024, t01=0x00ba}
0x391c…3926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x00e8}
0x3926…393a Head {h00=0x0010, h01=0x0050, text=»READ30 EQU *«, t00=0x0024, t01=0x00f2}
0x393a…3972 Head {h00=0x0034, h01=0x0050, text=»* BOTH BLOCKS WERE OK OR BOTH WERE ERRONEOUS «, t00=0x0024, t01=0x0106}
0x3972…398e Head {h00=0x0018, h01=0x0050, text=» LDR A1,A1 BOTH OK? «, t00=0x0024, t01=0x013e}
0x398e…39ac Head {h00=0x001a, h01=0x0050, text=» RB(Z) ENDIO YES, EXIT«, t00=0x0024, t01=0x015a}
0x39ac…39b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x0178}
0x39b6…39ca Head {h00=0x0010, h01=0x0050, text=»READ40 EQU *«, t00=0x0024, t01=0x0182}
0x39ca…39fc Head {h00=0x002e, h01=0x0050, text=»* CHECK IF MORE RETRIES SHOULD BE MADE «, t00=0x0025, t01=0x0008}
0x39fc…3a30 Head {h00=0x0030, h01=0x0050, text=» LC A4,DWTFRT+DWTDEV+1,A6 GET RETRY COUNTER «, t00=0x0025, t01=0x003a}
0x3a30…3a4a Head {h00=0x0016, h01=0x0050, text=» ANK A4,/FF CLEAN «, t00=0x0025, t01=0x006e}
0x3a4a…3a6a Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 MORE RETRIES? «, t00=0x0025, t01=0x0088}
0x3a6a…3a94 Head {h00=0x0026, h01=0x0050, text=» RB(NN) READ10 YES, PERFORM RETRY «, t00=0x0025, t01=0x00a8}
0x3a94…3aae Head {h00=0x0016, h01=0x0050, text=» RB ENDIO NO, EXIT«, t00=0x0025, t01=0x00d2}
0x3aae…3ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00ec}
0x3ab8…3ad0 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0025, t01=0x00f6}
0x3ad0…3ada Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x010e}
0x3ada…3b14 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0025, t01=0x0118}
0x3b14…3b1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0152}
0x3b1e…3b38 Head {h00=0x0016, h01=0x0050, text=»* READ DATA BLOCK «, t00=0x0025, t01=0x015c}
0x3b38…3b42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0176}
0x3b42…3b7a Head {h00=0x0034, h01=0x0050, text=»* ONE DATA BLOCK IS READ FROM THE MSU. READING«, t00=0x0025, t01=0x0180}
0x3b7a…3bae Head {h00=0x0030, h01=0x0050, text=»* IS TERMINATED WHEN READ ERROR MESSAGE IS«, t00=0x0026, t01=0x0028}
0x3bae…3be2 Head {h00=0x0030, h01=0x0050, text=»* RECIEVED, END CHARACTER IS READ OR INPUT«, t00=0x0026, t01=0x005c}
0x3be2…3bfe Head {h00=0x0018, h01=0x0050, text=»* BUFFER IS FULL. «, t00=0x0026, t01=0x0090}
0x3bfe…3c08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x00ac}
0x3c08…3c22 Head {h00=0x0016, h01=0x0050, text=»* REGISTER INPUT: «, t00=0x0026, t01=0x00b6}
0x3c22…3c3e Head {h00=0x0018, h01=0x0050, text=»* A3 = BYTE INDEX«, t00=0x0026, t01=0x00d0}
0x3c3e…3c64 Head {h00=0x0022, h01=0x0050, text=»* A5 = LOCAL STACK POINTER «, t00=0x0026, t01=0x00ec}
0x3c64…3c82 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT ADDRESS «, t00=0x0026, t01=0x0112}
0x3c82…3ca0 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB ADDRESS «, t00=0x0026, t01=0x0130}
0x3ca0…3cc6 Head {h00=0x0022, h01=0x0050, text=»* A15 = SYSTEM STACK POINTER«, t00=0x0026, t01=0x014e}
0x3cc6…3cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0174}
0x3cd0…3cea Head {h00=0x0016, h01=0x0050, text=»* REGISTER OUTPUT:«, t00=0x0026, t01=0x017e}
0x3cea…3d08 Head {h00=0x001a, h01=0x0050, text=»* A1 = RETURN CODE «, t00=0x0027, t01=0x0008}
0x3d08…3d2c Head {h00=0x0020, h01=0x0050, text=»* A3 = UPDATED BYTE INDEX«, t00=0x0027, t01=0x0026}
0x3d2c…3d36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x004a}
0x3d36…3d70 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0027, t01=0x0054}
0x3d70…3d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x008e}
0x3d7a…3d8e Head {h00=0x0010, h01=0x0050, text=»REABLK EQU *«, t00=0x0027, t01=0x0098}
0x3d8e…3dae Head {h00=0x001c, h01=0x0050, text=» CF A5,INPUT FETCH DATA «, t00=0x0027, t01=0x00ac}
0x3dae…3dd0 Head {h00=0x001e, h01=0x0050, text=» CWK A2,RDERR READ ERROR? «, t00=0x0027, t01=0x00cc}
0x3dd0…3dee Head {h00=0x001a, h01=0x0050, text=» RF(E) RB100 YES, EXIT«, t00=0x0027, t01=0x00ee}
0x3dee…3df8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x010c}
0x3df8…3e1e Head {h00=0x0022, h01=0x0050, text=» CWK A2,CRWETX END CHARACTER? «, t00=0x0027, t01=0x0116}
0x3e1e…3e3c Head {h00=0x001a, h01=0x0050, text=» RF(E) RB110 YES, EXIT«, t00=0x0027, t01=0x013c}
0x3e3c…3e68 Head {h00=0x0028, h01=0x0050, text=» CW A3,ECBRL,A8 BUFFER ALREADY FULL?«, t00=0x0027, t01=0x015a}
0x3e68…3e88 Head {h00=0x001c, h01=0x0050, text=» RF(NL) RB120 YES, EXIT «, t00=0x0027, t01=0x0186}
0x3e88…3e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0016}
0x3e92…3eaa Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0028, t01=0x0020}
0x3eaa…3eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0038}
0x3eb4…3ede Head {h00=0x0026, h01=0x0050, text=» CF A15,CDCHK CHECK IF LEGAL CHAR «, t00=0x0028, t01=0x0042}
0x3ede…3f06 Head {h00=0x0024, h01=0x0050, text=» CF A15,STORE PUT CHAR IN BUFFER«, t00=0x0028, t01=0x006c}
0x3f06…3f28 Head {h00=0x001e, h01=0x0050, text=» RB REABLK READ NEXT CHAR «, t00=0x0028, t01=0x0094}
0x3f28…3f32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00b6}
0x3f32…3f3c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x00c0}
0x3f3c…3f7e Head {h00=0x003e, h01=0x0050, text=»* BLOCK TREATED. SET RETURN CODE AND EFFECTIVE LENGTH. «, t00=0x0028, t01=0x00ca}
0x3f7e…3f88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x010c}
0x3f88…3f9c Head {h00=0x0010, h01=0x0050, text=»RB100 EQU * «, t00=0x0028, t01=0x0116}
0x3f9c…3fbe Head {h00=0x001e, h01=0x0050, text=» LDK A1,NEGACK READ ERROR «, t00=0x0028, t01=0x012a}
0x3fbe…3fe6 Head {h00=0x0024, h01=0x0050, text=» LD A3,ECBEL,A8 RESET BYTE INDEX«, t00=0x0028, t01=0x014c}
0x3fe6…3ffc Head {h00=0x0012, h01=0x0050, text=» RF RB140 EXIT«, t00=0x0028, t01=0x0174}
0x3ffc…4006 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x018a}
0x4006…401a (41, 0, 400) Head {h00=0x0010, h01=0x0050, text=»RB110 EQU * «, t00=0x0029, t01=0x0004}
0x401a…403a Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 NORMAL ENDING «, t00=0x0029, t01=0x0018}
0x403a…4050 Head {h00=0x0012, h01=0x0050, text=» RF RB130 EXIT«, t00=0x0029, t01=0x0038}
0x4050…405a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004e}
0x405a…406e Head {h00=0x0010, h01=0x0050, text=»RB120 EQU * «, t00=0x0029, t01=0x0058}
0x406e…4094 Head {h00=0x0022, h01=0x0050, text=» LDK A1,INCLEN BUFFER OVERFLOW«, t00=0x0029, t01=0x006c}
0x4094…409e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0092}
0x409e…40b2 Head {h00=0x0010, h01=0x0050, text=»RB130 EQU * «, t00=0x0029, t01=0x009c}
0x40b2…40e2 Head {h00=0x002c, h01=0x0050, text=» ST A3,ECBEL,A8 EFFECTIVE LENGTH TO ECB «, t00=0x0029, t01=0x00b0}
0x40e2…40ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e0}
0x40ec…4100 Head {h00=0x0010, h01=0x0050, text=»RB140 EQU * «, t00=0x0029, t01=0x00ea}
0x4100…4110 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0029, t01=0x00fe}
0x4110…411a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x010e}
0x411a…4132 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0029, t01=0x0118}
0x4132…413c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0130}
0x413c…4176 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0029, t01=0x013a}
0x4176…4180 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0174}
0x4180…419c Head {h00=0x0018, h01=0x0050, text=»* WRITE CARD /06«, t00=0x0029, t01=0x017e}
0x419c…41a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x000a}
0x41a6…41e0 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x002a, t01=0x0014}
0x41e0…41ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x004e}
0x41ea…41fe Head {h00=0x0010, h01=0x0050, text=»WRITE EQU * «, t00=0x002a, t01=0x0058}
0x41fe…4226 Head {h00=0x0024, h01=0x0050, text=» LDK A4,RTRIES SET NO OF RTRIES «, t00=0x002a, t01=0x006c}
0x4226…424c Head {h00=0x0022, h01=0x0050, text=» LC A2,DWTDEV+1,A6 GET STATUS «, t00=0x002a, t01=0x0094}
0x424c…4260 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x002a, t01=0x00ba}
0x4260…428a Head {h00=0x0026, h01=0x0050, text=» SUK A2,DOCINS DOCUMENT INSERTED? «, t00=0x002a, t01=0x00ce}
0x428a…42a4 Head {h00=0x0016, h01=0x0050, text=» RF(E) WRIT05 YES «, t00=0x002a, t01=0x00f8}
0x42a4…42ce Head {h00=0x0026, h01=0x0050, text=»WRIT02 LDKL A1,CARMIS CARD MISSING«, t00=0x002a, t01=0x0112}
0x42ce…42e6 Head {h00=0x0014, h01=0x0050, text=»ENDIO2 RB ENDIO «, t00=0x002a, t01=0x013c}
0x42e6…42f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0154}
0x42f0…42fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x015e}
0x42fa…430e Head {h00=0x0010, h01=0x0050, text=»WRIT05 EQU *«, t00=0x002a, t01=0x0168}
0x430e…4340 Head {h00=0x002e, h01=0x0050, text=» CM DWTLRC+DWTDEV,A6 CLEAR LRC-ACKUMULATOR«, t00=0x002a, t01=0x017c}
0x4340…434a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x001e}
0x434a…4386 Head {h00=0x0038, h01=0x0050, text=»* TEST REQUESTED LENGTH AND GET START CHARACTER. «, t00=0x002b, t01=0x0028}
0x4386…4390 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0064}
0x4390…43c2 Head {h00=0x002e, h01=0x0050, text=» LDK A1,INCLEN SET ERROR CODE JUST IN CASE«, t00=0x002b, t01=0x006e}
0x43c2…43ea Head {h00=0x0024, h01=0x0050, text=» LD A2,ECBRL,A8 REQUESTED LENGTH«, t00=0x002b, t01=0x00a0}
0x43ea…441a Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTFRT+DWTDEV,A6 FORMAT CODE FLAG«, t00=0x002b, t01=0x00c8}
0x441a…443c Head {h00=0x001e, h01=0x0050, text=» RF(N) WRIT07 GERMAN BOOK «, t00=0x002b, t01=0x00f8}
0x443c…4446 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x011a}
0x4446…445e Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x002b, t01=0x0124}
0x445e…4468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x013c}
0x4468…4494 Head {h00=0x0028, h01=0x0050, text=»* CREDIT CARD / AMERICAN PASSBOOK«, t00=0x002b, t01=0x0146}
0x4494…44a8 Head {h00=0x0010, h01=0x0050, text=» SUK A2,104 «, t00=0x002b, t01=0x0172}
0x44a8…44d2 Head {h00=0x0026, h01=0x0050, text=» RB(P) ENDIO ERROR IF LENGTH > MAX«, t00=0x002b, t01=0x0186}
0x44d2…4510 Head {h00=0x003a, h01=0x0050, text=» LDK A3,CRWSTX START CHAR CREDIT CARD / AMERICAN BOOK «, t00=0x002c, t01=0x0020}
0x4510…452c Head {h00=0x0018, h01=0x0050, text=» RF WRIT09 CONTINUE «, t00=0x002c, t01=0x005e}
0x452c…4536 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x007a}
0x4536…454a Head {h00=0x0010, h01=0x0050, text=»WRIT07 EQU *«, t00=0x002c, t01=0x0084}
0x454a…4566 Head {h00=0x0018, h01=0x0050, text=»* GERMAN PASSBOOK«, t00=0x002c, t01=0x0098}
0x4566…4578 Head {h00=0x000e, h01=0x0050, text=» SUK A2,45«, t00=0x002c, t01=0x00b4}
0x4578…45a2 Head {h00=0x0026, h01=0x0050, text=» RB(P) ENDIO ERROR IF LENGTH > MAX«, t00=0x002c, t01=0x00c6}
0x45a2…45d0 Head {h00=0x002a, h01=0x0050, text=» LDK A3,CRDSTX START CHAR GERMAN BOOK «, t00=0x002c, t01=0x00f0}
0x45d0…45da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x011e}
0x45da…45ee Head {h00=0x0010, h01=0x0050, text=»WRIT09 EQU *«, t00=0x002c, t01=0x0128}
0x45ee…4612 Head {h00=0x0020, h01=0x0050, text=» LDK A2,80 MAX BLOCK SIZE =1«, t00=0x002c, t01=0x013c}
0x4612…4636 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START BLOCK =1«, t00=0x002c, t01=0x0160}
0x4636…465c Head {h00=0x0022, h01=0x0050, text=»ERRMS2 EQU * ERROR END I/O =1 «, t00=0x002c, t01=0x0184}
0x465c…4684 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ERRMS EERROR END I/O =1 «, t00=0x002d, t01=0x001a}
0x4684…469a Head {h00=0x0012, h01=0x0050, text=» LDR A2,A3 =2«, t00=0x002d, t01=0x0042}
0x469a…46be Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 RESET BUFFER INDEX«, t00=0x002d, t01=0x0058}
0x46be…46c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x007c}
0x46c8…46dc Head {h00=0x0010, h01=0x0050, text=»WRIT10 EQU *«, t00=0x002d, t01=0x0086}
0x46dc…4714 Head {h00=0x0034, h01=0x0050, text=» XRS A2,DWTLRC+DWTDEV,A6 UPDATE LRC-ACKUMULATOR «, t00=0x002d, t01=0x009a}
0x4714…4738 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x002d, t01=0x00d2}
0x4738…475e Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERRMS ERROR END I/O =1«, t00=0x002d, t01=0x00f6}
0x475e…4798 Head {h00=0x0036, h01=0x0050, text=»WRIT15 CF A15,GETCHR GET NEXT CHAR FROM ECB-BUFFER«, t00=0x002d, t01=0x011c}
0x4798…47c0 Head {h00=0x0024, h01=0x0050, text=» LDR A1,A1 ANY CHARACTERS LEFT? «, t00=0x002d, t01=0x0156}
0x47c0…47d8 Head {h00=0x0014, h01=0x0050, text=» RF(E) WRIT20 NO«, t00=0x002d, t01=0x017e}
0x47d8…47fa Head {h00=0x001e, h01=0x0050, text=» CF A15,CDCHK VALID CODE? «, t00=0x002e, t01=0x0008}
0x47fa…480c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A1«, t00=0x002e, t01=0x002a}
0x480c…4826 Head {h00=0x0016, h01=0x0050, text=» RB(Z) WRIT10 YES «, t00=0x002e, t01=0x003c}
0x4826…4838 Head {h00=0x000e, h01=0x0050, text=» RB WRIT15«, t00=0x002e, t01=0x0056}
0x4838…4842 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0068}
0x4842…485a Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x002e, t01=0x0072}
0x485a…4864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x008a}
0x4864…4878 Head {h00=0x0010, h01=0x0050, text=»WRIT20 EQU *«, t00=0x002e, t01=0x0094}
0x4878…48a2 Head {h00=0x0026, h01=0x0050, text=» LDK A2,CRWETX CARD END CHARACTER «, t00=0x002e, t01=0x00a8}
0x48a2…48ce Head {h00=0x0028, h01=0x0050, text=» XRS A2,DWTLRC+DWTDEV,A6 UPDATE LRC «, t00=0x002e, t01=0x00d2}
0x48ce…48f2 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x002e, t01=0x00fe}
0x48f2…4918 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERRMS ERROR END I/O =1«, t00=0x002e, t01=0x0122}
0x4918…4946 Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTLRC+DWTDEV,A6 LRC-CHARACTER «, t00=0x002e, t01=0x0148}
0x4946…4962 Head {h00=0x0018, h01=0x0050, text=» ORK A2,/30 SET ZONE«, t00=0x002e, t01=0x0176}
0x4962…498a (47, 0, 400) Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND LRC-CHARACTER«, t00=0x002f, t01=0x0004}
0x498a…49b0 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERRMS ERROR END I/O =1«, t00=0x002f, t01=0x002c}
0x49b0…49ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0052}
0x49ba…49e0 Head {h00=0x0022, h01=0x0050, text=»* SEND WRITE TRACK COMMAND «, t00=0x002f, t01=0x005c}
0x49e0…4a0e Head {h00=0x002a, h01=0x0050, text=» LDK A2,ENCTRD ASSUME GERMAN PASSBOOK «, t00=0x002f, t01=0x0082}
0x4a0e…4a40 Head {h00=0x002e, h01=0x0050, text=» LD A1,DWTFRT+DWTDEV,A6 IS IT GERMAN BOOK?«, t00=0x002f, t01=0x00b0}
0x4a40…4a64 Head {h00=0x0020, h01=0x0050, text=» RF(N) WRIT30 YES, CONTINUE «, t00=0x002f, t01=0x00e2}
0x4a64…4a9e Head {h00=0x0036, h01=0x0050, text=» LDK A2,ENCTRA NO, SET CREDIT CARD / AMERICAN BOOK«, t00=0x002f, t01=0x0106}
0x4a9e…4aa8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0140}
0x4aa8…4abc Head {h00=0x0010, h01=0x0050, text=»WRIT30 EQU *«, t00=0x002f, t01=0x014a}
0x4abc…4aea Head {h00=0x002a, h01=0x0050, text=» CF A5,OUTPUT SEND WRITE TRACK COMMAND«, t00=0x002f, t01=0x015e}
0x4aea…4b10 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERRMS ERROR END I/O =1«, t00=0x002f, t01=0x018c}
0x4b10…4b32 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END BLOCK =1«, t00=0x0030, t01=0x0022}
0x4b32…4b58 Head {h00=0x0022, h01=0x0050, text=» RF(NZ) ERRMS ERROR END I/O =1«, t00=0x0030, t01=0x0044}
0x4b58…4b84 Head {h00=0x0028, h01=0x0050, text=» CF A5,INPUT WAIT FOR STATUS MESSAGE«, t00=0x0030, t01=0x006a}
0x4b84…4ba4 Head {h00=0x001c, h01=0x0050, text=» LDK A1,0 RETURN CODE OK«, t00=0x0030, t01=0x0096}
0x4ba4…4bc4 Head {h00=0x001c, h01=0x0050, text=» CWK A2,WROK WAS IT OK? «, t00=0x0030, t01=0x00b6}
0x4bc4…4be4 Head {h00=0x001c, h01=0x0050, text=» RB(E) ENDIO2 YES, EXIT «, t00=0x0030, t01=0x00d6}
0x4be4…4bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x00f6}
0x4bee…4c0e Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 MORE RETRIES? «, t00=0x0030, t01=0x0100}
0x4c0e…4c38 Head {h00=0x0026, h01=0x0050, text=» RB(NN) WRIT05 YES, PERFORM RETRY «, t00=0x0030, t01=0x0120}
0x4c38…4c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x014a}
0x4c42…4c72 Head {h00=0x002c, h01=0x0050, text=» LDK A1,NEGACK RETURN CODE NEGATIVE ACK «, t00=0x0030, t01=0x0154}
0x4c72…4c9c Head {h00=0x0026, h01=0x0050, text=» CWK A2,WRERR WAS IT WRITE ERROR? «, t00=0x0030, t01=0x0184}
0x4c9c…4cbc Head {h00=0x001c, h01=0x0050, text=» RB(E) ENDIO2 YES, EXIT «, t00=0x0031, t01=0x001e}
0x4cbc…4cc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x003e}
0x4cc6…4cfc Head {h00=0x0032, h01=0x0050, text=» LDK A1,WARNRW RETURN CODE READ/WRITE WARNING «, t00=0x0031, t01=0x0048}
0x4cfc…4d28 Head {h00=0x0028, h01=0x0050, text=» CWK A2,WRWARN WAS IT WRITE WARNING?«, t00=0x0031, t01=0x007e}
0x4d28…4d48 Head {h00=0x001c, h01=0x0050, text=» RB(E) ENDIO2 YES, EXIT «, t00=0x0031, t01=0x00aa}
0x4d48…4d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00ca}
0x4d52…4d90 Head {h00=0x003a, h01=0x0050, text=» LDK A1,THRERR ILLEGAL STATUS FROM MSU. THROUGHPUT ERR«, t00=0x0031, t01=0x00d4}
0x4d90…4da2 Head {h00=0x000e, h01=0x0050, text=» RB ENDIO2«, t00=0x0031, t01=0x0112}
0x4da2…4dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0124}
0x4dac…4dc4 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0031, t01=0x012e}
0x4dc4…4dce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0146}
0x4dce…4de2 Head {h00=0x0010, h01=0x0050, text=»* I H M S «, t00=0x0031, t01=0x0150}
0x4de2…4dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0164}
0x4dec…4e0a Head {h00=0x001a, h01=0x0050, text=»* INTERRUPT HANDLER «, t00=0x0031, t01=0x016e}
0x4e0a…4e14 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x018c}
0x4e14…4e1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0008}
0x4e1e…4e30 Head {h00=0x000e, h01=0x0050, text=»IHMS EQU *«, t00=0x0032, t01=0x0012}
0x4e30…4e44 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0032, t01=0x0024}
0x4e44…4e6c Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTST,A6 GET STATUS WORD «, t00=0x0032, t01=0x0038}
0x4e6c…4e88 Head {h00=0x0018, h01=0x0050, text=» RF(NN) IHM100 BUSY «, t00=0x0032, t01=0x0060}
0x4e88…4ea4 Head {h00=0x0018, h01=0x0050, text=» LDR A3,A2 SAVE CHAR«, t00=0x0032, t01=0x007c}
0x4ea4…4ecc Head {h00=0x0024, h01=0x0050, text=» SUK A3,DOCINS DOCUMENT INSERTED«, t00=0x0032, t01=0x0098}
0x4ecc…4ee2 Head {h00=0x0012, h01=0x0050, text=» RF(E) IHMS10 «, t00=0x0032, t01=0x00c0}
0x4ee2…4f04 Head {h00=0x001e, h01=0x0050, text=» SUK A3,DOCESC-DOCINS =2 «, t00=0x0032, t01=0x00d6}
0x4f04…4f36 Head {h00=0x002e, h01=0x0050, text=» RF(NE) IHMS20 NEITHER INSERTED OR ESCAPED«, t00=0x0032, t01=0x00f8}
0x4f36…4f4a Head {h00=0x0010, h01=0x0050, text=»IHMS10 EQU *«, t00=0x0032, t01=0x012a}
0x4f4a…4f74 Head {h00=0x0026, h01=0x0050, text=» SC A2,DWTDEV+1,A6 SET STATUS WORD«, t00=0x0032, t01=0x013e}
0x4f74…4f9c Head {h00=0x0024, h01=0x0050, text=»EXIT ABL LDISP GO TO DISPATCHER «, t00=0x0032, t01=0x0168}
0x4f9c…4fa6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0190}
0x4fa6…4fba Head {h00=0x0010, h01=0x0050, text=»IHMS20 EQU *«, t00=0x0033, t01=0x000a}
0x4fba…4fc4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x001e}
0x4fc4…4ffc Head {h00=0x0034, h01=0x002f, text=»* STORE INCOMING CHARACTER IN CIRCULAR BUFFER «, t00=0x0033, t01=0x0028}
0x4ffc…5006 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x0060}
0x5006…5026 Head {h00=0x001c, h01=0x0050, text=» LD A1,DWTDEV+DWTINQ,A6 «, t00=0x0033, t01=0x006a}
0x5026…5038 Head {h00=0x000e, h01=0x000a, text=» LCR A4,A1«, t00=0x0033, t01=0x008a}
0x5038…505e Head {h00=0x0022, h01=0x001e, text=» XRK A4,/FF ALREADY OVERFLOW ?«, t00=0x0033, t01=0x009c}
0x505e…5078 Head {h00=0x0016, h01=0x0050, text=» RB(E) EXIT YES ! «, t00=0x0033, t01=0x00c2}
0x5078…5082 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x00dc}
0x5082…5094 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0033, t01=0x00e6}
0x5094…50cc Head {h00=0x0034, h01=0x0050, text=» CF A15,EOQUEU GET NEXT OUTQUEUE POINTER ADDRESS«, t00=0x0033, t01=0x00f8}
0x50cc…50d6 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0033, t01=0x0130}
0x50d6…5100 Head {h00=0x0026, h01=0x0050, text=» CW A1,DWTDEV+DWTUTQ,A6 OVERFLOW ?«, t00=0x0033, t01=0x013a}
0x5100…511c Head {h00=0x0018, h01=0x0050, text=» RF(NE) IHMS30 NO ! «, t00=0x0033, t01=0x0164}
0x511c…514a Head {h00=0x002a, h01=0x0026, text=» ORK A2,/FF SET OVERFLOW BIT IN BUFFER«, t00=0x0033, t01=0x0180}
0x514a…515c Head {h00=0x000e, h01=0x0050, text=» RF IHMS40«, t00=0x0034, t01=0x001e}
0x515c…5166 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x0030}
0x5166…51a2 Head {h00=0x0038, h01=0x0050, text=»IHMS30 ST A1,DWTDEV+DWTINQ,A6 STORE INQUEUE POINTER «, t00=0x0034, t01=0x003a}
0x51a2…51da Head {h00=0x0034, h01=0x0050, text=»IHMS40 SCR A2,A4 STORE CHARACTER IN INPUT BUFFER«, t00=0x0034, t01=0x0076}
0x51da…51e4 Head {h00=0x0006, h01=0x0003, text=»* «, t00=0x0034, t01=0x00ae}
0x51e4…51fe Head {h00=0x0016, h01=0x0050, text=» RB EXIT DISPATCH «, t00=0x0034, t01=0x00b8}
0x51fe…5216 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0034, t01=0x00d2}
0x5216…5220 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ea}
0x5220…5238 Head {h00=0x0014, h01=0x0050, text=»* DEVICE BUSY «, t00=0x0034, t01=0x00f4}
0x5238…5242 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x010c}
0x5242…5256 Head {h00=0x0010, h01=0x0050, text=»IHM100 EQU *«, t00=0x0034, t01=0x0116}
0x5256…526c Head {h00=0x0012, h01=0x0050, text=» SUK A7,INCARD«, t00=0x0034, t01=0x012a}
0x526c…5298 Head {h00=0x0028, h01=0x0050, text=» RF(E) IHRET INSERT CARD ORDER CODE «, t00=0x0034, t01=0x0140}
0x5298…52ba Head {h00=0x001e, h01=0x0050, text=» ADK A7,INCARD-ENOFOP =2 «, t00=0x0034, t01=0x016c}
0x52ba…52ea Head {h00=0x002c, h01=0x0050, text=» RF(E) IHRET END OF OPERATION ORDER CODE«, t00=0x0034, t01=0x018e}
0x52ea…52fc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0035, t01=0x002e}
0x52fc…5312 Head {h00=0x0012, h01=0x0050, text=» SUK A4,DOCESC«, t00=0x0035, t01=0x0040}
0x5312…5338 Head {h00=0x0022, h01=0x0050, text=» RF(E) IHM140 DOCUMENT ESCAPED«, t00=0x0035, t01=0x0056}
0x5338…534c Head {h00=0x0010, h01=0x0050, text=»IHRET EQU * «, t00=0x0035, t01=0x007c}
0x534c…5360 Head {h00=0x0010, h01=0x0050, text=» ABL LENDER «, t00=0x0035, t01=0x0090}
0x5360…536a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a4}
0x536a…5382 Head {h00=0x0014, h01=0x0050, text=»IHM140 EQU * =2«, t00=0x0035, t01=0x00ae}
0x5382…53b2 Head {h00=0x002c, h01=0x0050, text=» SC A2,DWTST+1,A6 UPDATE STATUS WORD =2 «, t00=0x0035, t01=0x00c6}
0x53b2…53d6 Head {h00=0x0020, h01=0x0050, text=» LDKL A1,CARMIS CARD MISSING«, t00=0x0035, t01=0x00f6}
0x53d6…53ee Head {h00=0x0014, h01=0x0050, text=»ENDIO4 RB ENDIO2«, t00=0x0035, t01=0x011a}
0x53ee…5406 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0035, t01=0x0132}
0x5406…5410 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x014a}
0x5410…541a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0154}
0x541a…542e Head {h00=0x0010, h01=0x0050, text=»* R C M S «, t00=0x0035, t01=0x015e}
0x542e…5438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0172}
0x5438…5454 Head {h00=0x0018, h01=0x0050, text=»* RECOVERY ROUTINE«, t00=0x0035, t01=0x017c}
0x5454…545e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0008}
0x545e…5468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0012}
0x5468…547a Head {h00=0x000e, h01=0x0050, text=»RCMS EQU *«, t00=0x0036, t01=0x001c}
0x547a…5490 Head {h00=0x0012, h01=0x0050, text=» LDK A2,DOCESC«, t00=0x0036, t01=0x002e}
0x5490…54bc Head {h00=0x0028, h01=0x0050, text=» SC A2,DWTDEV+1,A6 RESET STATUS WORD«, t00=0x0036, t01=0x0044}
0x54bc…54da Head {h00=0x001a, h01=0x0050, text=» LD A7,DWTST,A6 BUSY? «, t00=0x0036, t01=0x0070}
0x54da…54f0 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x0036, t01=0x008e}
0x54f0…5518 Head {h00=0x0024, h01=0x0050, text=» LDK A1,THRERR THROUGHPUT ERROR «, t00=0x0036, t01=0x00a4}
0x5518…552a Head {h00=0x000e, h01=0x0050, text=» RB ENDIO4«, t00=0x0036, t01=0x00cc}
0x552a…5542 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0036, t01=0x00de}
0x5542…554c Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0036, t01=0x00f6}
0x554c…5556 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0100}
0x5556…557c Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0036, t01=0x010a}
0x557c…5586 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0130}
0x5586…5590 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x013a}
0x5590…55a4 Head {h00=0x0010, h01=0x0050, text=»* E R R M S «, t00=0x0036, t01=0x0144}
0x55a4…55ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0158}
0x55ae…55c6 Head {h00=0x0014, h01=0x0050, text=»* ERROR ROUTINE «, t00=0x0036, t01=0x0162}
0x55c6…55d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x017a}
0x55d0…55da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0184}
0x55da…5600 Head {h00=0x0022, h01=0x0050, text=»******************************«, t00=0x0036, t01=0x018e}
0x5600…560a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0024}
0x560a…5614 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x002e}
0x5614…5638 Head {h00=0x0020, h01=0x0050, text=»ERRMS EQU * ERROR ROUTINE =1«, t00=0x0037, t01=0x0038}
0x5638…5668 Head {h00=0x002c, h01=0x0050, text=» ANK A1,/12 OUTPUT ERROR OR LRC - ERROR «, t00=0x0037, t01=0x005c}
0x5668…5690 Head {h00=0x0024, h01=0x0050, text=» RB(NZ) RCMS YES DO RECOVERY =1 «, t00=0x0037, t01=0x008c}
0x5690…56c2 Head {h00=0x002e, h01=0x0050, text=» LDK A1,NOTOPE RETURN CODE NOT OPERABLE =1«, t00=0x0037, t01=0x00b4}
0x56c2…56e8 Head {h00=0x0022, h01=0x0050, text=» RB ENDIO4 END I/O REQUEST =1 «, t00=0x0037, t01=0x00e6}
0x56e8…5700 Head {h00=0x0014, h01=0x0050, text=» EJECT DRMS02 «, t00=0x0037, t01=0x010c}
0x5700…570a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0124}
0x570a…573c Head {h00=0x002e, h01=0x0050, text=»* STORE = SUBROUTINE TO STORE CHARACTER «, t00=0x0037, t01=0x012e}
0x573c…577a Head {h00=0x003a, h01=0x0050, text=»* IN ECB-BUFFER AND INCREMENT BUFFER INDEX. «, t00=0x0037, t01=0x0160}
0x577a…5784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x000e}
0x5784…5798 Head {h00=0x0010, h01=0x0050, text=»STORE EQU * «, t00=0x0038, t01=0x0018}
0x5798…57be Head {h00=0x0022, h01=0x0050, text=» LD A7,ECBBA,A8 BUFFER ADDRESS«, t00=0x0038, t01=0x002c}
0x57be…57e2 Head {h00=0x0020, h01=0x0050, text=» ADR A7,A3 ADD BUFFER INDEX «, t00=0x0038, t01=0x0052}
0x57e2…5800 Head {h00=0x001a, h01=0x0050, text=» SCR A2,A7 STORE CHAR «, t00=0x0038, t01=0x0076}
0x5800…581e Head {h00=0x001a, h01=0x0050, text=» ADK A3,1 INCR. INDEX «, t00=0x0038, t01=0x0094}
0x581e…582e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0038, t01=0x00b2}
0x582e…5838 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00c2}
0x5838…584e Head {h00=0x0012, h01=0x0050, text=» EJECT DROD01«, t00=0x0038, t01=0x00cc}
0x584e…5858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e2}
0x5858…5862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00ec}
0x5862…589c Head {h00=0x0036, h01=0x0050, text=»* EOQUEU = SUBROUTINE TO GET NEXT QUEUE POINTER«, t00=0x0038, t01=0x00f6}
0x589c…58a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0130}
0x58a6…58bc Head {h00=0x0012, h01=0x0050, text=»* ON ENTRY:«, t00=0x0038, t01=0x013a}
0x58bc…58c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0150}
0x58c6…58e6 Head {h00=0x001c, h01=0x0050, text=»* A1 = QUEUE POINTER «, t00=0x0038, t01=0x015a}
0x58e6…5904 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0038, t01=0x017a}
0x5904…590e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0008}
0x590e…5924 Head {h00=0x0012, h01=0x0050, text=»* ON EXIT: «, t00=0x0039, t01=0x0012}
0x5924…592e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0028}
0x592e…5952 Head {h00=0x0020, h01=0x0050, text=»* A1 = NEW QUEUE POINTER «, t00=0x0039, t01=0x0032}
0x5952…5966 Head {h00=0x0010, h01=0x0050, text=»EOQUEU EQU *«, t00=0x0039, t01=0x0056}
0x5966…5978 Head {h00=0x000e, h01=0x0050, text=» ADK A1,1 «, t00=0x0039, t01=0x006a}
0x5978…598a Head {h00=0x000e, h01=0x0050, text=» SUR A1,A6«, t00=0x0039, t01=0x007c}
0x598a…59b4 Head {h00=0x0026, h01=0x0050, text=» CWK A1,DWTEQ+DWTDEV END OF QUEUE?«, t00=0x0039, t01=0x008e}
0x59b4…59ca Head {h00=0x0012, h01=0x0050, text=» RF(NE) EOQU10«, t00=0x0039, t01=0x00b8}
0x59ca…59fe Head {h00=0x0030, h01=0x0050, text=» LDKL A1,DWTSQ+DWTDEV SET QUEUE START ADRESS«, t00=0x0039, t01=0x00ce}
0x59fe…5a16 Head {h00=0x0014, h01=0x0050, text=»EOQU10 ADR A1,A6«, t00=0x0039, t01=0x0102}
0x5a16…5a26 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x0039, t01=0x011a}
0x5a26…5a34 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x012a}
0x5a34…5a3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0138}
0x5a3e…5a6c Head {h00=0x002a, h01=0x0050, text=»* CDCHK = CHECK IF CODE CHECK ERROR «, t00=0x0039, t01=0x0142}
0x5a6c…5a76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0170}
0x5a76…5a98 Head {h00=0x001e, h01=0x0050, text=»* AT ENTRY: A2=CHARACTER«, t00=0x0039, t01=0x017a}
0x5a98…5ac0 Head {h00=0x0024, h01=0x0050, text=»* AT EXIT: A1=RERURN CODE 0,2 «, t00=0x003a, t01=0x000c}
0x5ac0…5aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0034}
0x5aca…5ade Head {h00=0x0010, h01=0x0050, text=»CDCHK EQU * «, t00=0x003a, t01=0x003e}
0x5ade…5af0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x003a, t01=0x0052}
0x5af0…5b10 Head {h00=0x001c, h01=0x0050, text=» SUK A1,/30 VALID CODE? «, t00=0x003a, t01=0x0064}
0x5b10…5b28 Head {h00=0x0014, h01=0x0050, text=» RF(N) CDC20 NO «, t00=0x003a, t01=0x0084}
0x5b28…5b42 Head {h00=0x0016, h01=0x0050, text=» SUK A1,10 DIGIT? «, t00=0x003a, t01=0x009c}
0x5b42…5b5e Head {h00=0x0018, h01=0x0050, text=» RF(N) CDC30 YES, OK«, t00=0x003a, t01=0x00b6}
0x5b5e…5b68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d2}
0x5b68…5b9a Head {h00=0x002e, h01=0x0050, text=»* THE CHARACTER IS A CONTROL CHARACTER «, t00=0x003a, t01=0x00dc}
0x5b9a…5bc6 Head {h00=0x0028, h01=0x0050, text=» LD A1,DWTFRT+DWTDEV,A6 CREDIT CARD?«, t00=0x003a, t01=0x010e}
0x5bc6…5be0 Head {h00=0x0016, h01=0x0050, text=» RF(NN) CDC10 YES «, t00=0x003a, t01=0x013a}
0x5be0…5bea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0154}
0x5bea…5c06 Head {h00=0x0018, h01=0x0050, text=»* GERMAN PASSBOOK«, t00=0x003a, t01=0x015e}
0x5c06…5c2a Head {h00=0x0020, h01=0x0050, text=» CWK A2,/3E FIELD SEPARATOR?«, t00=0x003a, t01=0x017a}
0x5c2a…5c46 Head {h00=0x0018, h01=0x0050, text=» RF(E) CDC30 YES, OK«, t00=0x003b, t01=0x000e}
0x5c46…5c62 Head {h00=0x0018, h01=0x0050, text=» RF CDC20 NO, ERROR «, t00=0x003b, t01=0x002a}
0x5c62…5c6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0046}
0x5c6c…5c80 Head {h00=0x0010, h01=0x0050, text=»CDC10 EQU * «, t00=0x003b, t01=0x0050}
0x5c80…5cac Head {h00=0x0028, h01=0x0050, text=»* CREDIT CARD / AMERICAN PASSBOOK«, t00=0x003b, t01=0x0064}
0x5cac…5cc8 Head {h00=0x0018, h01=0x0050, text=» LDR A1,A2 CHARACTER«, t00=0x003b, t01=0x0090}
0x5cc8…5cee Head {h00=0x0022, h01=0x0050, text=» SUK A1,/3A ACCOUNT SEPARATOR?«, t00=0x003b, t01=0x00ac}
0x5cee…5d0a Head {h00=0x0018, h01=0x0050, text=» RF(Z) CDC30 YES, OK«, t00=0x003b, t01=0x00d2}
0x5d0a…5d2c Head {h00=0x001e, h01=0x0050, text=» SUK A1,3 FIELD SEPARATOR?«, t00=0x003b, t01=0x00ee}
0x5d2c…5d48 Head {h00=0x0018, h01=0x0050, text=» RF(Z) CDC30 YES, OK«, t00=0x003b, t01=0x0110}
0x5d48…5d52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x012c}
0x5d52…5d66 Head {h00=0x0010, h01=0x0050, text=»CDC20 EQU * «, t00=0x003b, t01=0x0136}
0x5d66…5d84 Head {h00=0x001a, h01=0x0050, text=»* ILLEGAL CHARACTER«, t00=0x003b, t01=0x014a}
0x5d84…5db6 Head {h00=0x002e, h01=0x0050, text=» LDK A1,THRERR RET CODE := THROUGHPUT ERR «, t00=0x003b, t01=0x0168}
0x5db6…5ddc Head {h00=0x0022, h01=0x0050, text=» ORS A1,ECBRC,A8 INSERT IN ECB«, t00=0x003c, t01=0x000a}
0x5ddc…5df2 Head {h00=0x0012, h01=0x0050, text=» RF CDC40 EXIT«, t00=0x003c, t01=0x0030}
0x5df2…5dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0046}
0x5dfc…5e10 Head {h00=0x0010, h01=0x0050, text=»CDC30 EQU * «, t00=0x003c, t01=0x0050}
0x5e10…5e2c Head {h00=0x0018, h01=0x0050, text=»* VALID CHARACTER«, t00=0x003c, t01=0x0064}
0x5e2c…5e50 Head {h00=0x0020, h01=0x0050, text=» LDK A1,0 RETURN CODE := OK «, t00=0x003c, t01=0x0080}
0x5e50…5e64 Head {h00=0x0010, h01=0x0050, text=»CDC40 EQU * «, t00=0x003c, t01=0x00a4}
0x5e64…5e74 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003c, t01=0x00b8}
0x5e74…5e7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x00c8}
0x5e7e…5e8a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x003c, t01=0x00d2}
0x5e8a…5e8e Head {h00=0x4004, h01=0x0000}
0x5e8e…5e92 00 3c 00 de ┆ < ┆
0x5e92…5e9a (61, 1, 8) 20 04 00 00 00 3d 00 04 ┆ = ┆
0x5e9a…5eea (62, 0, 400) 37 30 5c 43 31 52 5c 41 31 2c 41 31 5c 43 4f 4d 50 4c 45 4d 45 4e 54 20 00 25 01 8c 00 22 00 50 5c 41 4e 53 5c 41 31 2c 44 57 54 44 45 56 2b 44 57 54 43 53 2c 41 36 5c 43 4c 45 41 52 20 00 26 00 20 00 06 00 03 2a 20 00 26 00 46 00 24 00 50 ┆70 C1R A1,A1 COMPLEMENT % " P ANS A1,DWTDEV+DWTCS,A6 CLEAR & * & F $ P┆
0x5eea…5f3a 4d 4b 42 32 38 30 5c 41 42 4c 5c 4d 4b 42 31 30 30 5c 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 00 26 00 50 00 0a 00 50 5c 45 4a 45 43 54 00 26 00 78 00 06 00 03 2a 20 00 26 00 86 00 2e 00 50 2a 20 20 20 53 50 45 43 49 41 4c 20 43 4f 4e 56 ┆MKB280 ABL MKB100 NEXT CHARACTER & P P EJECT & x * & . P* SPECIAL CONV┆
0x5f3a…5f8a 45 52 53 49 4f 4e 20 4f 46 20 43 48 41 52 41 43 54 45 52 53 20 46 52 4f 4d 20 00 26 00 90 00 1e 00 50 2a 20 20 20 4e 55 4d 45 52 49 43 20 50 41 52 54 20 4f 46 20 36 32 33 34 2e 20 00 26 00 c2 00 06 00 03 2a 20 00 26 00 e4 00 10 00 50 4d 4b ┆ERSION OF CHARACTERS FROM & P* NUMERIC PART OF 6234. & * & PMK┆
0x5f8a…5fda 42 32 39 30 5c 45 51 55 5c 2a 00 26 00 ee 00 24 00 20 5c 4c 44 52 5c 41 31 2c 41 36 5c 49 46 20 54 48 45 20 44 57 54 2d 41 44 44 52 45 53 53 20 49 53 00 26 01 02 00 2c 00 50 5c 41 4e 4b 5c 41 31 2c 31 5c 4f 44 44 2c 20 53 48 4f 55 4c 44 20 ┆B290 EQU * & $ LDR A1,A6 IF THE DWT-ADDRESS IS & , P ANK A1,1 ODD, SHOULD ┆
0x5fda…602a 53 50 45 43 49 41 4c 20 43 4f 4e 56 45 52 53 49 4f 4e 00 26 01 2a 00 1a 00 50 5c 52 46 28 4e 5a 29 5c 4d 4b 42 32 39 35 5c 42 45 20 55 53 45 44 00 26 01 5a 00 28 00 50 5c 4c 44 52 5c 41 34 2c 41 32 5c 49 46 20 42 49 54 20 38 20 49 4e 20 43 ┆SPECIAL CONVERSION & * P RF(NZ) MKB295 BE USED & Z ( P LDR A4,A2 IF BIT 8 IN C┆
0x602a…607a (63, 0, 398) 48 41 52 41 43 54 45 52 20 49 53 20 00 26 01 78 00 30 00 50 5c 41 4e 4b 5c 41 34 2c 2f 38 30 5c 53 45 54 20 53 48 4f 55 4c 44 20 53 50 45 43 49 41 4c 20 43 4f 4e 56 2e 20 42 45 20 55 53 45 44 00 27 00 14 00 28 00 50 5c 52 46 28 5a 29 5c 4d ┆HARACTER IS & x 0 P ANK A4,/80 SET SHOULD SPECIAL CONV. BE USED ' ( P RF(Z) M┆
0x607a…60ca 4b 42 33 31 30 5c 4e 4f 20 53 50 45 43 49 41 4c 20 43 4f 4e 56 45 52 53 49 4f 4e 20 00 27 00 48 00 20 00 50 5c 41 4e 4b 5c 41 32 2c 2f 37 46 5c 4d 41 53 4b 20 41 57 41 59 20 42 49 54 20 38 20 00 27 00 74 00 06 00 03 2a 20 00 27 00 98 00 26 ┆KB310 NO SPECIAL CONVERSION ' H P ANK A2,/7F MASK AWAY BIT 8 ' t * ' &┆
0x60ca…611a 00 50 2a 20 20 20 49 4e 44 49 43 41 54 45 20 53 50 45 43 49 41 4c 20 43 4f 4e 56 45 52 53 49 4f 4e 20 21 20 00 27 00 a2 00 06 00 03 2a 20 00 27 00 cc 00 32 00 50 4d 4b 42 32 39 35 5c 41 4e 4b 4c 5c 41 36 2c 2f 46 46 46 45 5c 4d 41 4b 45 20 ┆ P* INDICATE SPECIAL CONVERSION ! ' * ' 2 PMKB295 ANKL A6,/FFFE MAKE ┆
0x611a…616a 54 48 45 20 44 57 54 2d 41 44 44 52 45 53 53 20 45 56 45 4e 00 27 00 d6 00 20 00 50 5c 4c 44 4b 5c 41 34 2c 2f 38 5c 4c 4f 41 44 20 53 50 45 43 49 41 4c 20 42 49 54 20 00 27 01 0c 00 1a 00 50 5c 53 54 5c 41 34 2c 44 57 54 44 45 56 2b 44 57 ┆THE DWT-ADDRESS EVEN ' P LDK A4,/8 LOAD SPECIAL BIT ' P ST A4,DWTDEV+DW┆
0x616a…61b8 54 43 53 2c 41 36 00 27 01 30 00 0e 00 50 5c 52 46 5c 4d 4b 42 33 31 30 00 27 01 4e 00 0a 00 50 5c 45 4a 45 43 54 00 27 01 60 00 06 00 03 2a 20 00 27 01 6e 00 1a 00 15 2a 20 20 20 4e 4f 52 4d 41 4c 20 43 4f 4e 56 45 52 53 49 4f 4e 20 ┆TCS,A6 ' 0 P RF MKB310 ' N P EJECT ' ` * ' n * NORMAL CONVERSION ┆
0x61b8…6208 (64, 0, 400) 00 27 01 78 00 06 00 03 2a 20 00 28 00 08 00 10 00 50 4d 4b 42 33 30 30 5c 45 51 55 5c 2a 00 28 00 12 00 06 00 03 2a 20 00 28 00 26 00 12 00 0d 5c 49 46 54 5c 4b 42 4c 4f 43 4b 3d 31 20 00 28 00 30 00 2a 00 50 5c 4c 44 5c 41 31 2c 44 57 54 ┆ ' x * ( PMKB300 EQU * ( * ( & IFT KBLOCK=1 ( 0 * P LD A1,DWT┆
0x6208…6258 44 45 56 2b 44 57 54 4b 45 59 2c 41 36 5c 49 53 20 4b 42 20 4c 4f 43 4b 45 44 20 3f 00 28 00 46 00 2e 00 50 5c 41 42 4c 28 5a 29 5c 4d 4b 42 31 30 30 5c 59 45 53 20 21 20 52 45 41 44 20 41 20 4e 45 57 20 43 48 41 52 41 43 54 45 52 20 00 28 ┆DEV+DWTKEY,A6 IS KB LOCKED ? ( F . P ABL(Z) MKB100 YES ! READ A NEW CHARACTER (┆
0x6258…62a8 00 74 00 08 00 04 5c 58 49 46 00 28 00 a6 00 06 00 03 2a 20 00 28 00 b2 00 10 00 50 4d 4b 42 33 31 30 5c 45 51 55 5c 2a 00 28 00 bc 00 2c 00 50 5c 4c 44 5c 41 31 2c 44 57 54 44 45 56 2b 44 57 54 43 54 42 2c 41 36 5c 47 45 54 20 43 54 41 42 ┆ t XIF ( * ( PMKB310 EQU * ( , P LD A1,DWTDEV+DWTCTB,A6 GET CTAB┆
0x62a8…62f8 20 41 44 44 52 45 53 53 00 28 00 d0 00 20 00 50 5c 52 46 28 45 29 5c 4d 4b 42 33 32 30 5c 4e 4f 20 43 4f 4e 56 45 52 53 49 4f 4e 20 00 28 01 00 00 38 00 50 5c 41 44 5c 41 31 2c 44 57 54 44 45 56 2b 44 57 54 43 53 2c 41 36 5c 47 45 54 20 43 ┆ ADDRESS ( P RF(E) MKB320 NO CONVERSION ( 8 P AD A1,DWTDEV+DWTCS,A6 GET C┆
0x62f8…6348 55 52 52 45 4e 54 20 43 4f 4e 56 45 52 53 49 4f 4e 20 54 41 42 4c 45 20 00 28 01 24 00 10 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 20 00 28 01 60 00 26 00 50 5c 52 46 28 45 29 5c 4d 4b 42 33 32 30 5c 4e 4f 20 43 4f 4e 56 45 52 53 49 4f 4e 20 ┆URRENT CONVERSION TABLE ( $ P LDR* A1,A1 ( ` & P RF(E) MKB320 NO CONVERSION ┆
0x6348…6398 (65, 0, 400) 54 41 42 4c 45 20 00 28 01 74 00 0e 00 0a 5c 4c 44 52 5c 41 34 2c 41 32 00 29 00 0e 00 10 00 0b 5c 41 4e 4b 5c 41 34 2c 2f 46 46 20 00 29 00 20 00 18 00 14 5c 53 52 4c 5c 41 34 2c 33 5c 4c 49 4e 45 20 49 4e 44 45 58 00 29 00 34 00 0e 00 50 ┆TABLE ( t LDR A4,A2 ) ANK A4,/FF ) SRL A4,3 LINE INDEX ) 4 P┆
0x6398…63e8 5c 41 44 52 5c 41 31 2c 41 34 00 29 00 50 00 24 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 31 5c 43 4f 4c 55 4d 4e 20 54 41 42 4c 45 20 41 44 44 52 45 53 53 00 29 00 62 00 1c 00 50 5c 52 46 28 45 29 5c 4d 4b 42 33 32 30 5c 4e 4f 20 43 4f 4c 55 4d ┆ ADR A1,A4 ) P $ P LDR* A1,A1 COLUMN TABLE ADDRESS ) b P RF(E) MKB320 NO COLUM┆
0x63e8…6438 4e 20 00 29 00 8a 00 0e 00 0a 5c 4c 44 52 5c 41 34 2c 41 32 00 29 00 aa 00 0e 00 0a 5c 41 4e 4b 5c 41 34 2c 2f 46 00 29 00 bc 00 1c 00 50 5c 41 44 52 5c 41 31 2c 41 34 5c 41 44 44 20 52 4f 57 20 49 4e 44 45 58 00 29 00 ce 00 1e 00 50 5c 4c ┆N ) LDR A4,A2 ) ANK A4,/F ) P ADR A1,A4 ADD ROW INDEX ) P L┆
0x6438…6488 43 52 5c 41 32 2c 41 31 5c 4c 4f 41 44 20 43 48 41 52 41 43 54 45 52 20 00 29 00 ee 00 06 00 03 2a 20 00 29 01 10 00 10 00 50 4d 4b 42 33 32 30 5c 45 51 55 5c 2a 00 29 01 1a 00 20 00 50 5c 4c 44 4b 5c 41 34 2c 2f 37 5c 52 45 53 45 54 20 53 ┆CR A2,A1 LOAD CHARACTER ) * ) PMKB320 EQU * ) P LDK A4,/7 RESET S┆
0x6488…64d8 50 45 43 49 41 4c 20 42 49 54 00 29 01 2e 00 1c 00 50 5c 41 4e 53 5c 41 34 2c 44 57 54 44 45 56 2b 44 57 54 43 53 2c 41 36 20 00 29 01 52 00 0a 00 50 5c 45 4a 45 43 54 00 29 01 72 00 06 00 03 2a 20 00 29 01 80 00 2c 00 27 2a 20 20 20 43 48 ┆PECIAL BIT ) . P ANS A4,DWTDEV+DWTCS,A6 ) R P EJECT ) r * ) , '* CH┆
0x64d8…6528 (66, 0, 400) 45 43 4b 20 49 46 20 42 41 53 49 43 20 52 45 41 44 20 4f 52 20 4f 52 44 45 52 20 32 20 4f 52 20 33 20 00 29 01 8a 00 06 00 03 2a 20 00 2a 00 2a 00 1e 00 1a 5c 4c 44 52 5c 41 34 2c 41 37 5c 4c 4f 41 44 20 4f 52 44 45 52 20 43 4f 44 45 00 2a ┆ECK IF BASIC READ OR ORDER 2 OR 3 ) * * * LDR A4,A7 LOAD ORDER CODE *┆
0x6528…6578 00 34 00 0e 00 09 5c 53 55 4b 5c 41 34 2c 32 20 00 2a 00 56 00 22 00 50 5c 52 46 28 4e 4e 29 5c 4d 4b 42 33 33 30 5c 4f 52 44 45 52 20 32 20 4f 52 20 33 20 21 20 00 2a 00 68 00 06 00 03 2a 20 00 2a 00 8e 00 1c 00 17 2a 20 20 20 4f 52 44 45 ┆ 4 SUK A4,2 * V " P RF(NN) MKB330 ORDER 2 OR 3 ! * h * * * ORDE┆
0x6578…65c8 52 20 31 2c 20 42 41 53 49 43 20 52 45 41 44 20 00 2a 00 98 00 06 00 03 2a 20 00 2a 00 b8 00 2c 00 50 5c 43 46 5c 41 35 2c 53 54 4f 45 43 48 5c 53 54 4f 52 45 20 43 48 41 52 2e 20 49 4e 20 45 43 42 2d 42 55 46 46 45 52 20 00 2a 00 c2 00 48 ┆R 1, BASIC READ * * * , P CF A5,STOECH STORE CHAR. IN ECB-BUFFER * H┆
0x65c8…6618 00 43 2a 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 41 4e 44 20 53 45 4e 44 20 49 54 20 54 4f 20 45 43 48 4f 2d 44 45 56 49 43 45 20 00 2a 00 f2 00 3c 00 37 2a 20 ┆ C* AND SEND IT TO ECHO-DEVICE * < 7* ┆
0x6618…6668 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 20 49 46 20 45 43 48 4f 20 57 41 4e 54 45 44 20 00 2a 01 3e 00 06 00 03 2a 20 00 2a 01 7e 00 10 00 50 4d 4b 42 33 32 35 5c 45 ┆ IF ECHO WANTED * > * * ~ PMKB325 E┆
0x6668…66b8 (67, 0, 400) 51 55 5c 2a 00 2a 01 88 00 30 00 50 5c 43 57 5c 41 33 2c 45 43 42 52 4c 2c 41 38 5c 45 46 46 2e 20 4c 45 4e 47 54 48 20 3d 20 52 45 51 2e 20 4c 45 4e 47 54 48 20 3f 20 00 2b 00 0c 00 2e 00 50 5c 41 42 4c 28 4e 45 29 5c 4d 4b 42 31 30 30 5c ┆QU * * 0 P CW A3,ECBRL,A8 EFF. LENGTH = REQ. LENGTH ? + . P ABL(NE) MKB100 ┆
0x66b8…6708 4e 4f 20 21 20 52 45 41 44 20 41 20 4e 45 57 20 43 48 41 52 41 43 54 45 52 20 00 2b 00 40 00 06 00 03 2a 20 00 2b 00 72 00 28 00 50 5c 52 46 5c 4d 4b 42 33 33 35 5c 59 45 53 20 21 20 53 45 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 3d 20 30 ┆NO ! READ A NEW CHARACTER + @ * + r ( P RF MKB335 YES ! SET RETURN CODE = 0┆
0x6708…6758 00 2b 00 7c 00 1e 00 50 2a 5c 5c 5c 5c 41 4e 44 20 43 4f 4d 50 4c 45 54 45 20 52 45 51 55 45 53 54 20 00 2b 00 a8 00 0a 00 50 5c 45 4a 45 43 54 00 2b 00 ca 00 06 00 03 2a 20 00 2b 00 d8 00 2e 00 2a 2a 20 20 20 4f 52 44 45 52 20 32 20 4f 52 ┆ + | P* AND COMPLETE REQUEST + P EJECT + * + . ** ORDER 2 OR┆
0x6758…67a8 20 33 2c 20 53 54 41 4e 44 41 52 44 20 4f 52 20 4e 55 4d 45 52 49 43 20 52 45 41 44 00 2b 00 e2 00 06 00 03 2a 20 00 2b 01 14 00 10 00 50 4d 4b 42 33 33 30 5c 45 51 55 5c 2a 00 2b 01 1e 00 06 00 03 2a 20 00 2b 01 32 00 2c 00 27 2a 20 20 20 ┆ 3, STANDARD OR NUMERIC READ + * + PMKB330 EQU * + * + 2 , '* ┆
0x67a8…67f8 43 48 45 43 4b 20 49 46 20 49 54 20 49 53 20 41 4e 20 45 4e 44 2d 4f 46 2d 52 45 43 4f 52 44 2d 4b 45 59 20 00 2b 01 3c 00 06 00 03 2a 20 00 2b 01 6c 00 26 00 50 5c 4c 44 5c 41 31 2c 45 43 42 43 57 2c 41 38 5c 4b 45 59 2d 54 41 42 4c 45 20 ┆CHECK IF IT IS AN END-OF-RECORD-KEY + < * + l & P LD A1,ECBCW,A8 KEY-TABLE ┆
0x67f8…6848 (68, 0, 400) 41 44 44 52 45 53 53 20 00 2b 01 76 00 20 00 50 5c 52 46 28 5a 29 5c 4d 4b 42 33 36 30 5c 4e 4f 20 4b 45 59 54 41 42 4c 45 20 21 20 00 2c 00 10 00 22 00 1d 5c 4c 43 52 5c 41 34 2c 41 31 5c 54 41 42 4c 45 20 4c 45 4e 47 54 48 20 49 4e 20 41 ┆ADDRESS + v P RF(Z) MKB360 NO KEYTABLE ! , " LCR A4,A1 TABLE LENGTH IN A┆
0x6848…6898 34 20 00 2c 00 34 00 10 00 0b 5c 41 4e 4b 5c 41 34 2c 2f 46 46 20 00 2c 00 5a 00 30 00 2c 5c 41 44 52 5c 41 31 2c 41 34 5c 41 44 44 52 45 53 53 20 54 4f 20 4c 41 53 54 20 50 4c 41 43 45 20 49 4e 20 4b 45 59 54 41 42 4c 45 00 2c 00 6e 00 0e ┆4 , 4 ANK A4,/FF , Z 0 , ADR A1,A4 ADDRESS TO LAST PLACE IN KEYTABLE , n ┆
0x6898…68e8 00 09 5c 41 44 4b 5c 41 31 2c 31 20 00 2c 00 a2 00 14 00 50 4d 4b 42 33 34 30 5c 53 55 4b 5c 41 34 2c 31 20 00 2c 00 b4 00 2c 00 50 5c 52 46 28 4e 29 5c 4d 4b 42 33 36 30 5c 4b 45 59 20 4e 4f 54 20 46 4f 55 4e 44 20 49 4e 20 4b 45 59 54 41 ┆ ADK A1,1 , PMKB340 SUK A4,1 , , P RF(N) MKB360 KEY NOT FOUND IN KEYTA┆
0x68e8…6938 42 4c 45 20 00 2c 00 cc 00 16 00 12 5c 53 55 4b 5c 41 31 2c 31 5c 4e 45 58 54 20 4b 45 59 00 2c 00 fc 00 1e 00 1a 5c 43 43 52 5c 41 32 2c 41 31 5c 45 4f 52 2d 43 48 41 52 41 43 54 45 52 20 3f 00 2c 01 16 00 30 00 50 5c 52 42 28 4e 45 29 5c ┆BLE , SUK A1,1 NEXT KEY , CCR A2,A1 EOR-CHARACTER ? , 0 P RB(NE) ┆
0x6938…6988 4d 4b 42 33 34 30 5c 4e 4f 20 21 20 54 52 59 20 4e 45 58 54 20 4b 45 59 20 49 4e 20 4b 45 59 54 41 42 4c 45 00 2c 01 38 00 06 00 03 2a 20 00 2c 01 6c 00 28 00 23 5c 41 44 4b 5c 41 34 2c 31 5c 59 45 53 20 21 20 4d 41 4b 45 20 4b 45 59 54 41 ┆MKB340 NO ! TRY NEXT KEY IN KEYTABLE , 8 * , l ( # ADK A4,1 YES ! MAKE KEYTA┆