|
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: 11142 (0x2b86)
Notes: pts_type(SC)
Names: »DRDI01.SC«
└─⟦efe3a1cfc⟧ Bits:30009667 Philips computer tape "600113"
└─⟦this⟧ »TOSSWORK/DRDI01.SC«
IDENT DRDI01 REL 9.1 78-09-15 870105940912 * ******************************************************* * * PHILIPS TERMINAL SYSTEM PTS * * DRDI01 = DRIVER INDICATOR DISPLAY * * * * * * ******************************************************* * * * THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241 * AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232 * 6233, 6236 AND 633, 62361. * * THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT * * * THE DRIVER CONSISTS OF THE FOLLOWING PARTS: * * A C D I : ACTIVATION PART * * I H D I : INTERRUPT HANDLER * * R C D I : RECOVERY ROUTINE * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 05: WRITE LIGHTS ON * 06: WRITE LIGHTS OFF * 07: WRITE PROGRAM DISPLAY * 39: WRITE FLASHING LIGHTS EJECT * * * NORMAL REGISTER USAGE: * * REGISTER A1: RETURN CODE * A2: OUTPUT * A3: WORK REGISTER * A4: WORK REGISTER * A5: WORK REGISTER * A6: DWT-ADDRESS * A7: ORDER * A8: ECB-ADDRESS * * * SYSTEM ADAPTATION * * DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT * * BIT 10 = 1 IF PROGRAM DISPLAY (PTS 6241) * BIT 11 = 1 FOR PTS 6232,6331,6236 * BIT 11 = 0 FOR PTS 6241,6242,6233 * * ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY * CONDITIONAL ASSEMBLY * EJECT * * *************** * ENTRIES * *************** * ENTRY DIAD ADDRESS TO ADDRESS-BLOCK * ******************* * EXTERNALS * ******************* * EXTRN SAVE8 SAVE REGS EXTRN TENDIO END I/O EXTRN DISEND PERFORM END I/O AND DISPATCH EXTRN TDISP DISPATCHER ORDINARY INT. EXTRN OUTLIN OUTPUT ONE CHAR. EXTRN GETCHR GET CHARACTER EXTRN DISIOE I/O REQUEST ERROR EXTRN DWTST STATUS * EXTRN SETIMP SET TIMER * * *************** * TABLES * *************** * DIAD EQU * ADDRESS BLOCK DATA ACDI ACTIVATION DRIVER DATA IHDI INTERRUPT HANDLER DATA RCDI RECOVERY ROUTINE * CCERR EQU /4 CODE CHECK ERROR * * EJECT * * * ************************* * CONDITIONAL ASSEMBLY * ************************* * * * * ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY * SETTING X:A=0 * * * X:A EQU 0 ORD7 EQU X:A * ** * THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS * BY SETTING CREDIT = 1 * ORDERS 05,06AND 07 ARE THEN REPLACED BY * ORDERS 37,38 AND 06 ** CREDIT EQU 0 * * * * * ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED * IN THIS DRIVER BY SETTING X:B=1 * * X:B EQU 0 FLASH EQU X:B * * ** * ********************* * DWT-DISPLACEMENTS * ********************* * DWTBC EQU /3 BYTE COUNTER DWTECB EQU /4 ECB-ADDRESS DWTDIB EQU /12 SAVE AREA DWTFLA EQU /18 SAVE AREA FOR FLASH IMAGE DWTTP EQU /1A TIMER POINTER TIME EQU 5 FLASH TIME EJECT * * A C D I * * * ACTIVATION PART: CHECKS VALIDITY OF ORDERS AND STARTS * THE PROCESSING * * ACDI EQU * IFT ORD7-CREDIT=1 CCK A7,/0707 RF(E) ADI050 ORDER /07 XIF IFT ORD7+CREDIT=2 CCK A7,/0606 RF(E) ADI050 ORDER /06 XIF LD A4,10,A8 CONTROL WORD TO A4 LDR* A3,A6 ANK A3,/10 TEST IF ONE OR TWO CHARACTER DEVICE RF(NZ) ADI005 ONE CHARACTER DEVICE LDR A3,A4 CONTROL WORD tO A3 ANK A4,/F ANK A3,/F0 SLL A3,4 ORR A4,A3 LAMPCODES IN A4 ADI005 EQU * IFT FLASH=1 CCK A7,/3939 RF(E) FLA05 XIF IFT CREDIT=0 SUK A7,5 XIF IFT CREDIT=1 SUK A7,/37 XIF RF(E) ADI010 ORDER 05 SUK A7,1 RF(E) ADI007 ORDER 06 ABL(NE) DISIOE REQUEST ERROR * EJECT IFT FLASH=1 * * FLASH ORDER /39 * * FLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE LD A1,DWTTP,A6 GET TIMER POINTER RF(NZ) FLA10 TIMER ALREADY STARTED LDK A4,DWTTP START TIMER ADR A4,A6 LDR A1,A6 CF A15,SETIMP DATA FLTUT,TIME ST A4,DWTTP,A6 LDKL A4,/FFBF ANRS A4,A6 CHECK ON-OFF INDICATOR FLA10 EQU * LD A4,DWTFLA,A6 LDR* A2,A6 CHECK ON-OFF INDICATOR ANK A2,/40 RF(Z) FLA20 WRITE FLASHING LIGHTS OFF ORS A4,DWTDIB,A6 ON + FLASH RF ADI030 TURN ON LAMPS FLA20 C1R A4,A4 ANS A4,DWTDIB,A6 ON-FLASH RF ADI030 TURN ON LAMPS FLTUT EQU * FLASH TIME OUT ROUTINE LDR A6,A1 LD A4,DWTFLA,A6 RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER LDKL A1,-TIME RESTART TIMER ST* A1,DWTTP,A6 LDK A4,/40 XRRS A4,A6 SWITCH 0N-OFF FLAG RB FLA10 FLA30 CM DWTTP,A6 RF EXIT XIF * * * ORDER 06: SWITCH OFF LAMPS * ADI007 EQU * C1R A4,A4 ANS A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER IFT FLASH=1 ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE XIF RF ADI030 * * EJECT * * * ORDER 05: TURN ON LAMPS * * * ADI010 ORS A4,DWTDIB,A6 SET BITS IN DWT-BUFFER IFT FLASH=1 C1R A4,A4 ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE XIF ADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER ADI035 LDK A1,1 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER LDR* A3,A6 TWO OUTPUTS ? ANK A3,/10 RF(NZ) IHDI10 NO RF IHDI20 YES * * IFT ORD7=1 EJECT * * * ORDER 07: WRITE PROGRAM DISPLAY * ADI050 LDK A3,0 ADI060 CF A15,GETCHR GET CHARACTER LDR A1,A1 LAST CHARACTER ? RF(Z) ADI070 YES LDR A4,A2 SRL A4,4 SUK A4,3 UNDEFINED CHARACTER ? RF(L) ADI100 YES CWK A4,3 UNDEFINED ? RF(G) ADI100 YES ADKL A4,DWTDIB+2 ADR A4,A6 SCR A2,A4 STORE CHARACTER IN DWT-BUFFER RB ADI060 GET NEXT CHARACTER ADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER RF IHDI10 SEND CHARACTERS * * * CODE CHECK ERROR * ADI100 LDK A1,CCERR SET RETURN CODE ORS A1,8,A8 IN ECB RB ADI060 GET NEXT CHARACTER XIF EJECT * * I H D I * * INTERRUPT HANDLER: PROCESS OF INTERRUPT * IHDI EQU * LDR A1,A1 RETURN CODE RF(NE) ENDIO YES END I/O LD A4,DWTST,A6 GET STATUS ANK A4,/FF SUK A4,2 TWO CHARS. SENT IFT ORD7=1 RF(NZ) IHDI05 NO LDR* A3,A6 GET CHANNEL PARAMETER ANK A3,/20 PROGRAM STEP ? RF(Z) ENDIO NO. PERFORM ENDIO IHDI05 SUK A4,4 LAST CHARACTER ? RF(Z) ENDIO YES. PERFORM ENDIO IHDI10 LDKL A2,DWTDIB ADR A2,A6 LD A4,DWTST,A6 ANK A4,/FF ADR A2,A4 LCR A2,A2 GET CHARACTER XIF IFT ORD7=0 RF(Z) ENDIO IHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER XIF LD A8,DWTECB,A6 RF(Z) OUTPUT IF POWER FAIL NO BELL LD A3,10,A8 BELL? RF(NN) OUTPUT NO ORK A2,/40 INDICATE BELL * OUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER IHDI20 CF A15,OUTLIN OUTPUT CHAR. EXIT ABL TDISP ENDIO ABL DISEND PERFORM END I/O AND DISPATCH EJECT * * R C D I * * RECIVERY ROUTINE: AT POWER UP ALL LIGHTS ARE FED WITH * THE VALUES EXISTENT AT POWER FAILURE TIME.THE INFORMATION * OM PROGRAM DISPLAY IS ALSO RESTORED * * RCDI EQU * CF A15,SAVE8 SAVE REGS. LC A2,DWTDIB,A6 GET FIRST CHARACTER RB ADI035 * * END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDI01 REL 9.1 78-09-15 870105940912 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0042}
0x0048…0088 Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x004c}
0x0088…0092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x008c}
0x0092…00ba Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0000, t01=0x0096}
0x00ba…00c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x00be}
0x00c4…00f2 Head {h00=0x002a, h01=0x0050, text=»* DRDI01 = DRIVER INDICATOR DISPLAY «, t00=0x0000, t01=0x00c8}
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…016e Head {h00=0x003c, h01=0x0050, text=»******************************************************* «, t00=0x0000, t01=0x0132}
0x016e…0178 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x0172}
0x0178…0182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0000, t01=0x017c}
0x0182…01c4 Head {h00=0x003e, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO SIGNAL DISPLAYS PTS 6241«, t00=0x0000, t01=0x0186}
0x01c4…0206 Head {h00=0x003e, h01=0x0050, text=»* AND 6242. IT ALSO CONTROLS LAMPS ON KEYBOARDS PTS 6232«, t00=0x0001, t01=0x0038}
0x0206…022c Head {h00=0x0022, h01=0x0050, text=»* 6233, 6236 AND 633, 62361.«, t00=0x0001, t01=0x007a}
0x022c…0236 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00a0}
0x0236…027a Head {h00=0x0040, h01=0x0050, text=»* THESE DEVICES MUST BE CONNECTED TO CPU VIA CHLT OR CHRT «, t00=0x0001, t01=0x00aa}
0x027a…0284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…028e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f8}
0x028e…02c6 Head {h00=0x0034, h01=0x0050, text=»* THE DRIVER CONSISTS OF THE FOLLOWING PARTS: «, t00=0x0001, t01=0x0102}
0x02c6…02d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x013a}
0x02d0…02f6 Head {h00=0x0022, h01=0x0050, text=»* A C D I : ACTIVATION PART «, t00=0x0001, t01=0x0144}
0x02f6…0300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x0300…0328 Head {h00=0x0024, h01=0x0050, text=»* I H D I : INTERRUPT HANDLER «, t00=0x0001, t01=0x0174}
0x0328…0332 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000c}
0x0332…0358 Head {h00=0x0022, h01=0x0050, text=»* R C D I : RECOVERY ROUTINE«, t00=0x0002, t01=0x0016}
0x0358…0362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x003c}
0x0362…036c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0046}
0x036c…039a Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED: «, t00=0x0002, t01=0x0050}
0x039a…03a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007e}
0x03a4…03ca Head {h00=0x0022, h01=0x0050, text=»* ORDER 05: WRITE LIGHTS ON «, t00=0x0002, t01=0x0088}
0x03ca…03f0 Head {h00=0x0022, h01=0x0050, text=»* 06: WRITE LIGHTS OFF«, t00=0x0002, t01=0x00ae}
0x03f0…041c Head {h00=0x0028, h01=0x0050, text=»* 07: WRITE PROGRAM DISPLAY «, t00=0x0002, t01=0x00d4}
0x041c…044c Head {h00=0x002c, h01=0x0050, text=»* 39: WRITE FLASHING LIGHTS«, t00=0x0002, t01=0x0100}
0x044c…045a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0002, t01=0x0130}
0x045a…0464 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x013e}
0x0464…046e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0148}
0x046e…0490 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE:«, t00=0x0002, t01=0x0152}
0x0490…049a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0174}
0x049a…04be Head {h00=0x0020, h01=0x0050, text=»* REGISTER A1: RETURN CODE«, t00=0x0002, t01=0x017e}
0x04be…04de Head {h00=0x001c, h01=0x0050, text=»* A2: OUTPUT«, t00=0x0003, t01=0x0012}
0x04de…0504 Head {h00=0x0022, h01=0x0050, text=»* A3: WORK REGISTER«, t00=0x0003, t01=0x0032}
0x0504…052a Head {h00=0x0022, h01=0x0050, text=»* A4: WORK REGISTER«, t00=0x0003, t01=0x0058}
0x052a…0550 Head {h00=0x0022, h01=0x0050, text=»* A5: WORK REGISTER«, t00=0x0003, t01=0x007e}
0x0550…0574 Head {h00=0x0020, h01=0x0050, text=»* A6: DWT-ADDRESS«, t00=0x0003, t01=0x00a4}
0x0574…0592 Head {h00=0x001a, h01=0x0050, text=»* A7: ORDER«, t00=0x0003, t01=0x00c8}
0x0592…05b6 Head {h00=0x0020, h01=0x0050, text=»* A8: ECB-ADDRESS«, t00=0x0003, t01=0x00e6}
0x05b6…05c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x010a}
0x05c0…05ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0114}
0x05ca…05e8 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION «, t00=0x0003, t01=0x011e}
0x05e8…05f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x013c}
0x05f2…0630 Head {h00=0x003a, h01=0x0050, text=»* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT «, t00=0x0003, t01=0x0146}
0x0630…063a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0184}
0x063a…0672 Head {h00=0x0034, h01=0x0050, text=»* BIT 10 = 1 IF PROGRAM DISPLAY (PTS 6241)«, t00=0x0003, t01=0x018e}
0x0672…06a2 Head {h00=0x002c, h01=0x0050, text=»* BIT 11 = 1 FOR PTS 6232,6331,6236 «, t00=0x0004, t01=0x0036}
0x06a2…06d2 Head {h00=0x002c, h01=0x0050, text=»* BIT 11 = 0 FOR PTS 6241,6242,6233 «, t00=0x0004, t01=0x0066}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0096}
0x06dc…071a Head {h00=0x003a, h01=0x0050, text=»* ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY«, t00=0x0004, t01=0x00a0}
0x071a…073a Head {h00=0x001c, h01=0x0050, text=»* CONDITIONAL ASSEMBLY«, t00=0x0004, t01=0x00de}
0x073a…0744 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00fe}
0x0744…0752 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0004, t01=0x0108}
0x0752…075c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075c…0766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0120}
0x0766…077e Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x012a}
0x077e…0796 Head {h00=0x0014, h01=0x0050, text=»* ENTRIES * «, t00=0x0004, t01=0x0142}
0x0796…07ae Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0004, t01=0x015a}
0x07ae…07b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0172}
0x07b8…07e4 Head {h00=0x0028, h01=0x0050, text=» ENTRY DIAD ADDRESS TO ADDRESS-BLOCK«, t00=0x0004, t01=0x017c}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0018}
0x07ee…080a Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0005, t01=0x0022}
0x080a…0826 Head {h00=0x0018, h01=0x0050, text=»* EXTERNALS * «, t00=0x0005, t01=0x003e}
0x0826…0842 Head {h00=0x0018, h01=0x0050, text=»******************* «, t00=0x0005, t01=0x005a}
0x0842…084c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0076}
0x084c…086a Head {h00=0x001a, h01=0x0050, text=» EXTRN SAVE8 SAVE REGS«, t00=0x0005, t01=0x0080}
0x086a…0888 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0005, t01=0x009e}
0x0888…08ba Head {h00=0x002e, h01=0x0050, text=» EXTRN DISEND PERFORM END I/O AND DISPATCH«, t00=0x0005, t01=0x00bc}
0x08ba…08e8 Head {h00=0x002a, h01=0x0050, text=» EXTRN TDISP DISPATCHER ORDINARY INT. «, t00=0x0005, t01=0x00ee}
0x08e8…090e Head {h00=0x0022, h01=0x0050, text=» EXTRN OUTLIN OUTPUT ONE CHAR.«, t00=0x0005, t01=0x011c}
0x090e…0932 Head {h00=0x0020, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER «, t00=0x0005, t01=0x0142}
0x0932…095a Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0005, t01=0x0166}
0x095a…0976 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0005, t01=0x018e}
0x0976…0980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001a}
0x0980…09a0 Head {h00=0x001c, h01=0x0050, text=» EXTRN SETIMP SET TIMER «, t00=0x0006, t01=0x0024}
0x09a0…09aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0044}
0x09aa…09b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x004e}
0x09b4…09cc Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x0058}
0x09cc…09e2 Head {h00=0x0012, h01=0x0050, text=»* TABLES *«, t00=0x0006, t01=0x0070}
0x09e2…09fa Head {h00=0x0014, h01=0x0050, text=»*************** «, t00=0x0006, t01=0x0086}
0x09fa…0a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x009e}
0x0a04…0a24 Head {h00=0x001c, h01=0x0050, text=»DIAD EQU * ADDRESS BLOCK«, t00=0x0006, t01=0x00a8}
0x0a24…0a48 Head {h00=0x0020, h01=0x0050, text=» DATA ACDI ACTIVATION DRIVER«, t00=0x0006, t01=0x00c8}
0x0a48…0a6c Head {h00=0x0020, h01=0x0050, text=» DATA IHDI INTERRUPT HANDLER«, t00=0x0006, t01=0x00ec}
0x0a6c…0a90 Head {h00=0x0020, h01=0x0050, text=» DATA RCDI RECOVERY ROUTINE «, t00=0x0006, t01=0x0110}
0x0a90…0a9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0134}
0x0a9a…0ac0 Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x0006, t01=0x013e}
0x0ac0…0aca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0164}
0x0aca…0ad4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x016e}
0x0ad4…0ae2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0178}
0x0ae2…0aec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0186}
0x0aec…0af6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0190}
0x0af6…0b00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x000a}
0x0b00…0b22 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x0014}
0x0b22…0b44 Head {h00=0x001e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x0007, t01=0x0036}
0x0b44…0b66 Head {h00=0x001e, h01=0x0050, text=»************************* «, t00=0x0007, t01=0x0058}
0x0b66…0b70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007a}
0x0b70…0b7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0084}
0x0b7a…0b84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x008e}
0x0b84…0bc2 Head {h00=0x003a, h01=0x0050, text=»* ORDER 07, WRITE PROGRAM DISPLAY MAY BE EXCLUDED BY«, t00=0x0007, t01=0x0098}
0x0bc2…0bdc Head {h00=0x0016, h01=0x0050, text=»* SETTING X:A=0 «, t00=0x0007, t01=0x00d6}
0x0bdc…0be6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00f0}
0x0be6…0bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fa}
0x0bf0…0bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0104}
0x0bfa…0c0c Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x0007, t01=0x010e}
0x0c0c…0c20 Head {h00=0x0010, h01=0x0050, text=»ORD7 EQU X:A«, t00=0x0007, t01=0x0120}
0x0c20…0c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0134}
0x0c2a…0c34 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0007, t01=0x013e}
0x0c34…0c70 Head {h00=0x0038, h01=0x0050, text=»* THIS DRIVER CAN BE MADE TO HANDLE CREDIT ORDERS «, t00=0x0007, t01=0x0148}
0x0c70…0c92 Head {h00=0x001e, h01=0x0050, text=»* BY SETTING CREDIT = 1 «, t00=0x0007, t01=0x0184}
0x0c92…0cc6 Head {h00=0x0030, h01=0x0050, text=»* ORDERS 05,06AND 07 ARE THEN REPLACED BY «, t00=0x0008, t01=0x0016}
0x0cc6…0ce6 Head {h00=0x001c, h01=0x0050, text=»* ORDERS 37,38 AND 06 «, t00=0x0008, t01=0x004a}
0x0ce6…0cf0 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x006a}
0x0cf0…0cf8 Head {h00=0x0004, h01=0x0050, t00=0x0008, t01=0x0074}
0x0cf8…0d0c Head {h00=0x0010, h01=0x0050, text=»CREDIT EQU 0«, t00=0x0008, t01=0x007c}
0x0d0c…0d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0090}
0x0d16…0d20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009a}
0x0d20…0d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a4}
0x0d2a…0d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ae}
0x0d34…0d70 Head {h00=0x0038, h01=0x0050, text=»* ORDER 39, WRITE FLASHING LIGHTS MAY BE INCLUDED «, t00=0x0008, t01=0x00b8}
0x0d70…0d9c Head {h00=0x0028, h01=0x0050, text=»* IN THIS DRIVER BY SETTING X:B=1 «, t00=0x0008, t01=0x00f4}
0x0d9c…0da6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0120}
0x0da6…0db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x012a}
0x0db0…0dc2 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 0 «, t00=0x0008, t01=0x0134}
0x0dc2…0dd8 Head {h00=0x0012, h01=0x0050, text=»FLASH EQU X:B «, t00=0x0008, t01=0x0146}
0x0dd8…0de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x015c}
0x0de2…0dec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0166}
0x0dec…0df6 Head {h00=0x0006, h01=0x0050, text=»**«, t00=0x0008, t01=0x0170}
0x0df6…0e00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x017a}
0x0e00…0e1e Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0008, t01=0x0184}
0x0e1e…0e3c Head {h00=0x001a, h01=0x0050, text=»* DWT-DISPLACEMENTS * «, t00=0x0009, t01=0x0012}
0x0e3c…0e5a Head {h00=0x001a, h01=0x0050, text=»********************* «, t00=0x0009, t01=0x0030}
0x0e5a…0e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x004e}
0x0e64…0e86 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /3 BYTE COUNTER «, t00=0x0009, t01=0x0058}
0x0e86…0ea8 Head {h00=0x001e, h01=0x0050, text=»DWTECB EQU /4 ECB-ADDRESS «, t00=0x0009, t01=0x007a}
0x0ea8…0ec8 Head {h00=0x001c, h01=0x0050, text=»DWTDIB EQU /12 SAVE AREA«, t00=0x0009, t01=0x009c}
0x0ec8…0ef8 Head {h00=0x002c, h01=0x0050, text=»DWTFLA EQU /18 SAVE AREA FOR FLASH IMAGE«, t00=0x0009, t01=0x00bc}
0x0ef8…0f1c Head {h00=0x0020, h01=0x0050, text=»DWTTP EQU /1A TIMER POINTER «, t00=0x0009, t01=0x00ec}
0x0f1c…0f3a Head {h00=0x001a, h01=0x0050, text=»TIME EQU 5 FLASH TIME «, t00=0x0009, t01=0x0110}
0x0f3a…0f48 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x012e}
0x0f48…0f52 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x013c}
0x0f52…0f66 Head {h00=0x0010, h01=0x0050, text=»* A C D I«, t00=0x0009, t01=0x0146}
0x0f66…0f70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x015a}
0x0f70…0f7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0164}
0x0f7a…0fbc Head {h00=0x003e, h01=0x0050, text=»* ACTIVATION PART: CHECKS VALIDITY OF ORDERS AND STARTS «, t00=0x0009, t01=0x016e}
0x0fbc…0fd6 Head {h00=0x0016, h01=0x0050, text=»* THE PROCESSING«, t00=0x000a, t01=0x0020}
0x0fd6…0fe0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x003a}
0x0fe0…0fea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0044}
0x0fea…0ffc Head {h00=0x000e, h01=0x0050, text=»ACDI EQU *«, t00=0x000a, t01=0x004e}
0x0ffc…1016 Head {h00=0x0016, h01=0x0050, text=» IFT ORD7-CREDIT=1«, t00=0x000a, t01=0x0060}
0x1016…102c Head {h00=0x0012, h01=0x0050, text=» CCK A7,/0707 «, t00=0x000a, t01=0x007a}
0x102c…104c Head {h00=0x001c, h01=0x0050, text=» RF(E) ADI050 ORDER /07 «, t00=0x000a, t01=0x0090}
0x104c…1058 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x00b0}
0x1058…1072 Head {h00=0x0016, h01=0x0050, text=» IFT ORD7+CREDIT=2«, t00=0x000a, t01=0x00bc}
0x1072…1088 Head {h00=0x0012, h01=0x0050, text=» CCK A7,/0606 «, t00=0x000a, t01=0x00d6}
0x1088…10a8 Head {h00=0x001c, h01=0x0050, text=» RF(E) ADI050 ORDER /06 «, t00=0x000a, t01=0x00ec}
0x10a8…10b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000a, t01=0x010c}
0x10b4…10dc Head {h00=0x0024, h01=0x0050, text=» LD A4,10,A8 CONTROL WORD TO A4 «, t00=0x000a, t01=0x0118}
0x10dc…10f0 Head {h00=0x0010, h01=0x0050, text=» LDR* A3,A6 «, t00=0x000a, t01=0x0140}
0x10f0…1128 Head {h00=0x0034, h01=0x0050, text=» ANK A3,/10 TEST IF ONE OR TWO CHARACTER DEVICE «, t00=0x000a, t01=0x0154}
0x1128…1154 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) ADI005 ONE CHARACTER DEVICE «, t00=0x000a, t01=0x018c}
0x1154…117a Head {h00=0x0022, h01=0x0050, text=» LDR A3,A4 CONTROL WORD tO A3 «, t00=0x000b, t01=0x0028}
0x117a…118c Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x000b, t01=0x004e}
0x118c…11a0 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/F0 «, t00=0x000b, t01=0x0060}
0x11a0…11b2 Head {h00=0x000e, h01=0x0050, text=» SLL A3,4 «, t00=0x000b, t01=0x0074}
0x11b2…11d4 Head {h00=0x001e, h01=0x0050, text=» ORR A4,A3 LAMPCODES IN A4«, t00=0x000b, t01=0x0086}
0x11d4…11e8 Head {h00=0x0010, h01=0x0050, text=»ADI005 EQU *«, t00=0x000b, t01=0x00a8}
0x11e8…11fc Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000b, t01=0x00bc}
0x11fc…1212 Head {h00=0x0012, h01=0x0050, text=» CCK A7,/3939 «, t00=0x000b, t01=0x00d0}
0x1212…1226 Head {h00=0x0010, h01=0x0050, text=» RF(E) FLA05«, t00=0x000b, t01=0x00e6}
0x1226…1232 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x00fa}
0x1232…1248 Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=0 «, t00=0x000b, t01=0x0106}
0x1248…125a Head {h00=0x000e, h01=0x0050, text=» SUK A7,5 «, t00=0x000b, t01=0x011c}
0x125a…1266 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x012e}
0x1266…127c Head {h00=0x0012, h01=0x0050, text=» IFT CREDIT=1 «, t00=0x000b, t01=0x013a}
0x127c…1290 Head {h00=0x0010, h01=0x0050, text=» SUK A7,/37 «, t00=0x000b, t01=0x0150}
0x1290…129c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000b, t01=0x0164}
0x129c…12ba Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI010 ORDER 05«, t00=0x000b, t01=0x0170}
0x12ba…12cc Head {h00=0x000e, h01=0x0050, text=» SUK A7,1 «, t00=0x000b, t01=0x018e}
0x12cc…12ea Head {h00=0x001a, h01=0x0050, text=» RF(E) ADI007 ORDER 06«, t00=0x000c, t01=0x0010}
0x12ea…1310 Head {h00=0x0022, h01=0x0050, text=» ABL(NE) DISIOE REQUEST ERROR «, t00=0x000c, t01=0x002e}
0x1310…131a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0054}
0x131a…1328 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000c, t01=0x005e}
0x1328…133c Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000c, t01=0x006c}
0x133c…1346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0080}
0x1346…1366 Head {h00=0x001c, h01=0x0050, text=»* FLASH ORDER /39«, t00=0x000c, t01=0x008a}
0x1366…1370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00aa}
0x1370…137a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00b4}
0x137a…13aa Head {h00=0x002c, h01=0x0050, text=»FLA05 ORS A4,DWTFLA,A6 SAVE FLASH IMMAGE«, t00=0x000c, t01=0x00be}
0x13aa…13d4 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTTP,A6 GET TIMER POINTER «, t00=0x000c, t01=0x00ee}
0x13d4…1400 Head {h00=0x0028, h01=0x0050, text=» RF(NZ) FLA10 TIMER ALREADY STARTED «, t00=0x000c, t01=0x0118}
0x1400…1422 Head {h00=0x001e, h01=0x0050, text=» LDK A4,DWTTP START TIMER «, t00=0x000c, t01=0x0144}
0x1422…1434 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A6«, t00=0x000c, t01=0x0166}
0x1434…1446 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A6«, t00=0x000c, t01=0x0178}
0x1446…145c Head {h00=0x0012, h01=0x0050, text=» CF A15,SETIMP«, t00=0x000c, t01=0x018a}
0x145c…1474 Head {h00=0x0014, h01=0x0050, text=» DATA FLTUT,TIME«, t00=0x000d, t01=0x0010}
0x1474…148c Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTTP,A6 «, t00=0x000d, t01=0x0028}
0x148c…14a2 Head {h00=0x0012, h01=0x0050, text=» LDKL A4,/FFBF«, t00=0x000d, t01=0x0040}
0x14a2…14cc Head {h00=0x0026, h01=0x0050, text=» ANRS A4,A6 CHECK ON-OFF INDICATOR«, t00=0x000d, t01=0x0056}
0x14cc…14e0 Head {h00=0x0010, h01=0x0050, text=»FLA10 EQU * «, t00=0x000d, t01=0x0080}
0x14e0…14f8 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFLA,A6«, t00=0x000d, t01=0x0094}
0x14f8…1522 Head {h00=0x0026, h01=0x0050, text=» LDR* A2,A6 CHECK ON-OFF INDICATOR«, t00=0x000d, t01=0x00ac}
0x1522…1536 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/40 «, t00=0x000d, t01=0x00d6}
0x1536…1564 Head {h00=0x002a, h01=0x0050, text=» RF(Z) FLA20 WRITE FLASHING LIGHTS OFF«, t00=0x000d, t01=0x00ea}
0x1564…1588 Head {h00=0x0020, h01=0x0050, text=» ORS A4,DWTDIB,A6 ON + FLASH«, t00=0x000d, t01=0x0118}
0x1588…15a8 Head {h00=0x001c, h01=0x0050, text=» RF ADI030 TURN ON LAMPS«, t00=0x000d, t01=0x013c}
0x15a8…15c0 Head {h00=0x0014, h01=0x0050, text=»FLA20 C1R A4,A4 «, t00=0x000d, t01=0x015c}
0x15c0…15e2 Head {h00=0x001e, h01=0x0050, text=» ANS A4,DWTDIB,A6 ON-FLASH«, t00=0x000d, t01=0x0174}
0x15e2…1602 Head {h00=0x001c, h01=0x0050, text=» RF ADI030 TURN ON LAMPS«, t00=0x000e, t01=0x0008}
0x1602…162c Head {h00=0x0026, h01=0x0050, text=»FLTUT EQU * FLASH TIME OUT ROUTINE«, t00=0x000e, t01=0x0028}
0x162c…163e Head {h00=0x000e, h01=0x0050, text=» LDR A6,A1«, t00=0x000e, t01=0x0052}
0x163e…1656 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTFLA,A6«, t00=0x000e, t01=0x0064}
0x1656…1696 Head {h00=0x003c, h01=0x0050, text=» RF(Z) FLA30 IF NO MORE LAMPS TO FLASH GO TO DISPATCHER «, t00=0x000e, t01=0x007c}
0x1696…16ba Head {h00=0x0020, h01=0x0050, text=» LDKL A1,-TIME RESTART TIMER«, t00=0x000e, t01=0x00bc}
0x16ba…16d2 Head {h00=0x0014, h01=0x0050, text=» ST* A1,DWTTP,A6«, t00=0x000e, t01=0x00e0}
0x16d2…16e6 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/40 «, t00=0x000e, t01=0x00f8}
0x16e6…170c Head {h00=0x0022, h01=0x0050, text=» XRRS A4,A6 SWITCH 0N-OFF FLAG«, t00=0x000e, t01=0x010c}
0x170c…171e Head {h00=0x000e, h01=0x0050, text=» RB FLA10 «, t00=0x000e, t01=0x0132}
0x171e…1738 Head {h00=0x0016, h01=0x0050, text=»FLA30 CM DWTTP,A6 «, t00=0x000e, t01=0x0144}
0x1738…1748 Head {h00=0x000c, h01=0x0050, text=» RF EXIT«, t00=0x000e, t01=0x015e}
0x1748…1754 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000e, t01=0x016e}
0x1754…175e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017a}
0x175e…1768 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0184}
0x1768…1790 Head {h00=0x0024, h01=0x0050, text=»* ORDER 06: SWITCH OFF LAMPS «, t00=0x000e, t01=0x018e}
0x1790…179a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0026}
0x179a…17ae Head {h00=0x0010, h01=0x0050, text=»ADI007 EQU *«, t00=0x000f, t01=0x0030}
0x17ae…17c0 Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x000f, t01=0x0044}
0x17c0…17f2 Head {h00=0x002e, h01=0x0050, text=» ANS A4,DWTDIB,A6 RESET BITS IN DWT-BUFFER«, t00=0x000f, t01=0x0056}
0x17f2…1806 Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x000f, t01=0x0088}
0x1806…183a Head {h00=0x0030, h01=0x0050, text=» ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE «, t00=0x000f, t01=0x009c}
0x183a…1846 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x000f, t01=0x00d0}
0x1846…1858 Head {h00=0x000e, h01=0x0050, text=» RF ADI030«, t00=0x000f, t01=0x00dc}
0x1858…1862 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ee}
0x1862…186c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00f8}
0x186c…187a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x0102}
0x187a…1884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0110}
0x1884…188e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x011a}
0x188e…18b2 Head {h00=0x0020, h01=0x0050, text=»* ORDER 05: TURN ON LAMPS«, t00=0x000f, t01=0x0124}
0x18b2…18bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0148}
0x18bc…18c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0152}
0x18c6…18d0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x015c}
0x18d0…1906 Head {h00=0x0032, h01=0x0050, text=»ADI010 ORS A4,DWTDIB,A6 SET BITS IN DWT-BUFFER«, t00=0x000f, t01=0x0166}
0x1906…191a Head {h00=0x0010, h01=0x0050, text=» IFT FLASH=1«, t00=0x0010, t01=0x000c}
0x191a…192c Head {h00=0x000e, h01=0x0050, text=» C1R A4,A4«, t00=0x0010, t01=0x0020}
0x192c…1960 Head {h00=0x0030, h01=0x0050, text=» ANS A4,DWTFLA,A6 RESET BITS IN FLASH IMAGE «, t00=0x0010, t01=0x0032}
0x1960…196c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0010, t01=0x0066}
0x196c…199e Head {h00=0x002e, h01=0x0050, text=»ADI030 LC A2,DWTDIB,A6 GET FIRST CHARACTER«, t00=0x0010, t01=0x0072}
0x199e…19b6 Head {h00=0x0014, h01=0x0050, text=»ADI035 LDK A1,1 «, t00=0x0010, t01=0x00a4}
0x19b6…19f0 Head {h00=0x0036, h01=0x0050, text=» SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER «, t00=0x0010, t01=0x00bc}
0x19f0…1a12 Head {h00=0x001e, h01=0x0050, text=» LDR* A3,A6 TWO OUTPUTS ? «, t00=0x0010, t01=0x00f6}
0x1a12…1a26 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/10 «, t00=0x0010, t01=0x0118}
0x1a26…1a40 Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IHDI10 NO «, t00=0x0010, t01=0x012c}
0x1a40…1a56 Head {h00=0x0012, h01=0x0050, text=» RF IHDI20 YES«, t00=0x0010, t01=0x0146}
0x1a56…1a60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x015c}
0x1a60…1a6a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0166}
0x1a6a…1a7e Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0010, t01=0x0170}
0x1a7e…1a8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0184}
0x1a8c…1a96 (17, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0004}
0x1a96…1aa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x000e}
0x1aa0…1acc Head {h00=0x0028, h01=0x0050, text=»* ORDER 07: WRITE PROGRAM DISPLAY «, t00=0x0011, t01=0x0018}
0x1acc…1ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0044}
0x1ad6…1aee Head {h00=0x0014, h01=0x0050, text=»ADI050 LDK A3,0 «, t00=0x0011, t01=0x004e}
0x1aee…1b18 Head {h00=0x0026, h01=0x0050, text=»ADI060 CF A15,GETCHR GET CHARACTER«, t00=0x0011, t01=0x0066}
0x1b18…1b3c Head {h00=0x0020, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER ? «, t00=0x0011, t01=0x0090}
0x1b3c…1b56 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADI070 YES «, t00=0x0011, t01=0x00b4}
0x1b56…1b68 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0011, t01=0x00ce}
0x1b68…1b7a Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0011, t01=0x00e0}
0x1b7a…1ba2 Head {h00=0x0024, h01=0x0050, text=» SUK A4,3 UNDEFINED CHARACTER ? «, t00=0x0011, t01=0x00f2}
0x1ba2…1bbc Head {h00=0x0016, h01=0x0050, text=» RF(L) ADI100 YES «, t00=0x0011, t01=0x011a}
0x1bbc…1bda Head {h00=0x001a, h01=0x0050, text=» CWK A4,3 UNDEFINED ? «, t00=0x0011, t01=0x0134}
0x1bda…1bf4 Head {h00=0x0016, h01=0x0050, text=» RF(G) ADI100 YES «, t00=0x0011, t01=0x0152}
0x1bf4…1c0e Head {h00=0x0016, h01=0x0050, text=» ADKL A4,DWTDIB+2 «, t00=0x0011, t01=0x016c}
0x1c0e…1c22 Head {h00=0x0010, h01=0x0050, text=» ADR A4,A6 «, t00=0x0011, t01=0x0186}
0x1c22…1c52 Head {h00=0x002c, h01=0x0050, text=» SCR A2,A4 STORE CHARACTER IN DWT-BUFFER«, t00=0x0012, t01=0x000a}
0x1c52…1c78 Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0012, t01=0x003a}
0x1c78…1cb8 Head {h00=0x003c, h01=0x0050, text=»ADI070 SC A1,DWTST+1,A6 SET START VALUE IN BYTE COUNTER «, t00=0x0012, t01=0x0060}
0x1cb8…1cda Head {h00=0x001e, h01=0x0050, text=» RF IHDI10 SEND CHARACTERS«, t00=0x0012, t01=0x00a0}
0x1cda…1ce4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c2}
0x1ce4…1cee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00cc}
0x1cee…1d0c Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0012, t01=0x00d6}
0x1d0c…1d16 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00f4}
0x1d16…1d42 Head {h00=0x0028, h01=0x0050, text=»ADI100 LDK A1,CCERR SET RETURN CODE «, t00=0x0012, t01=0x00fe}
0x1d42…1d5e Head {h00=0x0018, h01=0x0050, text=» ORS A1,8,A8 IN ECB «, t00=0x0012, t01=0x012a}
0x1d5e…1d84 Head {h00=0x0022, h01=0x0050, text=» RB ADI060 GET NEXT CHARACTER «, t00=0x0012, t01=0x0146}
0x1d84…1d90 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x016c}
0x1d90…1d9e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x0178}
0x1d9e…1da8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0186}
0x1da8…1dbc Head {h00=0x0010, h01=0x0050, text=»* I H D I«, t00=0x0012, t01=0x0190}
0x1dbc…1dc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0014}
0x1dc6…1dfa Head {h00=0x0030, h01=0x0050, text=»* INTERRUPT HANDLER: PROCESS OF INTERRUPT «, t00=0x0013, t01=0x001e}
0x1dfa…1e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0052}
0x1e04…1e16 Head {h00=0x000e, h01=0x0050, text=»IHDI EQU *«, t00=0x0013, t01=0x005c}
0x1e16…1e34 Head {h00=0x001a, h01=0x0050, text=» LDR A1,A1 RETURN CODE«, t00=0x0013, t01=0x006e}
0x1e34…1e56 Head {h00=0x001e, h01=0x0050, text=» RF(NE) ENDIO YES END I/O «, t00=0x0013, t01=0x008c}
0x1e56…1e78 Head {h00=0x001e, h01=0x0050, text=» LD A4,DWTST,A6 GET STATUS«, t00=0x0013, t01=0x00ae}
0x1e78…1e8c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0013, t01=0x00d0}
0x1e8c…1eae Head {h00=0x001e, h01=0x0050, text=» SUK A4,2 TWO CHARS. SENT «, t00=0x0013, t01=0x00e4}
0x1eae…1ec2 Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=1 «, t00=0x0013, t01=0x0106}
0x1ec2…1edc Head {h00=0x0016, h01=0x0050, text=» RF(NZ) IHDI05 NO «, t00=0x0013, t01=0x011a}
0x1edc…1f06 Head {h00=0x0026, h01=0x0050, text=» LDR* A3,A6 GET CHANNEL PARAMETER «, t00=0x0013, t01=0x0134}
0x1f06…1f28 Head {h00=0x001e, h01=0x0050, text=» ANK A3,/20 PROGRAM STEP ?«, t00=0x0013, t01=0x015e}
0x1f28…1f4e Head {h00=0x0022, h01=0x0050, text=» RF(Z) ENDIO NO. PERFORM ENDIO«, t00=0x0013, t01=0x0180}
0x1f4e…1f76 Head {h00=0x0024, h01=0x0050, text=»IHDI05 SUK A4,4 LAST CHARACTER ?«, t00=0x0014, t01=0x0016}
0x1f76…1f9e Head {h00=0x0024, h01=0x0050, text=» RF(Z) ENDIO YES. PERFORM ENDIO «, t00=0x0014, t01=0x003e}
0x1f9e…1fbc Head {h00=0x001a, h01=0x0050, text=»IHDI10 LDKL A2,DWTDIB «, t00=0x0014, t01=0x0066}
0x1fbc…1fd0 Head {h00=0x0010, h01=0x0050, text=» ADR A2,A6 «, t00=0x0014, t01=0x0084}
0x1fd0…1fe8 Head {h00=0x0014, h01=0x0050, text=» LD A4,DWTST,A6 «, t00=0x0014, t01=0x0098}
0x1fe8…1ffc Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0014, t01=0x00b0}
0x1ffc…200e Head {h00=0x000e, h01=0x0050, text=» ADR A2,A4«, t00=0x0014, t01=0x00c4}
0x200e…202e Head {h00=0x001c, h01=0x0050, text=» LCR A2,A2 GET CHARACTER«, t00=0x0014, t01=0x00d6}
0x202e…203a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x00f6}
0x203a…204e Head {h00=0x0010, h01=0x0050, text=» IFT ORD7=0 «, t00=0x0014, t01=0x0102}
0x204e…2062 Head {h00=0x0010, h01=0x0050, text=» RF(Z) ENDIO«, t00=0x0014, t01=0x0116}
0x2062…2098 Head {h00=0x0032, h01=0x0050, text=»IHDI10 LC A2,DWTDIB+1,A6 GET SECOND CHARACTER «, t00=0x0014, t01=0x012a}
0x2098…20a4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0014, t01=0x0160}
0x20a4…20bc Head {h00=0x0014, h01=0x0050, text=» LD A8,DWTECB,A6«, t00=0x0014, t01=0x016c}
0x20bc…20e8 Head {h00=0x0028, h01=0x0050, text=» RF(Z) OUTPUT IF POWER FAIL NO BELL «, t00=0x0014, t01=0x0184}
0x20e8…2102 Head {h00=0x0016, h01=0x0050, text=» LD A3,10,A8 BELL?«, t00=0x0015, t01=0x0020}
0x2102…211c Head {h00=0x0016, h01=0x0050, text=» RF(NN) OUTPUT NO «, t00=0x0015, t01=0x003a}
0x211c…213e Head {h00=0x001e, h01=0x0050, text=» ORK A2,/40 INDICATE BELL «, t00=0x0015, t01=0x0054}
0x213e…2148 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0076}
0x2148…217a Head {h00=0x002e, h01=0x0050, text=»OUTPUT IM DWTST,A6 INCREMENT BYTE COUNTER «, t00=0x0015, t01=0x0080}
0x217a…21a4 Head {h00=0x0026, h01=0x0050, text=»IHDI20 CF A15,OUTLIN OUTPUT CHAR. «, t00=0x0015, t01=0x00b2}
0x21a4…21ba Head {h00=0x0012, h01=0x0050, text=»EXIT ABL TDISP«, t00=0x0015, t01=0x00dc}
0x21ba…21f0 Head {h00=0x0032, h01=0x0050, text=»ENDIO ABL DISEND PERFORM END I/O AND DISPATCH «, t00=0x0015, t01=0x00f2}
0x21f0…21fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0128}
0x21fe…2208 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0136}
0x2208…221c Head {h00=0x0010, h01=0x0050, text=»* R C D I«, t00=0x0015, t01=0x0140}
0x221c…2226 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0154}
0x2226…2268 Head {h00=0x003e, h01=0x0050, text=»* RECIVERY ROUTINE: AT POWER UP ALL LIGHTS ARE FED WITH «, t00=0x0015, t01=0x015e}
0x2268…22ae Head {h00=0x0042, h01=0x0050, text=»* THE VALUES EXISTENT AT POWER FAILURE TIME.THE INFORMATION «, t00=0x0016, t01=0x0010}
0x22ae…22de Head {h00=0x002c, h01=0x0050, text=»* OM PROGRAM DISPLAY IS ALSO RESTORED «, t00=0x0016, t01=0x0056}
0x22de…22e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0086}
0x22e8…22f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0090}
0x22f2…2304 Head {h00=0x000e, h01=0x0050, text=»RCDI EQU *«, t00=0x0016, t01=0x009a}
0x2304…2324 Head {h00=0x001c, h01=0x0050, text=» CF A15,SAVE8 SAVE REGS.«, t00=0x0016, t01=0x00ac}
0x2324…2350 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTDIB,A6 GET FIRST CHARACTER«, t00=0x0016, t01=0x00cc}
0x2350…2362 Head {h00=0x000e, h01=0x0050, text=» RB ADI035«, t00=0x0016, t01=0x00f8}
0x2362…236c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x010a}
0x236c…2376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0114}
0x2376…2382 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0016, t01=0x011e}
0x2382…238a Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x012a}
0x238a…2392 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0132}
0x2392…239a Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x013a}
0x239a…23a2 Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x0142}
0x23a2…23aa Head {h00=0x0004, h01=0x0050, t00=0x0016, t01=0x014a}
0x23aa…23ae Head {h00=0x4004, h01=0x0000}
0x23ae…23b2 00 16 01 52 ┆ R┆
0x23b2…23ba (23, 1, 8) 20 04 00 00 00 17 00 04 ┆ ┆
0x23ba…240a (24, 0, 400) 5c 41 44 4b 5c 41 33 2c 2f 37 30 20 00 17 01 8a 00 0e 00 50 5c 4c 44 52 5c 41 32 2c 41 33 00 18 00 14 00 10 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 31 35 00 18 00 26 00 2a 00 50 5c 43 46 5c 41 31 35 2c 53 54 4f 52 45 5c 53 54 4f 52 45 20 4b 45 ┆ ADK A3,/70 P LDR A2,A3 P LDR* A3,A15 & * P CF A15,STORE STORE KE┆
0x240a…245a 59 20 49 4e 20 45 43 42 20 42 55 46 46 45 52 20 00 18 00 3a 00 1c 00 50 5c 4c 44 52 2a 5c 41 34 2c 41 31 35 5c 52 45 53 54 4f 52 45 20 41 34 20 00 18 00 68 00 0e 00 50 5c 43 57 4b 5c 41 37 2c 31 20 00 18 00 88 00 24 00 50 5c 52 46 28 45 29 ┆Y IN ECB BUFFER : P LDR* A4,A15 RESTORE A4 h P CWK A7,1 $ P RF(E)┆
0x245a…24aa 5c 41 4b 42 33 30 37 5c 4a 55 4d 50 20 49 46 20 42 41 53 49 43 20 52 45 41 44 00 18 00 9a 00 22 00 50 41 4b 42 32 31 34 5c 4e 47 52 5c 41 32 2c 41 31 5c 4d 41 4b 45 20 45 43 42 20 43 4f 44 45 00 18 00 c2 00 18 00 50 5c 4c 44 52 5c 41 34 2c ┆ AKB307 JUMP IF BASIC READ " PAKB214 NGR A2,A1 MAKE ECB CODE P LDR A4,┆
0x24aa…24fa 41 34 5c 4b 45 59 20 46 4c 41 47 20 00 18 00 e8 00 12 00 50 5c 52 46 28 45 29 5c 41 4b 42 32 31 35 20 00 18 01 04 00 0e 00 50 5c 53 55 4b 5c 41 32 2c 34 20 00 18 01 1a 00 2c 00 50 41 4b 42 32 31 35 5c 53 54 5c 41 32 2c 31 30 2c 41 38 5c 4b ┆A4 KEY FLAG P RF(E) AKB215 P SUK A2,4 , PAKB215 ST A2,10,A8 K┆
0x24fa…254a 45 59 2d 4c 4f 43 4b 20 43 4f 44 45 20 49 4e 20 45 43 42 20 00 18 01 2c 00 16 00 50 41 4b 42 32 31 38 5c 41 42 4c 5c 41 4b 42 33 38 30 20 00 18 01 5c 00 28 00 50 41 4b 42 32 31 39 5c 4c 44 5c 41 32 2c 34 2c 41 38 5c 52 45 51 55 45 53 54 45 ┆EY-LOCK CODE IN ECB , PAKB218 ABL AKB380 ( PAKB219 LD A2,4,A8 REQUESTE┆
0x254a…259a (25, 0, 400) 44 20 4c 45 4e 47 54 48 3d 30 00 18 01 76 00 18 00 50 41 4b 42 32 32 30 5c 41 42 4c 28 45 29 5c 41 4b 42 33 38 30 00 19 00 12 00 22 00 50 41 4b 42 32 32 35 5c 4c 44 52 5c 41 33 2c 41 33 5c 46 49 52 54 53 54 20 52 49 4d 45 3f 20 00 19 00 2e ┆D LENGTH=0 v PAKB220 ABL(E) AKB380 " PAKB225 LDR A3,A3 FIRTST RIME? .┆
0x259a…25ea 00 16 00 50 5c 52 46 28 4e 45 29 5c 41 4b 42 32 34 30 5c 4e 30 21 00 19 00 54 00 1e 00 50 5c 4c 44 5c 41 31 2c 32 2c 41 38 5c 42 55 46 46 45 52 20 41 44 44 52 45 53 53 00 19 00 6e 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 19 00 90 00 0e ┆ P RF(NE) AKB240 N0! T P LD A1,2,A8 BUFFER ADDRESS n P SUK A1,1 ┆
0x25ea…263a 00 50 5c 41 44 52 5c 41 31 2c 41 32 00 19 00 a2 00 26 00 50 41 4b 42 32 33 30 5c 53 43 52 5c 41 33 2c 41 31 5c 43 4c 45 41 52 20 45 43 42 20 42 55 46 46 45 52 20 00 19 00 b4 00 0e 00 50 5c 53 55 4b 5c 41 31 2c 31 20 00 19 00 de 00 0e 00 50 ┆ P ADR A1,A2 & PAKB230 SCR A3,A1 CLEAR ECB BUFFER P SUK A1,1 P┆
0x263a…268a 5c 53 55 4b 5c 41 32 2c 31 20 00 19 00 f0 00 12 00 50 5c 52 42 28 4e 45 29 5c 41 4b 42 32 33 30 00 19 01 02 00 10 00 50 41 4b 42 32 34 30 5c 45 51 55 5c 2a 00 19 01 18 00 14 00 50 5c 4c 44 5c 41 31 2c 44 57 54 55 54 51 2c 41 36 00 19 01 2c ┆ SUK A2,1 P RB(NE) AKB230 PAKB240 EQU * P LD A1,DWTUTQ,A6 ,┆
0x268a…26da 00 0e 00 50 5c 4c 43 52 5c 41 32 2c 41 31 00 19 01 44 00 14 00 50 41 4b 42 32 34 35 5c 4c 44 52 5c 41 34 2c 41 32 00 19 01 56 00 1a 00 50 5c 58 52 4b 5c 41 34 2c 2f 46 46 5c 4f 56 45 52 46 4c 4f 57 3f 20 00 19 01 6e 00 16 00 50 5c 52 46 28 ┆ P LCR A2,A1 D PAKB245 LDR A4,A2 V P XRK A4,/FF OVERFLOW? n P RF(┆
0x26da…272a (26, 0, 398) 4e 45 29 5c 41 4b 42 32 35 30 5c 4e 30 21 00 19 01 8c 00 1a 00 50 41 4b 42 32 34 37 5c 53 43 52 5c 41 34 2c 41 31 5c 59 45 53 21 20 00 1a 00 16 00 20 00 50 5c 4c 44 4b 5c 41 31 2c 4f 56 4d 41 53 4b 5c 4f 56 45 52 46 4c 4f 57 20 53 45 54 20 ┆NE) AKB250 N0! PAKB247 SCR A4,A1 YES! P LDK A1,OVMASK OVERFLOW SET ┆
0x272a…277a 00 1a 00 34 00 16 00 50 5c 52 46 5c 45 4e 44 49 58 5c 45 4e 44 20 49 2f 4f 20 00 1a 00 58 00 2e 00 50 41 4b 42 32 35 30 5c 43 57 5c 41 31 2c 44 57 54 49 4e 51 2c 41 36 5c 53 4f 4d 45 54 48 49 4e 47 20 49 4e 20 51 55 45 55 45 3f 00 1a 00 72 ┆ 4 P RF ENDIX END I/O X . PAKB250 CW A1,DWTINQ,A6 SOMETHING IN QUEUE? r┆
0x277a…27ca 00 14 00 50 5c 52 46 28 4e 45 29 5c 41 4b 42 32 35 35 5c 20 00 1a 00 a4 00 22 00 50 5c 43 46 5c 41 35 2c 53 54 52 45 47 5c 4e 4f 54 48 49 4e 47 20 49 4e 20 51 55 45 55 45 20 00 1a 00 bc 00 12 00 50 5c 49 46 54 5c 43 54 49 4d 55 54 3d 31 20 ┆ P RF(NE) AKB255 " P CF A5,STREG NOTHING IN QUEUE P IFT CTIMUT=1 ┆
0x27ca…281a 00 1a 00 e2 00 2a 00 50 5c 4c 44 52 5c 41 31 2c 41 31 5c 43 48 45 43 4b 20 54 49 4d 45 20 4f 55 54 20 52 45 54 55 52 4e 20 43 4f 44 45 20 00 1a 00 f8 00 1e 00 50 5c 52 46 28 5a 29 5c 41 4b 42 32 35 37 5c 4e 4f 20 54 49 4d 45 20 4f 55 54 20 ┆ * P LDR A1,A1 CHECK TIME OUT RETURN CODE P RF(Z) AKB257 NO TIME OUT ┆
0x281a…2868 00 1a 01 26 00 24 00 50 5c 41 42 4c 5c 45 4e 44 49 30 35 5c 45 4e 44 20 49 2f 4f 20 41 54 20 54 49 4d 45 20 4f 55 54 20 00 1a 01 48 00 08 00 50 5c 58 49 46 00 1a 01 70 00 12 00 50 5c 49 46 54 5c 43 54 49 4d 55 54 3d 30 20 00 1a 01 7c ┆ & $ P ABL ENDI05 END I/O AT TIME OUT H P XIF p P IFT CTIMUT=0 |┆
0x2868…28b8 (27, 0, 400) 00 0e 00 50 5c 52 46 5c 41 4b 42 32 35 37 00 1b 00 04 00 08 00 50 5c 58 49 46 00 1b 00 16 00 2a 00 50 41 4b 42 32 35 35 5c 43 46 5c 41 31 35 2c 45 4f 51 55 45 55 5c 4e 45 58 54 20 4f 55 54 20 50 4f 49 4e 54 45 52 20 00 1b 00 22 00 26 00 50 ┆ P RF AKB257 P XIF * PAKB255 CF A15,EOQUEU NEXT OUT POINTER " & P┆
0x28b8…2908 5c 53 54 5c 41 31 2c 44 57 54 55 54 51 2c 41 36 5c 53 54 4f 52 45 20 4e 45 57 20 50 4f 49 4e 54 45 52 00 1b 00 50 00 10 00 50 41 4b 42 32 35 37 5c 45 51 55 5c 2a 00 1b 00 7a 00 0e 00 50 5c 4c 44 52 5c 41 34 2c 41 37 00 1b 00 8e 00 0e 00 50 ┆ ST A1,DWTUTQ,A6 STORE NEW POINTER P PAKB257 EQU * z P LDR A4,A7 P┆
0x2908…2958 5c 53 55 4b 5c 41 34 2c 32 20 00 1b 00 a0 00 20 00 50 5c 52 46 28 4e 4e 29 5c 41 4b 42 33 31 30 5c 4f 52 44 45 52 20 32 20 4f 52 20 33 20 00 1b 00 b2 00 0a 00 50 5c 45 4a 45 43 54 00 1b 00 d6 00 06 00 50 2a 20 00 1b 00 e4 00 06 00 50 2a 20 ┆ SUK A4,2 P RF(NN) AKB310 ORDER 2 OR 3 P EJECT P* P* ┆
0x2958…29a8 00 1b 00 ee 00 1c 00 50 2a 20 20 20 20 20 4f 52 44 45 52 20 31 20 42 41 53 49 43 20 52 45 41 44 00 1b 00 f8 00 06 00 50 2a 20 00 1b 01 18 00 06 00 50 2a 20 00 1b 01 22 00 06 00 50 2a 20 00 1b 01 2c 00 36 00 50 41 4b 42 33 30 35 5c 43 46 5c ┆ P* ORDER 1 BASIC READ P* P* " P* , 6 PAKB305 CF ┆
0x29a8…29f8 41 31 35 2c 53 54 4f 52 45 5c 53 54 4f 52 45 20 43 48 41 52 41 43 54 45 52 20 49 4e 20 45 43 42 2d 42 55 46 46 45 52 20 00 1b 01 36 00 10 00 50 5c 49 46 54 5c 43 45 43 48 4f 3d 31 00 1b 01 70 00 10 00 50 5c 43 46 5c 41 35 2c 45 43 48 4f 20 ┆A15,STORE STORE CHARACTER IN ECB-BUFFER 6 P IFT CECHO=1 p P CF A5,ECHO ┆
0x29f8…2a48 (28, 0, 398) 00 1b 01 84 00 08 00 50 5c 58 49 46 00 1c 00 08 00 16 00 50 41 4b 42 33 30 37 5c 43 57 5c 41 33 2c 34 2c 41 38 20 00 1c 00 14 00 2c 00 50 5c 52 46 28 45 29 5c 41 4b 42 33 38 30 5c 45 4e 44 20 49 2f 4f 20 49 46 20 52 45 51 3d 45 46 46 20 4c ┆ P XIF PAKB307 CW A3,4,A8 , P RF(E) AKB380 END I/O IF REQ=EFF L┆
0x2a48…2a98 45 4e 47 54 48 20 00 1c 00 2e 00 1e 00 50 5c 4c 44 5c 41 32 2c 44 57 54 53 54 2c 41 36 5c 4d 4f 52 45 20 4b 45 59 53 3f 00 1c 00 5e 00 0e 00 50 5c 41 4e 4b 5c 41 32 2c 2f 46 00 1c 00 80 00 12 00 50 5c 52 42 28 4e 5a 29 5c 41 4b 42 32 31 30 ┆ENGTH . P LD A2,DWTST,A6 MORE KEYS? ^ P ANK A2,/F P RB(NZ) AKB210┆
0x2a98…2ae8 00 1c 00 92 00 0e 00 50 5c 52 42 5c 41 4b 42 32 32 35 00 1c 00 a8 00 0a 00 50 5c 45 4a 45 43 54 00 1c 00 ba 00 06 00 50 2a 20 00 1c 00 c8 00 06 00 50 2a 20 00 1c 00 d2 00 06 00 50 2a 20 00 1c 00 dc 00 34 00 50 2a 20 20 20 20 20 20 4f 52 44 ┆ P RB AKB225 P EJECT P* P* P* 4 P* ORD┆
0x2ae8…2b38 45 52 20 32 20 4f 52 20 33 20 20 20 53 54 41 4e 44 41 52 44 20 41 4e 44 20 4e 55 4d 45 52 49 43 20 52 45 41 44 20 00 1c 00 e6 00 06 00 50 2a 20 00 1c 01 1e 00 42 00 50 2a 20 20 20 20 20 20 43 48 45 43 4b 20 49 46 20 52 45 41 44 20 43 48 41 ┆ER 2 OR 3 STANDARD AND NUMERIC READ P* B P* CHECK IF READ CHA┆
0x2b38…2b86 52 41 43 54 45 52 20 49 53 20 46 4f 55 4e 44 20 49 4e 20 4b 45 59 2d 54 41 42 4c 45 20 28 49 46 20 41 4e 59 29 20 00 1c 01 28 00 06 00 50 2a 20 00 1c 01 6e 00 06 00 50 2a 20 00 1c 01 78 00 06 00 50 2a 20 00 1c 01 82 00 06 00 50 2a 20 ┆RACTER IS FOUND IN KEY-TABLE (IF ANY) ( P* n P* x P* P* ┆