|
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: 36402 (0x8e32)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦13e5fd45a⟧ Bits:30009699 Philips computer tape "600507"
└─⟦this⟧ »TOSSWORK/DRDY01.SC«
IDENT DRDY01 REL 11.0 81-01-26 870105041100 =7,ADAPTED TO NEW INTERFACE REL 10.1 79-11-07 =6,CORRECTION OF SPECIAL CHARTACTER HANDLING REL 10.1 79-10-19 =5,ABORT ROUTINE REL 10.1 79-10-15 =4,CORRECTION OF ERASE REL 9.1 79-05-23 =3,STEADY CURSOR PROBLEM CORRECTED PRR 9.1 79-04-06 =2,ERASE ONLY TO LAST POS. OF SCREEN PRR 9.1 79-01-31 =1 DRIVER ADAPTAD TO HANDLE PTS 6385 PRR 9.1 79-01-12 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY * * * * * * ************************************************** * * * THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS * PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 * AND PTS 6386 * THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM * VIA CHLT OR CHRT. * * THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS * WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN * ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE * GENERAL KEYBOARD DRIVER DRKB01. * * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C D Y ACTIVATION PART * * I H D Y INTERRUPT HANDLER * * R C D Y RECOVERY ROUTINE * * E C H O D Y ECHO FUNCTIONS * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00: TEST STATUS * 05: BASIC WRITE * 06: STANDARD WRITE * 07: WRITE GRAPHIC DISPLAY * 0B: CURSOR POSITIONING * 31: ERASE * * NORMAL REGISTER USAGE * * REGISTER A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * EJECT * * * SYSTEM ADAPTATION * * DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. * * --------------------------------- * BIT: 10 11 * -------------- * 0 0 PTS 6344 * 0 1 PTS 6351 & 6342 * 1 0 PTS 6386 & 6385 * --------------------------------- * * BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: * -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT * -IS ADAPTED TO CONTROL ONLY PTS 6344 * -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 * -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER * -CAN SUPPRESS TRAILING BLANKS * AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) EJECT * * * * *********** * ENTRIES * *********** * * * ENTRY DYAD ADDRESS TO ADDRESSBLOCK ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE * * * * ***************************************** * EXTERNAL TOSS MODULE ENTRIES * ***************************************** * * EXTRN LENDER I/O REQUEST ERROR =7 EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN LDISP DISPATCHER =7 EXTRN NDGET8 RELOAD REGISTERS AND RETURN EXTRN TENDIO END I/O EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER EXTRN STABLK START OF BLOCK =7 EXTRN ENDBLK DEFINES END OF BLOCK =7 EJECT * ************************ * DWT PARAMETERS * ************************ * EXTRN DWTST STATUS EXTRN DWTOR ORDER EXTRN DWTDEV * EJECT ************* * CONSTANTS * ************* * FASTO EQU /14 FAST OUTPUT SCADD EQU /11 SET CURSOR ADDRESS ULSTAR EQU /12 UNDERLINE START ULSTOP EQU /13 UNDERLINE STOP LISTAR EQU /1E LOW INTENSITY START LISTOP EQU /1F LOW INTENSITY STOP BACKSP EQU /08 BACKSPACE LF EQU /0A LINE FEED HOME EQU /0B CURSOR HOME CLEHOM EQU /0C CLEAR AND CURSOR HOME CR EQU /0D CARRIAGE RETURN CURRIG EQU /10 CURSOR RIGHT SPACE EQU /20 SPACE STX EQU /82 START OF MESSAGE ETB EQU /97 END OF MESSAGE ETX EQU /03 LAST DUMMY RETURN EQU /12 RETURN TO ALPHANUMERIC MODE ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE POINT EQU /2E POINT CHARACTER EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT STILL EQU /18 CURSOR STEADY CTYCOD EQU /1B SET COUNTRY CODE * ******************** * RETURN CODES * ******************** * CCERR EQU /4 CODE CHECK ERROR OPERR EQU /1 NOT OPERABLE, POWER OFF * EJECT * * ***************************************** * CONDITIONAL ASSEMBLY * ***************************************** * * * BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 * X:A EQU 0 GRAFIC EQU X:A * * BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 * X:B EQU 1 WHATDY EQU X:B * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 0 LOWCHA EQU X:C * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 * X:D EQU 0 EORECH EQU X:D * * BY SETTING THE CONSTANT TRASPA = 1 IT IS * POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. * X:E EQU 0 TRASPA EQU X:E EJECT * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING X:F EQU 0 STEADY EQU X:F * * THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT * BY SETTING MMUPAG = 1 * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. * CODE COUNTRY * 0 GB/NL/B * 1 D/A/L/CH * 2 F/CH/B/L * 3 E * 4 I/CH * 5 S/SF * 6 DK/N * 7 P * 8 YU * 9 US X:G EQU 0 COUNTRY EQU X:G * * MEMORY MANAGEMENT BUFFER SIZE * * X:H EQU 64 DVBLEN EQU X:H * EJECT * * ******************************** * 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 * DWTAP EQU /2 HEAD POSITION POINTER DWTPOS EQU /7 POSITIONS DWTLIN EQU /6 LINES DWTBIN EQU /8 BUFFER INDERX DWTPOC EQU /A POSITION COUNTER DWTBC EQU /B BYTE COUNTER BLKSI EQU /50 BLOCK LENGTH * EJECT * * ********** * TABLES * ********** * * DATA DVBLEN BUFFER LENGTH DATA 2 DEVICE INDEX DYAD EQU * ADDRESS BLOCK DATA ACDY ACTIVATION DRIVER DATA ABDY ABORT ROUTINE ADDRESS DATA IHDY INTERRUPT HANDLER DATA RCDY RECOVERY ROUTINE DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE * * TABSPE EQU * TABLE OF SPECIAL CHARACTERS DATA /0712,/131E,/1F14 EJECT * * A C D Y * * ACDY = ACTIVATION DRIVER DISPLAY * * ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE * IS SET IF DISPLAY NOT OPERABLE * * * ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY * FROM ECB-BUFFER WITHOUT ANY CHECK. * * ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM * ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. * * IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU') * ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER * OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386> * IFT GRAFIC=1 * ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED * TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER * IS SENT TO THE DISPLAY. * XIF * ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. * THE CURSOR IS SENT TO THE POSITION GIVEN * IN CONTROL WORD. NO INFORMATION ON DISPLAY * IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) * IS EXECUTED. * * ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE * WHERE THE CURSOR IS POSITIONED THE NUMBER * OF CHARACTERS THAT ARE DEFINED IN THE CONTROL * WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS * IN THE CURSOR POSITION. THE CURSOR RE- * MAINS IN THAT POSITION. ACDY EQU * LDK A3,0 START BUFFER INDEX LDK A4,0 COUNTER LDK A2,BLKSI MAX BLOCK SIZE =7 CF A5,STABLK START BLOCK =7 LDR A7,A7 ORDER 0 ? ABL(E) ADY410 YES IFT WHATDY=0 LD A1,DWTDEV,A6 GET PARAMETER =7 ANKL A1,/1000 GRAPHIC DISPLAY =7 RF(E) ACDY02 NO IFT GRAFIC=1 CWK A7,7 ORDER ' ? ABL(E) ADY500 XIF IFT WHATDY=0 CF A5,STABLK START OF BLOCK =7 LDK A2,/12 INDICATE SWITCH TO ALPHA MODE CF A5,OUTPUT CF A5,ENDBLK END OF BLOCK =7 * XIF * ACDY02 EQU * CWK A7,5 ORDER 5 RF(E) ACDY90 YES CWK A7,6 ORDER 6 ??? =7 RF(E) ACDY20 YES CWK A7,/B ORDER B(!!) =7 ABL(E) ADY200 YES CWK A7,/31 ORDER /31 ? =7 ABL(E) ADY160 YES CF A5,ENDBLK END OF BLOCK =7 * DYERR ABL LENDER I/O REQUEST ERROR EJECT * ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER * ARE CARRIED OUT. * /2B NO MOVING OF PRINT HEAD * /30 CR, LF, LF * /31 ERASE DISPLAY AND WRITE FROM HOME POSITION * OTHER VALUE CR, LF * ACDY20 EQU * LD A2,4,A8 GET REQUESTED LENGTH RF(E) ACDY25 LDK A3,2 START BUFFER INDEX LD A2,2,A8 GET BUFFER ADDRESS LC A2,1,A2 GET CONTROL CHARACTER ANK A2,/FF ACDY25 EQU * SUK A2,/2B POSITIONING BEFORE WRITE ? RF(E) ACDY90 SUK A2,6 /31 ? RF(E) ACDY65 LDK A4,1 INDICATE LINE FEED ADK A2,1 DOUBLE LINE FEEED ? RF(NE) ACDY30 ADK A4,1 INDICATE DOUBLE LINE FEED ACDY30 LDK A2,CR CARRIAGE RETURN ACDY35 LDK A1,1 SC A1,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER * SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS * ACDY50 EQU * CF A5,OUTPUT SEND CHARACTER ACDY52 SUK A4,1 RF(N) ACDY90 START SECTION ENDED? LC A1,DWTLIN+DWTDEV,A6 LINES CC A1,DWTAP+DWTDEV,A6 LAST LINE ? RF(L) ACDY55 LDKL A2,/100 INCREMENT LINE COUNTER ADS A2,DWTAP+DWTDEV,A6 ACDY55 LDK A2,LF LINE FEED TO SEND RB ACDY50 ACDY65 LDK A2,CLEHOM CLEAR AND HOME LDK A1,1 SC A1,DWTAP+DWTDEV,A6 RESET LINE COUNTER RB ACDY35 EJECT * * GET, CHECK AND SEND CHARACTER * (IF ORDER 5 NO CHECK) * ACDY70 EQU * IFT WHATDY=0 LD A4,DWTDEV,A6 GET PARAMETER =7 ANKL A4,/1000 NOT 6344 OR 67386 =7 RF(NZ) ACDY75 NOT 6344 OR 6386 XIF LD A4,2,A8 ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER CCR A2,A4 CHAR EQU TO CURRENT? ABL(E) CHECK YES! ACDY75 EQU * CF A5,OUTPUT ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING IFT TRASPA=1 LD A1,2,A8 GET BUFFER ADDRESS (BA) LD A2,4,A8 GET REQUESTED LENGTH(RL) ADR A1,A2 GET ADD END OF BUFFER SKIP05 CWK A2,2 RF(NG) SKIP30 RL < 3 SUK A1,1 DECR. BA LCR A4,A1 GET CHAR CCK A4,/2020 SPACE ? RF(NE) SKIP20 NO SKIP07 SUK A2,1 DECR RL RB SKIP05 GET NEXT SKIP20 CWK A2,4 RF(NG) SKIP30 RL < 5 LC A4,-2,A1 GET CHAR CCK A4,/1111 TABULATION CHAR ? RF(NE) SKIP25 NO! SUK A1,2 DECR BA SUK A2,2 DECR RL RB SKIP07 GET NEXT SKIP25 LCR A4,A1 GET CHARACTER AGAIN ANK A4,/FF SUK A4,/12 UNDER LINE START? RB(Z) SKIP07 YES! SKIP IT! SUK A4,/C LOW INT. START? RB(Z) SKIP07 YES! SUK A4,1 LOW INT. STOP? RB(Z) SKIP07 YES! * SKIP30 ST A2,4,A8 STORE NEW RL XIF ACDY90 LDK A4,0 ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER LDR A1,A1 LAST CHARACTER? ABL(NP) ADY405 CWK A7,5 ORDER 5 ? =7 RB(E) ACDY75 ANK A2,/7F LDK A1,5 SET TABLE POINTER CC A2,TABSPE,A1 FAST OUTPUT? RF(E) ADY125 SUK A1,1 NO! STR A7,A5 SAVE A7 ON STACK =7 LDR* A7,A6 CHANNEL PARAMETER ANK A7,/30 GRAFIC DISPLAY ? RF(E) ADY110 NO LDK A1,5 SET TABLE PONTER ADY110 EQU * LDR* A7,A5 GET A7 FROM STACK =7 CC A2,TABSPE,A1 CHARACTER FOUND RF(NE) ADY128 CCK A2,/1E1E LOW INTENSITY ? RF(NE) ADY122 NO LDK A4,/80 ADY120 EQU * ORS A4,DWTDEV,A6 SET LOW INTENSITY MODE =7 LDK A4,0 RB ACDY50 ADY122 CCK A2,/1212 UNDERLINE ? RF(NE) ADY125 LDK A4,/40 SET UNDERLINE MODE RB ADY120 ADY125 CCK A2,/1414 FAST OUTPUT ? LDK A4,0 RB(NE) ACDY50 NO LDR A4,A2 CF A15,GETCHR GET OUTPUT CHARACTER LDR A1,A2 LDR A2,A4 LD A4,4,A8 REQ LENGTH SUR A4,A3 NUMBER OF CHARS RF(Z) ADY127 NONE * IFT WHATDY=0 LDR* A7,A6 GET CHANNEL PARAMETER ANK A7,/10 RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? XIF LDR A3,A1 NO! CF A5,FASTER ADY127 EQU * LD A7,DWTOR,A6 GET ORDER =7 ANK A7,/FF GET ORDER =7 LD A3,4,A8 REQ LENGTH ST A3,6,A8 EFF LENGTH ABL ADY405 ADY128 EQU * SUK A1,1 GET NEXT RB(NN) ADY110 NOT AT END LDR A1,A2 MOVE CHARACTER SUK A1,/11 TAB CHAR? (11) RF(E) ADY140 SUK A1,/F LESS THAN /20 ? RF(N) ADY130 CODE CHECK ERROR SUK A1,/3F GREATER THAN /5F ABL(NP) ACDY70 IFT LOWCHA=0 SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F TO CHARACTER BETWEEN /40 TO /5F XIF RB ACDY70 * * IFT WHATDY=0 OTHER EQU * ************************ * A3 = INDEX * A1 = CHARACTER * A4 = NUMBER ************************ LC A2,DWTBC+DWTDEV,A6 AD A2,DWTAP+DWTDEV,A6 GET POSITION ANK A2,/FF ADR A2,A4 ADD LENGTH OF REQUEST LD A3,DWTPOS+DWTDEV,A6 GET MAX-POS AND ANK A3,/FF ST A4,10,A8 SAVE LENGTH SUR A3,A2 COMPARE RF(NN) OT030 LENGTH OK ADR A4,A3 ST A4,10,A8 SAVE LENGTH ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS OT030 EQU * LDR A3,A1 SAVE CHARACTER TO SEND OT010 LDR A2,A3 CF A5,OUTPUT SENT CHAR (IN A2) SUK A4,1 DECREMENT COUNTER RB(P) OT010 LD A4,10,A8 GET ACT. LENGTH OT040 LDK A2,BACKSP CF A5,OUTPUT SENDBACKSPACE SUK A4,1 DECREMENT LENGTH RB(P) OT040 RB ADY127 XIF EJECT * * CODE CHECK ERROR * ADY130 EQU * LDK A1,CCERR ORS A1,8,A8 RETURN CODE RB ADY100 EJECT * * TABULATION * ADY140 EQU * CF A15,GETCHR GET FIRST ASCII CHARACTER LDR A4,A2 CF A15,GETCHR GET SECOND ASCII CHARACTER ANK A2,/F ANK A4,/F RF(E) ADY144 ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL SUK A4,1 RB(NE) ADY143 ADY144 LC A4,DWTAP+DWTDEV+1,A6 SUR A2,A4 SUBTRACT HEAD POSITION POINTER LC A4,DWTBC+DWTDEV,A6 SUR A2,A4 AND REQUESTS POSITION COUNTER TO GET NUMBER OF SPACES TO SEND ABL(NP) ADY100 LDR A4,A2 ADY145 LDK A2,CURRIG CURSOR RIGHT ADY146 CF A5,OUTPUT CF A15,POSUPD POSITION COUNTER UPDATING SUK A4,1 READY ? RB(NE) ADY145 NO ABL ADY100 EJECT * * ERASE ORDER /31 * ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY? RF(NE) ADY166 YES =2 XIF CF A5,ERA GET LENGTH TO ERASE =2 LDK A3,/20 CF A5,FASTER FAST OUTPUT ADY165 EQU * ABL ADY410 END OF REQUEST IFT WHATDY=0 ADY166 EQU * YES =2 CF A5,ERA GET LENGTH TO ERASE =2 * ADY170 SUK A4,1 DECR NO OF CHAR RF(N) ADY180 ERASE READY LDK A2,/20 SPACE CF A5,OUTPUT SEND IT RB ADY170 ADY180 LD A4,10,A8 CF A5,ERA GET LENGTH TO ERASE =2 LDR A3,A3 OVER EDGE =4 RF(NN) ADY186 NO =4 SUK A4,1 ADJUST LENGTH =4 ADY186 EQU * SUK A4,1 DECREMENT =2 RB(N) ADY165 CURSOR IN ORIGIN POSITION LDK A2,BACKSP CURSOR LEFT CF A5,OUTPUT SEND IT RB ADY186 AGAIN XIF EJECT * * ORDER /B CURSOR POSITIONING PART * ADY200 EQU * * IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY? RF(NE) ADY205 YES * IF VIDEO (6344) SET CURSOR ADDRESS DIRECT XIF LD A4,10,A8 GET REQUESTED CURSOR POS ST A4,DWTAP+DWTDEV,A6 UPDATE LINE & POS COUNTER CF A5,CURPOS SET CURSOR RF ADY380 IFT WHATDY=0 * GET LINE ADY205 LC A4,10,A8 GET REQUESTED LINE CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? RF(NG) ADY207 NO! LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE ADY207 EQU * LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE ADY210 CWR A4,A3 RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL RF(E) ADY300 SAME LINE LDK A2,LF LINE FEED ADK A3,1 INCREMENT ACTUAL LINE NUMBER ADY230 CF A5,OUTPUT SEND LDR A4,A4 REQUESTED LINE RB(NZ) ADY210 NOT EQUAL ZERO LDK A4,1 RF ADY300 ADY250 LDK A2,HOME HOME LDK A3,1 RESET ACTUAL LINE NUMBER ST A3,DWTAP+DWTDEV,A6 RESET POSITION RB ADY230 * * GET POSITION * ADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER LC A4,11,A8 GET REQUESTED POSITION CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? RF(NG) ADY303 NO! LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE ADY303 EQU * CWK A4,1 FIRST POSITION ? RF(NE) ADY305 NO CWR A4,A3 FIRST LINE ? RF(NE) ADY305 NO LDK A2,HOME CURSOR GO HOME RF ADY330 ADY305 RF(NL) ADY307 REQ. POS NOT ZERO LDK A4,1 ADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION CC A3,DWTPOS+DWTDEV,A6 MAX-POS? RF(NG) ADY310 NO! SUK A3,1 ADY310 CWR A4,A3 FORWARDS OR BACKWARDS RF(E) ADY370 POSITION FOUND RF(N) ADY340 BACK LDK A2,CURRIG CURSOR RIGHT ADK A3,1 UPDATE POSITION COUNTER ADY330 CF A5,OUTPUT SEND RB ADY310 ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY RF(L) ADY345 BACKSPACE WAY LDK A2,CR CARRIAGE RETURN LDK A3,1 INDICATE FIRST POSITION RB ADY330 ADY345 LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND SUK A3,1 LAST BACKSPACE ? RB(NE) ADY345 ADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER XIF ADY380 LDK A3,2 START BUFFER INDEX ABL ACDY90 IFT WHATDY=0 * ADY400 LDK A2,/22 START CHARACTER CF A5,OUTPUT * XIF * EJECT * * * SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL * WORD, LOAD A1 WITH RETURN CODE AND END I/0. * ADY405 EQU * LD A1,DWTDEV,A6 GET PARAMETER =7 ANKL A1,/1000 6344 (!!!!!) =7 RF(NE) ADY407 NO LD A1,DWTDEV,A6 GET PARAMETER =7 LDR A4,A1 ANK A1,/40 UNDERLINE MODE ? RF(E) ADY406 NO LDK A2,ULSTOP UNDERLINE STOP CF A5,OUTPUT ADY406 ANK A4,/80 LOW INTENSITY MODE ? RF(E) ADY407 LDK A2,LISTOP LOW INTENSITY STOP CF A5,OUTPUT ADY407 EQU * CF A15,UPDAPP UPDATE HEAD POSITION COUNTER ADY410 LDK A2,ETX LAST DUMMY CF A5,OUTPUT SEND DUMMY LDR A7,A7 TEST STATUS =5 RF(NZ) ADY415 NO =5 LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION =5 ST A4,10,A8 SAVE CURSOR POS. IN ECB =5 ADY415 EQU * CWK A7,/5 ORDER 5 (!!) =7 RF(NE) ADY420 LDKL A4,/101 HOME POSITION ST A4,DWTAP+DWTDEV,A6 ADY420 EQU * ENDIO EQU * END I/O CF A5,ENDBLK END OF BLOCK =7 CF A15,TENDIO END I/O EXIT EQU * ABL LDISP GO TO DISPATCHER =7 * IFT GRAFIC=1 * EJECT * * GRAPHIC PART * ADY500 EQU * LDK A2,/11 CF A5,OUTPUT SWITCH TO GRAFIC MODE ADY510 CF A15,GETCHR GET CHARACTER LDR A1,A1 BUFFER EMPTY RB(E) ADY400 LDR A4,A2 CF A15,GETCHR GET NEXT CHARACTER LDR A1,A4 ANK A4,/80 ADDRESS OR DATA RF(E) ADY530 DATA MESSAGE * * ADDRESS MESSAGE * * SET FIRST OUT PUT IN A2 * AND SECOND IN A4 * SLL A1,4 LDR A4,A2 SRL A4,4 ORR A4,A1 ANK A2,/F ANK A4,/7F ORK A2,/20 ADY515 CF A5,OUTPUT SEND FIRST CHARACTER LDR A2,A4 GET SECOND CHARACTER CF A5,OUTPUT SEND SECOND CHARACTER RB ADY510 EJECT * * DATA MESSAGE * * FIRST OUTPUT IS SET IN A2 * AND SECOND IN A4 * ADY530 SLL A1,13 LDR A4,A2 SLL A2,5 ORR A1,A2 LDK A7,10 LDK A2,0 ADY540 SLL A1,1 RF(NN) ADY550 ORKL A2,/200 ADY550 SUK A7,1 RF(E) ADY560 SRL A2,1 RB ADY540 ADY560 LDR A4,A2 SRL A4,4 ANK A4,/3F ANK A2,/F ORK A2,/60 RB ADY515 * XIF * EJECT * * UPDAPP = SUBROUTINE TO UPDATE HEAD * POSITION POINTER WHEN END * OF REQUEST IS REACHED UPDAPP EQU * LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER ADS A3,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER LDK A3,0 SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER RTN A15 * * POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION * POINTER WHEN REQUEST RUNNING. * A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE * POSUPD EQU * LC A2,DWTBC+DWTDEV,A6 GET POSITION POINTER ANK A2,/FF AD A2,DWTAP+DWTDEV,A6 INCLUDE HEAD POSITION POINTER ANK A2,/FF CC A2,DWTPOS+DWTDEV,A6 END OF ROW ? RF(P) POSU10 IM DWTPOC+DWTDEV,A6 POSITION COUNTER =7 POSU10 RTN A15 EJECT * * I H D Y * * INTERRUPT * IHDY EQU * LD A4,DWTST,A6 BUSY? RB(N) EXIT NO SLL A4,2 ECHO MODE ? RF(N) IHDY10 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? RB(NE) ADY420 YES IHDY10 EQU * ABL LENDER SET ERROR EJECT * * R C D Y * * RCDY = RECOVERY ROUTINE DISPLAY * * * RECOVERY IS CARRIED OUT ONLY IF * ORDER 6 IS RUNNING * * AT ENTRY: * * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS RCDY EQU * LDKL A2,/7FFF ANS A2,DWTST,A6 SET BUSY =1 =1 =1 =1 =1 =1 =1 =1 * IFT WHATDY=0 * LD A2,DWTDEV,A6 CHANNEL PARAMETER =7 ANKL A2,/1000 GRAPHIC DISPLAY =7 RF(E) RCDY10 NO LDK A2,RETURN RETURN TO ALPHANUMERIC MODE CF A5,OUTPUT * XIF * EJECT RCDY10 EQU * LDK A2,BLKSI MAX BLOCKSIZZE =7 CF A5,STABLK START OF BLOCK =7 LDK A2,/00 DUMMY TO SEND CF A5,OUTPUT IFT WHATDY=0 =1 IFF STEADY+COUNTRY=0 =1 LDR* A2,A6 GET CHANNEL PARAMETERS =1 ANK A2,/20 PTS 6385/6386 ? =1 RF(Z) RCDY14 NO =3 LDK A3,100 SET UP TRANSFER COUNTER =3 RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 ADK A2,STEADY ADJUST TO STEADY IF SO =3 CF A5,OUTPUT SEND CURSOR INF =3 SUK A3,1 DEC TRANSFER COUNTER =3 RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 CF A5,OUTPUT =1 LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 ORK A2,/30 =1 CF A5,OUTPUT =1 =3 =3 RCDY14 EQU * =3 XIF =1 LD A3,DWTST,A6 SAVE STATUS WORD =3 LDK A2,CLEHOM CLEAR AND HOME CF A5,OUTPUT SEND LDKL A2,/101 ST A2,DWTAP+DWTDEV,A6 SET HEAD LINE-AND-POSITION COUNTER LDR A3,A3 GET OLD STATUS RB(N) ENDIO NOT BUSY LDK A1,OPERR SET RETURN CODE RCDY15 ABL ADY420 EJECT * * LRC-ERROR IN BLOCK SENT REMOTE * RCDY20 EQU * CWK A7,/5 ORDER 5 (!!) =7 RF(NE) RCDY25 NO LDK A1,2 INDICATE THROUGHPUT ERROR RB RCDY15 RCDY25 EQU * LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POSITIONS TO BACK ANK A4,/FF RF(E) RCDY30 CF A5,BACCAN SEND BACKSPACES AND RUB OUT LDK A3,2 START BUFFER INDEX RCDY30 ABL ACDY90 EJECT * * E C H O D Y * * ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE * ECHODY EQU * LDR A7,A7 EOR? RF(N) ECDY17 YES LDR A3,A2 SAVE CHARACTER LDR A4,A2 SAVE CHAR. * IFT EORECH=0 * SUK A2,/80 RF(NN) ECDY20 NOT TO BE ECHOED ADK A2,/80 * XIF * SUK A3,/8 RF(E) ECDY40 BACKSPACE SUK A3,/10 RF(E) ECDY50 CLEAR LDK A2,1 BLOCK SIZE CF A5,STABLK START OF BLOCK =7 LDR A2,A4 GET CHAR. ECDY10 CF A5,OUTPUT SEND CHARACTER CF A15,POSUPD POSITION COUNTER UPDATING CF A5,ENDBLK END OF BLOCK =7 RF ECDY20 ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER CF A15,TENDIO SET DY DWT FREE ECDY20 ABL ECHRTN RETURN TO KEYBOARD * * BACKSPACE * ECDY40 EQU * LC A4,DWTBC+DWTDEV,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION LDK A4,1 INDICATE ONE BACKSTEP LDK A2,BLKSI BLOCK SIZE CF A5,STABLK START OF BLOCK =7 CF A5,BACCAN BACK CF A5,ENDBLK END BLOCK =7 RB ECDY20 EJECT * * CLEAR * ECDY50 EQU * LC A4,DWTBC+DWTDEV,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION IFT WHATDY=0 LD A1,DWTDEV,A6 DEVICE STATUS =7 ANKL A1,/1000 GRAPHIC DISPLAY =7 (???????????) RF(E) ECDY60 N CF A5,STABLK START BLOCK =7 CF A5,BACCAN BACK CF A5,ENDBLK END BLOCK =7 RB ECDY20 XIF ECDY60 LDK A2,BLKSI BLOCK SIZE =7 CF A5,STABLK START BLOCK =7 LDR A3,A4 SAVE POSITION COUNTER LD A4,DWTAP+DWTDEV,A6 GET HEAD LINE-AND-POSITION COUNTER CF A5,CURPOS SET CURSOR LDR A4,A3 GET POS COUNTER ADK A4,1 UPDATE POS COUNTER LDK A3,/20 CF A5,FASTER FAST OUTPUT LDK A2,0 SC A2,DWTBC+DWTDEV,A6 RESET POSITION COUNTER CF A5,ENDBLK END BLOCK =7 RB ECDY20 EJECT * * * BACCAN = SUBROUTINE TO POSITION CURSOR * AT THE PLACE BEFORE REQUEST IF * CLEAR OR BACKWARDS ONE STEP IF * BACKSPACE. * BACCAN EQU * LDR A3,A4 LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER ANK A2,/FF AD A2,DWTAP+DWTDEV,A6 ADD HEAD POSITION COUNTER ANK A2,/FF CC A2,DWTPOS+DWTDEV,A6 LAST POSITION RF(NP) BACA10 NO LDK A2,SPACE DESTRUCTIVE SPACE RF BACA20 BACA10 LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND LDK A2,SPACE DESTRUCTIVE SPACE CF A5,OUTPUT SEND LDK A2,BACKSP BACKSPACE BACA20 CF A5,OUTPUT SEND SUK A4,1 RB(NE) BACA10 NGR A3,A3 NEGATE REGISTER ADS A3,DWTPOC+DWTDEV,A6 UPDATE POSITION COUNTER =7 RTN A5 EJECT *********************************************** * CHECK = SUBROUTIN TO CHECK USER BUFFER IN * * ORDER TO GET A REASON FOR USING * * 'FAST OUTPUT FACILITY' ON 6344 * * AND 6386 * *********************************************** CHECK EQU * * * LD A1,4,A8 SUR A1,A3 END OF BUFFER? ABL(NP) ACDY75 YES! LDR A7,A2 SAVE CHER TO SEND (AND CHECK) LDR A2,A4 SAVE BUFFER ADDRESS+INDEX LDK A4,1 RESET COUNTER NEXT ADK A4,1 INCREMENT COUNTER SUK A1,1 END OF BUFFER? RF(NP) OUT YES! ADK A2,1 INCREMENT POINTER CCR A7,A2 CHAR EQU TO PREVIUS? RB(E) NEXT YES! OUT EQU * CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? RF(L) NOFAST NO! ********************************** * UPDATE ACTUAL POSITION POINTER * FASTOK LC A2,DWTBC+DWTDEV,A6 GET HEAD POSITION AD A2,DWTAP+DWTDEV,A6 ANK A2,/FF ADR A3,A4 UPDATE BUFFER-INDEX ST A3,DWTBIN+DWTDEV,A6 SAVE INDEX LC A3,DWTPOS+DWTDEV,A6 GET MAXNUMBER OF CHAR/LINE SUR A3,A2 AND COMPARE SUR A3,A4 RF(NN) HIT ADR A4,A3 ADK A4,1 HIT EQU * ADS A4,DWTPOC+DWTDEV,A6 UPDATE POSITION =7 *********************** * EXECUTE FAST OUTPUT * LDR A3,A7 GET CHAR TO SEND CF A5,FASTER ************** * SET CURSOR * LD A4,DWTPOC+DWTDEV,A6 GET ACTUAL POSITION =7 ANK A4,/FF AD A4,DWTAP+DWTDEV,A6 INC HEAD POS POINTER CF A5,CURPOS ***************************** * RESTORE A3 (BUFFER INDEX) * LD A3,DWTBIN+DWTDEV,A6 RESTORE BUFFER INDEX SUK A3,1 LD A7,DWTOR,A6 GET ORDER =7 ANK A7,/FF GET ORDER =7 ABL ACDY90 READ NEXT CHAR * NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER LD A7,DWTOR,A6 GET ORDER =7 ANK A7,/FF GET ORDER =7 ABL ACDY75 EJECT * * * FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT * AT ENTRY A4 = NUMBER OF CHARACTERS * FASTER EQU * CWK A4,/60 RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG LDK A4,/59 FAS010 EQU * ADK A4,/20 ADD CONSTANT LDK A2,FASTO FAST OUTPUT CF A5,OUTPUT SEND LDR A2,A4 NO OF CHAR CF A5,OUTPUT SEND LDR A2,A3 CF A5,OUTPUT SEND RTN A5 EJECT * * * CURPOS = SUBROUTINE TO SET CURSOR * AT ENTRY A4 = CURSOR POS (POSITION AND LINE) * CURPOS EQU * ADKL A4,/1F1F CONVERT LDK A2,SCADD SET CURSOR CF A5,OUTPUT SEND ECR A2,A4 POS. X < /80? LDR A2,A2 RF(NN) CURR05 YES! LCK A4,/7F00 CURR05 EQU * LDR A2,A4 CF A5,OUTPUT OUTPUT POSITION (X) LDR A2,A4 RF(NN) CURR10 Y < /80! LDK A2,/7F RF CURR15 CURR10 EQU * SRL A2,8 SHIFT RIGHT CURR15 EQU * CF A5,OUTPUT OUTPUT LINE(Y) RTN A5 EJECT * =2 * =2 * =2 * ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 * =2 * =2 * AT ENTRY A4 = CHAR TO ERASE FROM USER =2 * AT EXIT A4 = CHAR TO END OF SCREEN =2 * =2 ERA EQU * =2 LD A2,DWTPOS+DWTDEV,A6 MAX CHAR. =2 ANK A2,/FF GET MAX CHAR. =2 LC A3,DWTAP+DWTDEV+1,A6 CURRENT POS. ON SCREEN =2 ANK A3,/FF =2 SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 ADK A2,1 ADJUST LENGTH =2 CWR A4,A2 OUTSIDE SCREEN =2 RF(L) ERAEND NO =2 LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 LDKL A3,/FFFF SET OVER =4 ERAEND EQU * END SUBROUTINE =2 RTN A5 RETURN =2 ABDY EQU * CF A15,UPDAPP UPDATE CURSOR POSITION =5 RTN A15 RETURN TO ABORT ROUTINE =5 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDY01 REL 11.0 81-01-26 870105041100 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0064 Head {h00=0x0022, h01=0x0050, text=» =7,ADAPTED TO NEW INTERFACE«, t00=0x0000, t01=0x0042}
0x0064…0080 Head {h00=0x0018, h01=0x0050, text=» REL 10.1 79-11-07«, t00=0x0000, t01=0x0068}
0x0080…00b8 Head {h00=0x0034, h01=0x0050, text=» =6,CORRECTION OF SPECIAL CHARTACTER HANDLING «, t00=0x0000, t01=0x0084}
0x00b8…00d4 Head {h00=0x0018, h01=0x0050, text=» REL 10.1 79-10-19«, t00=0x0000, t01=0x00bc}
0x00d4…00f0 Head {h00=0x0018, h01=0x0050, text=» =5,ABORT ROUTINE «, t00=0x0000, t01=0x00d8}
0x00f0…010c Head {h00=0x0018, h01=0x0050, text=» REL 10.1 79-10-15«, t00=0x0000, t01=0x00f4}
0x010c…012e Head {h00=0x001e, h01=0x0050, text=» =4,CORRECTION OF ERASE «, t00=0x0000, t01=0x0110}
0x012e…014a Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x0132}
0x014a…0178 Head {h00=0x002a, h01=0x0050, text=» =3,STEADY CURSOR PROBLEM CORRECTED «, t00=0x0000, t01=0x014e}
0x0178…0194 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-06 «, t00=0x0000, t01=0x017c}
0x0194…01c4 Head {h00=0x002c, h01=0x0050, text=» =2,ERASE ONLY TO LAST POS. OF SCREEN «, t00=0x0001, t01=0x0008}
0x01c4…01e0 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-31 «, t00=0x0001, t01=0x0038}
0x01e0…0212 Head {h00=0x002e, h01=0x0050, text=» =1 DRIVER ADAPTAD TO HANDLE PTS 6385 «, t00=0x0001, t01=0x0054}
0x0212…022e Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-12 «, t00=0x0001, t01=0x0086}
0x022e…0236 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00a2}
0x0236…0240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00aa}
0x0240…027a Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x00b4}
0x027a…0284 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ee}
0x0284…02ac Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x00f8}
0x02ac…02b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0120}
0x02b6…02ec Head {h00=0x0032, h01=0x0050, text=»* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY «, t00=0x0001, t01=0x012a}
0x02ec…02f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0160}
0x02f6…0300 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016a}
0x0300…030a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0174}
0x030a…0314 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x017e}
0x0314…031e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0188}
0x031e…0328 (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x0328…0362 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x000e}
0x0362…036c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0048}
0x036c…0376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0052}
0x0376…03b4 Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS «, t00=0x0002, t01=0x005c}
0x03b4…03f8 Head {h00=0x0040, h01=0x0050, text=»* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 «, t00=0x0002, t01=0x009a}
0x03f8…0412 Head {h00=0x0016, h01=0x0050, text=»* AND PTS 6386 «, t00=0x0002, t01=0x00de}
0x0412…044c Head {h00=0x0036, h01=0x0050, text=»* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM «, t00=0x0002, t01=0x00f8}
0x044c…046a Head {h00=0x001a, h01=0x0050, text=»* VIA CHLT OR CHRT.«, t00=0x0002, t01=0x0132}
0x046a…0474 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0150}
0x0474…04b4 Head {h00=0x003c, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS«, t00=0x0002, t01=0x015a}
0x04b4…04f2 Head {h00=0x003a, h01=0x0050, text=»* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN «, t00=0x0003, t01=0x000a}
0x04f2…0530 Head {h00=0x003a, h01=0x0050, text=»* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE «, t00=0x0003, t01=0x0048}
0x0530…055c Head {h00=0x0028, h01=0x0050, text=»* GENERAL KEYBOARD DRIVER DRKB01.«, t00=0x0003, t01=0x0086}
0x055c…0566 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00b2}
0x0566…0570 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00bc}
0x0570…05a4 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0003, t01=0x00c6}
0x05a4…05ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00fa}
0x05ae…05d8 Head {h00=0x0026, h01=0x0050, text=»* A C D Y ACTIVATION PART«, t00=0x0003, t01=0x0104}
0x05d8…05e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x012e}
0x05e2…060e Head {h00=0x0028, h01=0x0050, text=»* I H D Y INTERRUPT HANDLER«, t00=0x0003, t01=0x0138}
0x060e…0618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0164}
0x0618…0644 Head {h00=0x0028, h01=0x0050, text=»* R C D Y RECOVERY ROUTINE «, t00=0x0003, t01=0x016e}
0x0644…064e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x000a}
0x064e…0678 Head {h00=0x0026, h01=0x0050, text=»* E C H O D Y ECHO FUNCTIONS «, t00=0x0004, t01=0x0014}
0x0678…0682 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x003e}
0x0682…068a Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0048}
0x068a…0692 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0050}
0x0692…069a Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0058}
0x069a…06a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0060}
0x06a4…06d2 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0004, t01=0x006a}
0x06d2…06dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0098}
0x06dc…06fe Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0004, t01=0x00a2}
0x06fe…0720 Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0004, t01=0x00c4}
0x0720…0746 Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0004, t01=0x00e6}
0x0746…0772 Head {h00=0x0028, h01=0x0050, text=»* 07: WRITE GRAPHIC DISPLAY«, t00=0x0004, t01=0x010c}
0x0772…079c Head {h00=0x0026, h01=0x0050, text=»* 0B: CURSOR POSITIONING «, t00=0x0004, t01=0x0138}
0x079c…07b8 Head {h00=0x0018, h01=0x0050, text=»* 31: ERASE«, t00=0x0004, t01=0x0162}
0x07b8…07c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x017e}
0x07c2…07e4 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0004, t01=0x0188}
0x07e4…07ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x001a}
0x07ee…0814 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0005, t01=0x0024}
0x0814…0840 Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0005, t01=0x004a}
0x0840…0868 Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0005, t01=0x0076}
0x0868…0890 Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0005, t01=0x009e}
0x0890…08b6 Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0005, t01=0x00c6}
0x08b6…08dc Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0005, t01=0x00ec}
0x08dc…08fc Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0005, t01=0x0112}
0x08fc…0922 Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0005, t01=0x0132}
0x0922…092c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0158}
0x092c…093a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x0162}
0x093a…0944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0170}
0x0944…094e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017a}
0x094e…096c Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0005, t01=0x0184}
0x096c…0976 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0012}
0x0976…09b6 Head {h00=0x003c, h01=0x0050, text=»* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. «, t00=0x0006, t01=0x001c}
0x09b6…09c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005c}
0x09c0…09ee Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x0066}
0x09ee…0a08 Head {h00=0x0016, h01=0x0050, text=»* BIT: 10 11«, t00=0x0006, t01=0x0094}
0x0a08…0a22 Head {h00=0x0016, h01=0x0050, text=»* --------------«, t00=0x0006, t01=0x00ae}
0x0a22…0a48 Head {h00=0x0022, h01=0x0050, text=»* 0 0 PTS 6344«, t00=0x0006, t01=0x00c8}
0x0a48…0a76 Head {h00=0x002a, h01=0x0050, text=»* 0 1 PTS 6351 & 6342 «, t00=0x0006, t01=0x00ee}
0x0a76…0aa4 Head {h00=0x002a, h01=0x0050, text=»* 1 0 PTS 6386 & 6385 «, t00=0x0006, t01=0x011c}
0x0aa4…0ad2 Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x014a}
0x0ad2…0adc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0178}
0x0adc…0b16 Head {h00=0x0036, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0006, t01=0x0182}
0x0b16…0b4e Head {h00=0x0034, h01=0x0050, text=»* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT «, t00=0x0007, t01=0x002c}
0x0b4e…0b7e Head {h00=0x002c, h01=0x0050, text=»* -IS ADAPTED TO CONTROL ONLY PTS 6344«, t00=0x0007, t01=0x0064}
0x0b7e…0bbc Head {h00=0x003a, h01=0x0050, text=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7«, t00=0x0007, t01=0x0094}
0x0bbc…0bf8 Head {h00=0x0038, h01=0x0050, text=»* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x00d2}
0x0bf8…0c22 Head {h00=0x0026, h01=0x0050, text=»* -CAN SUPPRESS TRAILING BLANKS «, t00=0x0007, t01=0x010e}
0x0c22…0c6c Head {h00=0x0046, h01=0x0050, text=»* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)«, t00=0x0007, t01=0x0138}
0x0c6c…0c7a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x0182}
0x0c7a…0c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0190}
0x0c84…0c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x000a}
0x0c8e…0c98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0014}
0x0c98…0ca2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x001e}
0x0ca2…0cb6 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0028}
0x0cb6…0cca Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x003c}
0x0cca…0cde Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0050}
0x0cde…0ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0064}
0x0ce8…0cf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006e}
0x0cf2…0cfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0078}
0x0cfc…0d28 Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0008, t01=0x0082}
0x0d28…0d5c Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x00ae}
0x0d5c…0d66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00e2}
0x0d66…0d70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ec}
0x0d70…0d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f6}
0x0d7a…0d84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0100}
0x0d84…0db6 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x010a}
0x0db6…0de8 Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0008, t01=0x013c}
0x0de8…0e1a Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x016e}
0x0e1a…0e24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0010}
0x0e24…0e2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001a}
0x0e2e…0e58 Head {h00=0x0026, h01=0x0050, text=» EXTRN LENDER I/O REQUEST ERROR =7«, t00=0x0009, t01=0x0024}
0x0e58…0e8a Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0009, t01=0x004e}
0x0e8a…0eac Head {h00=0x001e, h01=0x0050, text=» EXTRN LDISP DISPATCHER =7«, t00=0x0009, t01=0x0080}
0x0eac…0ede Head {h00=0x002e, h01=0x0050, text=» EXTRN NDGET8 RELOAD REGISTERS AND RETURN «, t00=0x0009, t01=0x00a2}
0x0ede…0efc Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x00d4}
0x0efc…0f30 Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0009, t01=0x00f2}
0x0f30…0f64 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x0126}
0x0f64…0f8c Head {h00=0x0024, h01=0x0050, text=» EXTRN STABLK START OF BLOCK =7 «, t00=0x0009, t01=0x015a}
0x0f8c…0fba Head {h00=0x002a, h01=0x0050, text=» EXTRN ENDBLK DEFINES END OF BLOCK =7 «, t00=0x0009, t01=0x0182}
0x0fba…0fc8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0020}
0x0fc8…0fd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x002e}
0x0fd2…0ff2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0038}
0x0ff2…1012 Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x000a, t01=0x0058}
0x1012…1032 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x0078}
0x1032…103c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0098}
0x103c…1058 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x00a2}
0x1058…1072 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x00be}
0x1072…1088 Head {h00=0x0012, h01=0x0050, text=» EXTRN DWTDEV «, t00=0x000a, t01=0x00d8}
0x1088…1092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ee}
0x1092…10a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00f8}
0x10a0…10b6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0106}
0x10b6…10cc Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x011c}
0x10cc…10e2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0132}
0x10e2…10ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0148}
0x10ec…110e Head {h00=0x001e, h01=0x0050, text=»FASTO EQU /14 FAST OUTPUT «, t00=0x000a, t01=0x0152}
0x110e…1136 Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000a, t01=0x0174}
0x1136…115c Head {h00=0x0022, h01=0x0050, text=»ULSTAR EQU /12 UNDERLINE START«, t00=0x000b, t01=0x000c}
0x115c…1182 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000b, t01=0x0032}
0x1182…11ac Head {h00=0x0026, h01=0x0050, text=»LISTAR EQU /1E LOW INTENSITY START«, t00=0x000b, t01=0x0058}
0x11ac…11d6 Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000b, t01=0x0082}
0x11d6…11f6 Head {h00=0x001c, h01=0x0050, text=»BACKSP EQU /08 BACKSPACE«, t00=0x000b, t01=0x00ac}
0x11f6…1212 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x00cc}
0x1212…1232 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000b, t01=0x00e8}
0x1232…125e Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000b, t01=0x0108}
0x125e…1280 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x0134}
0x1280…12a4 Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000b, t01=0x0156}
0x12a4…12c0 Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x017a}
0x12c0…12e4 Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000c, t01=0x0008}
0x12e4…1306 Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000c, t01=0x002c}
0x1306…1324 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000c, t01=0x004e}
0x1324…1356 Head {h00=0x002e, h01=0x0050, text=»RETURN EQU /12 RETURN TO ALPHANUMERIC MODE«, t00=0x000c, t01=0x006c}
0x1356…1384 Head {h00=0x002a, h01=0x0050, text=»ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE «, t00=0x000c, t01=0x009e}
0x1384…13aa Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x000c, t01=0x00cc}
0x13aa…13e0 Head {h00=0x0032, h01=0x0050, text=»EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT «, t00=0x000c, t01=0x00f2}
0x13e0…1404 Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000c, t01=0x0128}
0x1404…142c Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x000c, t01=0x014c}
0x142c…1436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0174}
0x1436…1452 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x017e}
0x1452…146e Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x000d, t01=0x000a}
0x146e…148a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0026}
0x148a…1494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0042}
0x1494…14ba Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000d, t01=0x004c}
0x14ba…14e6 Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000d, t01=0x0072}
0x14e6…14f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009e}
0x14f0…14fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00a8}
0x14fe…1508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b6}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c0}
0x1512…1544 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x00ca}
0x1544…1576 Head {h00=0x002e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000d, t01=0x00fc}
0x1576…15a8 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x012e}
0x15a8…15b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b2…15bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016a}
0x15bc…1608 Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 «, t00=0x000d, t01=0x0174}
0x1608…1612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0030}
0x1612…1624 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000e, t01=0x003a}
0x1624…163a Head {h00=0x0012, h01=0x0050, text=»GRAFIC EQU X:A«, t00=0x000e, t01=0x004c}
0x163a…1644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0062}
0x1644…1684 Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000e, t01=0x006c}
0x1684…168e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ac}
0x168e…16a0 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x00b6}
0x16a0…16b6 Head {h00=0x0012, h01=0x0050, text=»WHATDY EQU X:B«, t00=0x000e, t01=0x00c8}
0x16b6…16c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00de}
0x16c0…16ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e8}
0x16ca…1706 Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x00f2}
0x1706…1730 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x012e}
0x1730…1742 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x0158}
0x1742…1758 Head {h00=0x0012, h01=0x0050, text=»LOWCHA EQU X:C«, t00=0x000e, t01=0x016a}
0x1758…1762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0180}
0x1762…176c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018a}
0x176c…17a8 (15, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000f, t01=0x0004}
0x17a8…17e4 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000f, t01=0x0040}
0x17e4…1820 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000f, t01=0x007c}
0x1820…182a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x182a…183c Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x00c2}
0x183c…1852 Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:D«, t00=0x000f, t01=0x00d4}
0x1852…185c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ea}
0x185c…1890 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x00f4}
0x1890…18d4 Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x0128}
0x18d4…18de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016c}
0x18de…18f0 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x0176}
0x18f0…1906 Head {h00=0x0012, h01=0x0050, text=»TRASPA EQU X:E«, t00=0x000f, t01=0x0188}
0x1906…1914 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x000e}
0x1914…191e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001c}
0x191e…1954 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x0010, t01=0x0026}
0x1954…1974 Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x0010, t01=0x005c}
0x1974…1986 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x0010, t01=0x007c}
0x1986…199c Head {h00=0x0012, h01=0x0050, text=»STEADY EQU X:F«, t00=0x0010, t01=0x008e}
0x199c…19a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a4}
0x19a6…19e6 Head {h00=0x003c, h01=0x0050, text=»* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT«, t00=0x0010, t01=0x00ae}
0x19e6…1a08 Head {h00=0x001e, h01=0x0050, text=»* BY SETTING MMUPAG = 1 «, t00=0x0010, t01=0x00ee}
0x1a08…1a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a12…1a26 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0010, t01=0x011a}
0x1a26…1a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012e}
0x1a30…1a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a3a…1a74 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x0142}
0x1a74…1aa6 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x017c}
0x1aa6…1ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1ab0…1ac4 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0011, t01=0x0028}
0x1ac4…1ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003c}
0x1ace…1b0a Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0011, t01=0x0046}
0x1b0a…1b4a Head {h00=0x003c, h01=0x0050, text=»* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.«, t00=0x0011, t01=0x0082}
0x1b4a…1b52 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00c2}
0x1b52…1b5a Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00ca}
0x1b5a…1b70 Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x0011, t01=0x00d2}
0x1b70…1b78 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00e8}
0x1b78…1b8c Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x0011, t01=0x00f0}
0x1b8c…1ba0 Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0011, t01=0x0104}
0x1ba0…1bb4 Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0011, t01=0x0118}
0x1bb4…1bc2 Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0011, t01=0x012c}
0x1bc2…1bd2 Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0011, t01=0x013a}
0x1bd2…1be2 Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0011, t01=0x014a}
0x1be2…1bf2 Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0011, t01=0x015a}
0x1bf2…1c00 Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0011, t01=0x016a}
0x1c00…1c0e Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0011, t01=0x0178}
0x1c0e…1c1c Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0011, t01=0x0186}
0x1c1c…1c2e (18, 0, 400) Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0012, t01=0x0004}
0x1c2e…1c46 Head {h00=0x0014, h01=0x0050, text=»COUNTRY EQU X:G «, t00=0x0012, t01=0x0016}
0x1c46…1c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c50…1c7a Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0012, t01=0x0038}
0x1c7a…1c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0062}
0x1c84…1c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006c}
0x1c8e…1ca0 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 64«, t00=0x0012, t01=0x0076}
0x1ca0…1cb6 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x0012, t01=0x0088}
0x1cb6…1cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x1cc0…1cce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00a8}
0x1cce…1cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b6}
0x1cd8…1ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c0}
0x1ce2…1d0a Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x00ca}
0x1d0a…1d32 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0012, t01=0x00f2}
0x1d32…1d5a Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x011a}
0x1d5a…1d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0142}
0x1d64…1d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014c}
0x1d6e…1da2 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x0156}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1dac…1dc2 (19, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0004}
0x1dc2…1dda Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x001a}
0x1dda…1de6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0032}
0x1de6…1df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1df0…1e06 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x0048}
0x1e06…1e20 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x005e}
0x1e20…1e2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0078}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0084}
0x1e36…1e60 Head {h00=0x0026, h01=0x0050, text=»DWTAP EQU /2 HEAD POSITION POINTER«, t00=0x0013, t01=0x008e}
0x1e60…1e80 Head {h00=0x001c, h01=0x0050, text=»DWTPOS EQU /7 POSITIONS «, t00=0x0013, t01=0x00b8}
0x1e80…1e9c Head {h00=0x0018, h01=0x0050, text=»DWTLIN EQU /6 LINES «, t00=0x0013, t01=0x00d8}
0x1e9c…1ec0 Head {h00=0x0020, h01=0x0050, text=»DWTBIN EQU /8 BUFFER INDERX «, t00=0x0013, t01=0x00f4}
0x1ec0…1ee6 Head {h00=0x0022, h01=0x0050, text=»DWTPOC EQU /A POSITION COUNTER«, t00=0x0013, t01=0x0118}
0x1ee6…1f08 Head {h00=0x001e, h01=0x0050, text=»DWTBC EQU /B BYTE COUNTER «, t00=0x0013, t01=0x013e}
0x1f08…1f2a Head {h00=0x001e, h01=0x0050, text=»BLKSI EQU /50 BLOCK LENGTH«, t00=0x0013, t01=0x0160}
0x1f2a…1f34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0182}
0x1f34…1f42 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x018c}
0x1f42…1f4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000a}
0x1f4c…1f56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0014}
0x1f56…1f68 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x001e}
0x1f68…1f7a Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0014, t01=0x0030}
0x1f7a…1f8c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0042}
0x1f8c…1f96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0054}
0x1f96…1fa0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x005e}
0x1fa0…1fc2 Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0014, t01=0x0068}
0x1fc2…1fde Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0014, t01=0x008a}
0x1fde…1ffe Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0014, t01=0x00a6}
0x1ffe…2022 Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0014, t01=0x00c6}
0x2022…204a Head {h00=0x0024, h01=0x0050, text=» DATA ABDY ABORT ROUTINE ADDRESS«, t00=0x0014, t01=0x00ea}
0x204a…206e Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0014, t01=0x0112}
0x206e…2092 Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0014, t01=0x0136}
0x2092…20c4 Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x015a}
0x20c4…20ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x018c}
0x20ce…20d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0008}
0x20d8…2108 Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0015, t01=0x0012}
0x2108…2128 Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0015, t01=0x0042}
0x2128…2136 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0062}
0x2136…2140 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0070}
0x2140…2154 Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0015, t01=0x007a}
0x2154…215e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x008e}
0x215e…218c Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0015, t01=0x0098}
0x218c…2196 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00c6}
0x2196…21e2 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0015, t01=0x00d0}
0x21e2…2218 Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0015, t01=0x011c}
0x2218…2222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0152}
0x2222…222c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x015c}
0x222c…226e Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0015, t01=0x0166}
0x226e…22a8 Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0016, t01=0x0018}
0x22a8…22b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0052}
0x22b2…22fc Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0016, t01=0x005c}
0x22fc…233c Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0016, t01=0x00a6}
0x233c…2346 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00e6}
0x2346…2396 Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0016, t01=0x00f0}
0x2396…23e4 Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0016, t01=0x0140}
0x23e4…242e Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0016, t01=0x018e}
0x242e…2438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0048}
0x2438…244e Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0017, t01=0x0052}
0x244e…2494 Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0017, t01=0x0068}
0x2494…24d8 Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0017, t01=0x00ae}
0x24d8…2506 Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0017, t01=0x00f2}
0x2506…2510 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0120}
0x2510…251c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x012a}
0x251c…255a Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0017, t01=0x0136}
0x255a…259a Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0017, t01=0x0174}
0x259a…25dc Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0018, t01=0x0024}
0x25dc…2620 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0018, t01=0x0066}
0x2620…2644 Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0018, t01=0x00aa}
0x2644…264e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x00ce}
0x264e…268e Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0018, t01=0x00d8}
0x268e…26ce Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0018, t01=0x0118}
0x26ce…2712 Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0018, t01=0x0158}
0x2712…2756 Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0019, t01=0x000c}
0x2756…2794 Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0019, t01=0x0050}
0x2794…27c2 Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0019, t01=0x008e}
0x27c2…27d4 Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0019, t01=0x00bc}
0x27d4…27f8 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0019, t01=0x00ce}
0x27f8…2812 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0019, t01=0x00f2}
0x2812…283a Head {h00=0x0024, h01=0x0050, text=» LDK A2,BLKSI MAX BLOCK SIZE =7 «, t00=0x0019, t01=0x010c}
0x283a…285e Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START BLOCK =7«, t00=0x0019, t01=0x0134}
0x285e…287a Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0019, t01=0x0158}
0x287a…2894 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0019, t01=0x0174}
0x2894…28aa Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x018e}
0x28aa…28d4 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET PARAMETER =7 «, t00=0x001a, t01=0x0014}
0x28d4…28fe Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/1000 GRAPHIC DISPLAY =7 «, t00=0x001a, t01=0x003e}
0x28fe…2916 Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x001a, t01=0x0068}
0x2916…292c Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x001a, t01=0x0080}
0x292c…2948 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x001a, t01=0x0096}
0x2948…295e Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x001a, t01=0x00b2}
0x295e…296a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00c8}
0x296a…2980 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001a, t01=0x00d4}
0x2980…29a8 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =7 «, t00=0x001a, t01=0x00ea}
0x29a8…29da Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x001a, t01=0x0112}
0x29da…29f0 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x0144}
0x29f0…2a16 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =7 «, t00=0x001a, t01=0x015a}
0x2a16…2a20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0180}
0x2a20…2a2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x018a}
0x2a2c…2a36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0008}
0x2a36…2a4a Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x001b, t01=0x0012}
0x2a4a…2a64 Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x001b, t01=0x0026}
0x2a64…2a7e Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x001b, t01=0x0040}
0x2a7e…2a9e Head {h00=0x001c, h01=0x0050, text=» CWK A7,6 ORDER 6 ??? =7«, t00=0x001b, t01=0x005a}
0x2a9e…2ab8 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x001b, t01=0x007a}
0x2ab8…2ada Head {h00=0x001e, h01=0x0050, text=» CWK A7,/B ORDER B(!!) =7 «, t00=0x001b, t01=0x0094}
0x2ada…2af4 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x001b, t01=0x00b6}
0x2af4…2b18 Head {h00=0x0020, h01=0x0050, text=» CWK A7,/31 ORDER /31 ? =7«, t00=0x001b, t01=0x00d0}
0x2b18…2b32 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x001b, t01=0x00f4}
0x2b32…2b58 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =7 «, t00=0x001b, t01=0x010e}
0x2b58…2b62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0134}
0x2b62…2b8c Head {h00=0x0026, h01=0x0050, text=»DYERR ABL LENDER I/O REQUEST ERROR«, t00=0x001b, t01=0x013e}
0x2b8c…2b9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0168}
0x2b9a…2bd8 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x001b, t01=0x0176}
0x2bd8…2bf6 Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x001c, t01=0x0024}
0x2bf6…2c2a Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x001c, t01=0x0042}
0x2c2a…2c50 Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x001c, t01=0x0076}
0x2c50…2c96 Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x001c, t01=0x009c}
0x2c96…2cb8 Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x001c, t01=0x00e2}
0x2cb8…2cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0104}
0x2cc2…2cd6 Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x001c, t01=0x010e}
0x2cd6…2cfe Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x001c, t01=0x0122}
0x2cfe…2d14 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x001c, t01=0x014a}
0x2d14…2d38 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001c, t01=0x0160}
0x2d38…2d5e Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x001c, t01=0x0184}
0x2d5e…2d88 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001d, t01=0x001a}
0x2d88…2d9c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001d, t01=0x0044}
0x2d9c…2db0 Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x001d, t01=0x0058}
0x2db0…2dde Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x001d, t01=0x006c}
0x2dde…2df4 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x001d, t01=0x009a}
0x2df4…2e0c Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x001d, t01=0x00b0}
0x2e0c…2e22 Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x001d, t01=0x00c8}
0x2e22…2e46 Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x001d, t01=0x00de}
0x2e46…2e6c Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x001d, t01=0x0102}
0x2e6c…2e82 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x001d, t01=0x0128}
0x2e82…2eae Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x001d, t01=0x013e}
0x2eae…2eb6 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x016a}
0x2eb6…2ebe Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0172}
0x2ebe…2ee6 Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x001d, t01=0x017a}
0x2ee6…2efe Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x001e, t01=0x0012}
0x2efe…2f3a Head {h00=0x0038, h01=0x0050, text=» SC A1,DWTAP+DWTDEV+1,A6 RESET HEAD POSITION COUNTER«, t00=0x001e, t01=0x002a}
0x2f3a…2f76 Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x001e, t01=0x0066}
0x2f76…2f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00a2}
0x2f80…2f94 Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x001e, t01=0x00ac}
0x2f94…2fb8 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001e, t01=0x00c0}
0x2fb8…2fd0 Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x001e, t01=0x00e4}
0x2fd0…2ffa Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001e, t01=0x00fc}
0x2ffa…3020 Head {h00=0x0022, h01=0x0050, text=» LC A1,DWTLIN+DWTDEV,A6 LINES «, t00=0x001e, t01=0x0126}
0x3020…304a Head {h00=0x0026, h01=0x0050, text=» CC A1,DWTAP+DWTDEV,A6 LAST LINE ?«, t00=0x001e, t01=0x014c}
0x304a…3060 Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001e, t01=0x0176}
0x3060…308c Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001e, t01=0x018c}
0x308c…30ac Head {h00=0x001c, h01=0x0050, text=» ADS A2,DWTAP+DWTDEV,A6 «, t00=0x001f, t01=0x0028}
0x30ac…30d6 Head {h00=0x0026, h01=0x0050, text=»ACDY55 LDK A2,LF LINE FEED TO SEND«, t00=0x001f, t01=0x0048}
0x30d6…30e8 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001f, t01=0x0072}
0x30e8…3114 Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001f, t01=0x0084}
0x3114…3126 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001f, t01=0x00b0}
0x3126…3158 Head {h00=0x002e, h01=0x0050, text=» SC A1,DWTAP+DWTDEV,A6 RESET LINE COUNTER «, t00=0x001f, t01=0x00c2}
0x3158…316a Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001f, t01=0x00f4}
0x316a…3178 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x0106}
0x3178…3182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0114}
0x3182…31ac Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001f, t01=0x011e}
0x31ac…31ce Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001f, t01=0x0148}
0x31ce…31d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x016a}
0x31d8…31ec Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001f, t01=0x0174}
0x31ec…3202 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001f, t01=0x0188}
0x3202…322c Head {h00=0x0026, h01=0x0050, text=» LD A4,DWTDEV,A6 GET PARAMETER =7 «, t00=0x0020, t01=0x000e}
0x322c…3258 Head {h00=0x0028, h01=0x0050, text=» ANKL A4,/1000 NOT 6344 OR 67386 =7 «, t00=0x0020, t01=0x0038}
0x3258…3280 Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x0020, t01=0x0064}
0x3280…328c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0020, t01=0x008c}
0x328c…32a0 Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x0020, t01=0x0098}
0x32a0…32d6 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x0020, t01=0x00ac}
0x32d6…32fe Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x0020, t01=0x00e2}
0x32fe…3318 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x0020, t01=0x010a}
0x3318…332c Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x0020, t01=0x0124}
0x332c…3342 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0020, t01=0x0138}
0x3342…3378 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0020, t01=0x014e}
0x3378…338e Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0020, t01=0x0184}
0x338e…33ba Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0021, t01=0x000a}
0x33ba…33e6 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0021, t01=0x0036}
0x33e6…340e Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0021, t01=0x0062}
0x340e…3426 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0021, t01=0x008a}
0x3426…3444 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0021, t01=0x00a2}
0x3444…345e Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0021, t01=0x00c0}
0x345e…347a Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0021, t01=0x00da}
0x347a…3498 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0021, t01=0x00f6}
0x3498…34b2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0021, t01=0x0114}
0x34b2…34d2 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0021, t01=0x012e}
0x34d2…34ee Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0021, t01=0x014e}
0x34ee…3506 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0021, t01=0x016a}
0x3506…3524 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0021, t01=0x0182}
0x3524…3542 Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0022, t01=0x0010}
0x3542…356a Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0022, t01=0x002e}
0x356a…3584 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x0022, t01=0x0056}
0x3584…359e Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0022, t01=0x0070}
0x359e…35b8 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0022, t01=0x008a}
0x35b8…35d4 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0022, t01=0x00a4}
0x35d4…3600 Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x0022, t01=0x00c0}
0x3600…3614 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0022, t01=0x00ec}
0x3614…363a Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x0022, t01=0x0100}
0x363a…365e Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x0022, t01=0x0126}
0x365e…3680 Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x0022, t01=0x014a}
0x3680…369a Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x016c}
0x369a…36ba Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x0022, t01=0x0186}
0x36ba…36d4 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0023, t01=0x0016}
0x36d4…36de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0023, t01=0x0030}
0x36de…3704 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0023, t01=0x003a}
0x3704…3710 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0023, t01=0x0060}
0x3710…3728 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x0023, t01=0x006c}
0x3728…3762 Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0023, t01=0x0084}
0x3762…3784 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0023, t01=0x00be}
0x3784…379c Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x0023, t01=0x00e0}
0x379c…37bc Head {h00=0x001c, h01=0x0050, text=» CWK A7,5 ORDER 5 ? =7 «, t00=0x0023, t01=0x00f8}
0x37bc…37d2 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x0023, t01=0x0118}
0x37d2…37e6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0023, t01=0x012e}
0x37e6…380a Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x0023, t01=0x0142}
0x380a…3830 Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x0023, t01=0x0166}
0x3830…3846 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x0023, t01=0x018c}
0x3846…385c Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x0024, t01=0x0012}
0x385c…3882 Head {h00=0x0022, h01=0x0050, text=» STR A7,A5 SAVE A7 ON STACK =7«, t00=0x0024, t01=0x0028}
0x3882…38a8 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0024, t01=0x004e}
0x38a8…38cc Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x0024, t01=0x0074}
0x38cc…38e4 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x0024, t01=0x0098}
0x38e4…3906 Head {h00=0x001e, h01=0x0050, text=» LDK A1,5 SET TABLE PONTER«, t00=0x0024, t01=0x00b0}
0x3906…391a Head {h00=0x0010, h01=0x0050, text=»ADY110 EQU *«, t00=0x0024, t01=0x00d2}
0x391a…3942 Head {h00=0x0024, h01=0x0050, text=» LDR* A7,A5 GET A7 FROM STACK =7«, t00=0x0024, t01=0x00e6}
0x3942…396a Head {h00=0x0024, h01=0x0050, text=» CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x0024, t01=0x010e}
0x396a…3980 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x0024, t01=0x0136}
0x3980…39a6 Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x0024, t01=0x014c}
0x39a6…39c0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x0024, t01=0x0172}
0x39c0…39d4 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0024, t01=0x018c}
0x39d4…39e8 Head {h00=0x0010, h01=0x0050, text=»ADY120 EQU *«, t00=0x0025, t01=0x0010}
0x39e8…3a1c Head {h00=0x0030, h01=0x0050, text=» ORS A4,DWTDEV,A6 SET LOW INTENSITY MODE =7 «, t00=0x0025, t01=0x0024}
0x3a1c…3a2e Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0025, t01=0x0058}
0x3a2e…3a40 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0025, t01=0x006a}
0x3a40…3a68 Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0025, t01=0x007c}
0x3a68…3a7e Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0025, t01=0x00a4}
0x3a7e…3aa4 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0025, t01=0x00ba}
0x3aa4…3ab6 Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0025, t01=0x00e0}
0x3ab6…3ae0 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0025, t01=0x00f2}
0x3ae0…3af2 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0025, t01=0x011c}
0x3af2…3b0c Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0025, t01=0x012e}
0x3b0c…3b1e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0025, t01=0x0148}
0x3b1e…3b4a Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0025, t01=0x015a}
0x3b4a…3b5c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0025, t01=0x0186}
0x3b5c…3b6e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0026, t01=0x0008}
0x3b6e…3b8c Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0026, t01=0x001a}
0x3b8c…3bae Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0026, t01=0x0038}
0x3bae…3bc8 Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0026, t01=0x005a}
0x3bc8…3bd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0074}
0x3bd2…3be8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0026, t01=0x007e}
0x3be8…3c12 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0026, t01=0x0094}
0x3c12…3c26 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0026, t01=0x00be}
0x3c26…3c5c Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0026, t01=0x00d2}
0x3c5c…3c68 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0108}
0x3c68…3c7e Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0026, t01=0x0114}
0x3c7e…3c94 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0026, t01=0x012a}
0x3c94…3ca8 Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0026, t01=0x0140}
0x3ca8…3ccc Head {h00=0x0020, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER =7«, t00=0x0026, t01=0x0154}
0x3ccc…3cec Head {h00=0x001c, h01=0x0050, text=» ANK A7,/FF GET ORDER =7«, t00=0x0026, t01=0x0178}
0x3cec…3d0a Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0027, t01=0x0008}
0x3d0a…3d28 Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0027, t01=0x0026}
0x3d28…3d3c Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0027, t01=0x0044}
0x3d3c…3d50 Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0027, t01=0x0058}
0x3d50…3d6a Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0027, t01=0x006c}
0x3d6a…3d8c Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0027, t01=0x0086}
0x3d8c…3dae Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0027, t01=0x00a8}
0x3dae…3dd2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0027, t01=0x00ca}
0x3dd2…3de8 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0027, t01=0x00ee}
0x3de8…3e0a Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0027, t01=0x0104}
0x3e0a…3e30 Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0027, t01=0x0126}
0x3e30…3e54 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0027, t01=0x014c}
0x3e54…3e6c Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ACDY70 «, t00=0x0027, t01=0x0170}
0x3e6c…3e82 Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0027, t01=0x0188}
0x3e82…3ebc Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0028, t01=0x000e}
0x3ebc…3ee6 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0028, t01=0x0048}
0x3ee6…3ef2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0028, t01=0x0072}
0x3ef2…3f04 Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0028, t01=0x007e}
0x3f04…3f0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x0090}
0x3f0e…3f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0028, t01=0x009a}
0x3f18…3f2e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0028, t01=0x00a4}
0x3f2e…3f42 Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0028, t01=0x00ba}
0x3f42…3f62 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0028, t01=0x00ce}
0x3f62…3f76 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0028, t01=0x00ee}
0x3f76…3f8e Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0028, t01=0x0102}
0x3f8e…3fa4 Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0028, t01=0x011a}
0x3fa4…3fc4 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0028, t01=0x0130}
0x3fc4…3fe2 Head {h00=0x001a, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6«, t00=0x0028, t01=0x0150}
0x3fe2…400e Head {h00=0x0028, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 GET POSITION «, t00=0x0028, t01=0x016e}
0x400e…4022 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0029, t01=0x000a}
0x4022…404a Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0029, t01=0x001e}
0x404a…407a Head {h00=0x002c, h01=0x0050, text=» LD A3,DWTPOS+DWTDEV,A6 GET MAX-POS AND «, t00=0x0029, t01=0x0046}
0x407a…408e Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0029, t01=0x0076}
0x408e…40ae Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0029, t01=0x008a}
0x40ae…40c8 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0029, t01=0x00aa}
0x40c8…40e8 Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0029, t01=0x00c4}
0x40e8…40fa Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0029, t01=0x00e4}
0x40fa…411a Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0029, t01=0x00f6}
0x411a…414e Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0029, t01=0x0116}
0x414e…4162 Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0029, t01=0x014a}
0x4162…418c Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0029, t01=0x015e}
0x418c…41a4 Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0029, t01=0x0188}
0x41a4…41cc Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x002a, t01=0x0010}
0x41cc…41f0 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x002a, t01=0x0038}
0x41f0…4204 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x002a, t01=0x005c}
0x4204…4228 Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x002a, t01=0x0070}
0x4228…4244 Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x002a, t01=0x0094}
0x4244…4268 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x002a, t01=0x00b0}
0x4268…428a Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x002a, t01=0x00d4}
0x428a…429e Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x002a, t01=0x00f6}
0x429e…42b0 Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x002a, t01=0x010a}
0x42b0…42bc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002a, t01=0x011c}
0x42bc…42ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0128}
0x42ca…42d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0136}
0x42d4…42f2 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x002a, t01=0x0140}
0x42f2…42fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x015e}
0x42fc…4310 Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x002a, t01=0x0168}
0x4310…4326 Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x002a, t01=0x017c}
0x4326…4346 (43, 0, 400) Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x002b, t01=0x0004}
0x4346…4358 Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x002b, t01=0x0024}
0x4358…4366 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0036}
0x4366…4370 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0044}
0x4370…4388 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x002b, t01=0x004e}
0x4388…4392 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0066}
0x4392…43a6 Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x002b, t01=0x0070}
0x43a6…43d6 Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x002b, t01=0x0084}
0x43d6…43e8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002b, t01=0x00b4}
0x43e8…441a Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x002b, t01=0x00c6}
0x441a…442c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x002b, t01=0x00f8}
0x442c…443e Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002b, t01=0x010a}
0x443e…4454 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002b, t01=0x011c}
0x4454…4488 Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002b, t01=0x0132}
0x4488…449a Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002b, t01=0x0166}
0x449a…44b0 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002b, t01=0x0178}
0x44b0…44d6 Head {h00=0x0022, h01=0x0050, text=»ADY144 LC A4,DWTAP+DWTDEV+1,A6«, t00=0x002b, t01=0x018e}
0x44d6…4508 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002c, t01=0x0024}
0x4508…4526 Head {h00=0x001a, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6«, t00=0x002c, t01=0x0056}
0x4526…4556 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002c, t01=0x0074}
0x4556…4580 Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002c, t01=0x00a4}
0x4580…4598 Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY100 «, t00=0x002c, t01=0x00ce}
0x4598…45aa Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002c, t01=0x00e6}
0x45aa…45d4 Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002c, t01=0x00f8}
0x45d4…45f0 Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x002c, t01=0x0122}
0x45f0…4620 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002c, t01=0x013e}
0x4620…463a Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002c, t01=0x016e}
0x463a…4654 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002c, t01=0x0188}
0x4654…4668 Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x002d, t01=0x0012}
0x4668…4676 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0026}
0x4676…4680 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x0034}
0x4680…469e Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x002d, t01=0x003e}
0x469e…46a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x005c}
0x46a8…46de Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x002d, t01=0x0066}
0x46de…46f4 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002d, t01=0x009c}
0x46f4…471a Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002d, t01=0x00b2}
0x471a…473e Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002d, t01=0x00d8}
0x473e…475c Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY166 YES =2 «, t00=0x002d, t01=0x00fc}
0x475c…4768 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x011a}
0x4768…4792 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x0126}
0x4792…47a6 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x002d, t01=0x0150}
0x47a6…47c8 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x002d, t01=0x0164}
0x47c8…47dc Head {h00=0x0010, h01=0x0050, text=»ADY165 EQU *«, t00=0x002d, t01=0x0186}
0x47dc…47fe Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x002e, t01=0x000a}
0x47fe…4814 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002e, t01=0x002c}
0x4814…4830 Head {h00=0x0018, h01=0x0050, text=»ADY166 EQU * YES =2 «, t00=0x002e, t01=0x0042}
0x4830…485a Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002e, t01=0x005e}
0x485a…4864 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0088}
0x4864…488c Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x002e, t01=0x0092}
0x488c…48ae Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x002e, t01=0x00ba}
0x48ae…48c8 Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x002e, t01=0x00dc}
0x48c8…48e6 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002e, t01=0x00f6}
0x48e6…48f8 Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x002e, t01=0x0114}
0x48f8…4912 Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x002e, t01=0x0126}
0x4912…493c Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002e, t01=0x0140}
0x493c…495c Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 OVER EDGE =4 «, t00=0x002e, t01=0x016a}
0x495c…4978 Head {h00=0x0018, h01=0x0050, text=» RF(NN) ADY186 NO =4«, t00=0x002e, t01=0x018a}
0x4978…499a Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ADJUST LENGTH =4«, t00=0x002f, t01=0x0016}
0x499a…49ae Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x002f, t01=0x0038}
0x49ae…49cc Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 DECREMENT =2«, t00=0x002f, t01=0x004c}
0x49cc…49fc Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002f, t01=0x006a}
0x49fc…4a1e Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002f, t01=0x009a}
0x4a1e…4a3c Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002f, t01=0x00bc}
0x4a3c…4a54 Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002f, t01=0x00da}
0x4a54…4a60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00f2}
0x4a60…4a6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002f, t01=0x00fe}
0x4a6e…4a78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x010c}
0x4a78…4aa6 Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002f, t01=0x0116}
0x4aa6…4ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0144}
0x4ab0…4ac4 Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002f, t01=0x014e}
0x4ac4…4ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002f, t01=0x0162}
0x4ace…4ae4 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x016c}
0x4ae4…4b0a Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002f, t01=0x0182}
0x4b0a…4b2e Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x0030, t01=0x0018}
0x4b2e…4b48 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x0030, t01=0x003c}
0x4b48…4b7e Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x0030, t01=0x0056}
0x4b7e…4b8a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0030, t01=0x008c}
0x4b8a…4bb8 Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x0030, t01=0x0098}
0x4bb8…4bf0 Head {h00=0x0034, h01=0x0050, text=» ST A4,DWTAP+DWTDEV,A6 UPDATE LINE & POS COUNTER«, t00=0x0030, t01=0x00c6}
0x4bf0…4c10 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0030, t01=0x00fe}
0x4c10…4c22 Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x0030, t01=0x011e}
0x4c22…4c38 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0030, t01=0x0130}
0x4c38…4c4e Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x0030, t01=0x0146}
0x4c4e…4c7c Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x0030, t01=0x015c}
0x4c7c…4cac Head {h00=0x002c, h01=0x0050, text=» CC A4,DWTLIN+DWTDEV,A6 OUTSIDE SCREEN? «, t00=0x0030, t01=0x018a}
0x4cac…4cc6 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x0031, t01=0x002a}
0x4cc6…4d04 Head {h00=0x003a, h01=0x0050, text=» LC A4,DWTLIN+DWTDEV,A6 YES! SET CURSOR AT END OF LINE«, t00=0x0031, t01=0x0044}
0x4d04…4d18 Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x0031, t01=0x0082}
0x4d18…4d46 Head {h00=0x002a, h01=0x0050, text=» LC A3,DWTAP+DWTDEV,A6 GET ACTUAL LINE«, t00=0x0031, t01=0x0096}
0x4d46…4d5e Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x0031, t01=0x00c4}
0x4d5e…4d90 Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x0031, t01=0x00dc}
0x4d90…4db0 Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x0031, t01=0x010e}
0x4db0…4dcc Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0031, t01=0x012e}
0x4dcc…4dfa Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0031, t01=0x014a}
0x4dfa…4e1a Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0031, t01=0x0178}
0x4e1a…4e3c Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0032, t01=0x0008}
0x4e3c…4e62 Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0032, t01=0x002a}
0x4e62…4e74 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0032, t01=0x0050}
0x4e74…4e86 Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0032, t01=0x0062}
0x4e86…4ea6 Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0032, t01=0x0074}
0x4ea6…4ed0 Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0032, t01=0x0094}
0x4ed0…4efe Head {h00=0x002a, h01=0x0050, text=» ST A3,DWTAP+DWTDEV,A6 RESET POSITION «, t00=0x0032, t01=0x00be}
0x4efe…4f10 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0032, t01=0x00ec}
0x4f10…4f1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x00fe}
0x4f1a…4f34 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0032, t01=0x0108}
0x4f34…4f3e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0032, t01=0x0122}
0x4f3e…4f7c Head {h00=0x003a, h01=0x0050, text=»ADY300 SC A4,DWTAP+DWTDEV,A6 UPDATE HEAD LINE COUNTER «, t00=0x0032, t01=0x012c}
0x4f7c…4fa8 Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x0032, t01=0x016a}
0x4fa8…4fd8 Head {h00=0x002c, h01=0x0050, text=» CC A4,DWTPOS+DWTDEV,A6 OUTSIDE SCREEN? «, t00=0x0033, t01=0x0008}
0x4fd8…4ff2 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0033, t01=0x0038}
0x4ff2…5020 Head {h00=0x002a, h01=0x0050, text=» LC A4,DWTPOS+DWTDEV,A6 SET LAST LINE «, t00=0x0033, t01=0x0052}
0x5020…5034 Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0033, t01=0x0080}
0x5034…5056 Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0033, t01=0x0094}
0x5056…5070 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0033, t01=0x00b6}
0x5070…5090 Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0033, t01=0x00d0}
0x5090…50aa Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0033, t01=0x00f0}
0x50aa…50ce Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0033, t01=0x010a}
0x50ce…50e0 Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0033, t01=0x012e}
0x50e0…510e Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0033, t01=0x0140}
0x510e…5120 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0033, t01=0x016e}
0x5120…515a Head {h00=0x0036, h01=0x0050, text=»ADY307 LC A3,DWTAP+DWTDEV+1,A6 GET ACTUAL POSITION«, t00=0x0033, t01=0x0180}
0x515a…5182 Head {h00=0x0024, h01=0x0050, text=» CC A3,DWTPOS+DWTDEV,A6 MAX-POS?«, t00=0x0034, t01=0x002a}
0x5182…519c Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0034, t01=0x0052}
0x519c…51ae Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0034, t01=0x006c}
0x51ae…51dc Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0034, t01=0x007e}
0x51dc…5200 Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0034, t01=0x00ac}
0x5200…521a Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0034, t01=0x00d0}
0x521a…523e Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0034, t01=0x00ea}
0x523e…5268 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0034, t01=0x010e}
0x5268…5288 Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0034, t01=0x0138}
0x5288…529a Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0034, t01=0x0158}
0x529a…52cc Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0034, t01=0x016a}
0x52cc…52fc Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0035, t01=0x000c}
0x52fc…5320 Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0035, t01=0x003c}
0x5320…5342 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0035, t01=0x0060}
0x5342…536c Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0035, t01=0x0082}
0x536c…537e Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0035, t01=0x00ac}
0x537e…53a4 Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0035, t01=0x00be}
0x53a4…53be Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0035, t01=0x00e4}
0x53be…53e0 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0035, t01=0x00fe}
0x53e0…53f6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0035, t01=0x0120}
0x53f6…543a Head {h00=0x0040, h01=0x0050, text=»ADY370 SC A4,DWTAP+DWTDEV+1,A6 UPDATE HEAD POSITION POINTER «, t00=0x0035, t01=0x0136}
0x543a…5446 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x017a}
0x5446…5470 Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0035, t01=0x0186}
0x5470…5484 Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0036, t01=0x0020}
0x5484…549a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0036, t01=0x0034}
0x549a…54a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x004a}
0x54a4…54ce Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0036, t01=0x0054}
0x54ce…54e4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x007e}
0x54e4…54ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x0094}
0x54ee…54fa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0036, t01=0x009e}
0x54fa…5504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00aa}
0x5504…5512 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0036, t01=0x00b4}
0x5512…551c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00c2}
0x551c…5526 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x00cc}
0x5526…5562 Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0036, t01=0x00d6}
0x5562…559a Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0036, t01=0x0112}
0x559a…55a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0036, t01=0x014a}
0x55a4…55b8 Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0036, t01=0x0154}
0x55b8…55e2 Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET PARAMETER =7 «, t00=0x0036, t01=0x0168}
0x55e2…5608 (55, 0, 400) Head {h00=0x0022, h01=0x0050, text=» ANKL A1,/1000 6344 (!!!!!) =7«, t00=0x0037, t01=0x0004}
0x5608…5622 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0037, t01=0x002a}
0x5622…564c Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 GET PARAMETER =7 «, t00=0x0037, t01=0x0044}
0x564c…565e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0037, t01=0x006e}
0x565e…5682 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0037, t01=0x0080}
0x5682…569a Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0037, t01=0x00a4}
0x569a…56c0 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0037, t01=0x00bc}
0x56c0…56d6 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0037, t01=0x00e2}
0x56d6…5704 Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0037, t01=0x00f8}
0x5704…571a Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0037, t01=0x0126}
0x571a…5744 Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0037, t01=0x013c}
0x5744…575a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0037, t01=0x0166}
0x575a…576e Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0037, t01=0x017c}
0x576e…57a2 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0037, t01=0x0190}
0x57a2…57c6 Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0038, t01=0x0034}
0x57c6…57e6 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0038, t01=0x0058}
0x57e6…5808 Head {h00=0x001e, h01=0x0050, text=» LDR A7,A7 TEST STATUS =5 «, t00=0x0038, t01=0x0078}
0x5808…5824 Head {h00=0x0018, h01=0x0050, text=» RF(NZ) ADY415 NO =5«, t00=0x0038, t01=0x009a}
0x5824…585a Head {h00=0x0032, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET CURSOR POSITION =5 «, t00=0x0038, t01=0x00b6}
0x585a…588a Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 SAVE CURSOR POS. IN ECB =5 «, t00=0x0038, t01=0x00ec}
0x588a…589e Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0038, t01=0x011c}
0x589e…58c0 Head {h00=0x001e, h01=0x0050, text=» CWK A7,/5 ORDER 5 (!!) =7«, t00=0x0038, t01=0x0130}
0x58c0…58d6 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY420«, t00=0x0038, t01=0x0152}
0x58d6…58fa Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0038, t01=0x0168}
0x58fa…5918 Head {h00=0x001a, h01=0x0050, text=» ST A4,DWTAP+DWTDEV,A6«, t00=0x0038, t01=0x018c}
0x5918…592c Head {h00=0x0010, h01=0x0050, text=»ADY420 EQU *«, t00=0x0039, t01=0x001a}
0x592c…5948 Head {h00=0x0018, h01=0x0050, text=»ENDIO EQU * END I/O «, t00=0x0039, t01=0x002e}
0x5948…596e Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =7 «, t00=0x0039, t01=0x004a}
0x596e…598c Head {h00=0x001a, h01=0x0050, text=» CF A15,TENDIO END I/O«, t00=0x0039, t01=0x0070}
0x598c…599e Head {h00=0x000e, h01=0x0050, text=»EXIT EQU *«, t00=0x0039, t01=0x008e}
0x599e…59c4 Head {h00=0x0022, h01=0x0050, text=» ABL LDISP GO TO DISPATCHER =7«, t00=0x0039, t01=0x00a0}
0x59c4…59ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c6}
0x59ce…59e4 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0039, t01=0x00d0}
0x59e4…59ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00e6}
0x59ee…59fc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00f0}
0x59fc…5a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00fe}
0x5a06…5a20 Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0039, t01=0x0108}
0x5a20…5a2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0122}
0x5a2a…5a3e Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0039, t01=0x012c}
0x5a3e…5a52 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0039, t01=0x0140}
0x5a52…5a7e Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0039, t01=0x0154}
0x5a7e…5aa8 Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0039, t01=0x0180}
0x5aa8…5ac8 Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x003a, t01=0x001a}
0x5ac8…5ade Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x003a, t01=0x003a}
0x5ade…5af0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003a, t01=0x0050}
0x5af0…5b1a Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x003a, t01=0x0062}
0x5b1a…5b2c Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x003a, t01=0x008c}
0x5b2c…5b50 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x003a, t01=0x009e}
0x5b50…5b72 Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x003a, t01=0x00c2}
0x5b72…5b7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00e4}
0x5b7c…5b98 Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x003a, t01=0x00ee}
0x5b98…5ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x010a}
0x5ba2…5bc6 Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x003a, t01=0x0114}
0x5bc6…5be4 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x003a, t01=0x0138}
0x5be4…5bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0156}
0x5bee…5c00 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x003a, t01=0x0160}
0x5c00…5c12 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003a, t01=0x0172}
0x5c12…5c24 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003a, t01=0x0184}
0x5c24…5c36 Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x003b, t01=0x0008}
0x5c36…5c48 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003b, t01=0x001a}
0x5c48…5c5c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x003b, t01=0x002c}
0x5c5c…5c70 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x003b, t01=0x0040}
0x5c70…5ca0 Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x003b, t01=0x0054}
0x5ca0…5cc8 Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x003b, t01=0x0084}
0x5cc8…5cf4 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x003b, t01=0x00ac}
0x5cf4…5d06 Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x003b, t01=0x00d8}
0x5d06…5d14 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00ea}
0x5d14…5d1e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00f8}
0x5d1e…5d38 Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x003b, t01=0x0102}
0x5d38…5d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x011c}
0x5d42…5d68 Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x003b, t01=0x0126}
0x5d68…5d86 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x003b, t01=0x014c}
0x5d86…5d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x016a}
0x5d90…5da8 Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x003b, t01=0x0174}
0x5da8…5dba Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003b, t01=0x018c}
0x5dba…5dcc Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x003c, t01=0x000e}
0x5dcc…5dde Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x003c, t01=0x0020}
0x5dde…5df0 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x003c, t01=0x0032}
0x5df0…5e02 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003c, t01=0x0044}
0x5e02…5e1a Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x003c, t01=0x0056}
0x5e1a…5e30 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x003c, t01=0x006e}
0x5e30…5e46 Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x003c, t01=0x0084}
0x5e46…5e5e Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x003c, t01=0x009a}
0x5e5e…5e74 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x003c, t01=0x00b2}
0x5e74…5e86 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x003c, t01=0x00c8}
0x5e86…5e98 Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x003c, t01=0x00da}
0x5e98…5eb0 Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x003c, t01=0x00ec}
0x5eb0…5ec2 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003c, t01=0x0104}
0x5ec2…5ed6 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x003c, t01=0x0116}
0x5ed6…5ee8 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003c, t01=0x012a}
0x5ee8…5efc Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x003c, t01=0x013c}
0x5efc…5f0e Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x003c, t01=0x0150}
0x5f0e…5f18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0162}
0x5f18…5f24 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003c, t01=0x016c}
0x5f24…5f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0178}
0x5f2e…5f3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003c, t01=0x0182}
0x5f3c…5f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0190}
0x5f46…5f76 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x003d, t01=0x000a}
0x5f76…5fa6 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x003d, t01=0x003a}
0x5fa6…5fd2 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x003d, t01=0x006a}
0x5fd2…5fe6 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x003d, t01=0x0096}
0x5fe6…601a Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x003d, t01=0x00aa}
0x601a…6056 Head {h00=0x0038, h01=0x0050, text=» ADS A3,DWTAP+DWTDEV,A6 UPDATE HEAD POSITION POINTER«, t00=0x003d, t01=0x00de}
0x6056…6068 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003d, t01=0x011a}
0x6068…609e Head {h00=0x0032, h01=0x0050, text=» SC A3,DWTBC+DWTDEV,A6 RESET POSITION COUNTER«, t00=0x003d, t01=0x012c}
0x609e…60ae Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003d, t01=0x0162}
0x60ae…60b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0172}
0x60b8…60f2 Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x003d, t01=0x017c}
0x60f2…6126 Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x003e, t01=0x0026}
0x6126…6168 Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x003e, t01=0x005a}
0x6168…6172 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x009c}
0x6172…6186 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x003e, t01=0x00a6}
0x6186…61ba Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6 GET POSITION POINTER «, t00=0x003e, t01=0x00ba}
0x61ba…61ce Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003e, t01=0x00ee}
0x61ce…620a Head {h00=0x0038, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 INCLUDE HEAD POSITION POINTER«, t00=0x003e, t01=0x0102}
0x620a…621e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003e, t01=0x013e}
0x621e…624a Head {h00=0x0028, h01=0x0050, text=» CC A2,DWTPOS+DWTDEV,A6 END OF ROW ?«, t00=0x003e, t01=0x0152}
0x624a…6260 Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x003e, t01=0x017e}
0x6260…6290 (63, 0, 400) Head {h00=0x002c, h01=0x0050, text=» IM DWTPOC+DWTDEV,A6 POSITION COUNTER =7«, t00=0x003f, t01=0x0004}
0x6290…62a6 Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x003f, t01=0x0034}
0x62a6…62b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003f, t01=0x004a}
0x62b4…62be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0058}
0x62be…62d2 Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x003f, t01=0x0062}
0x62d2…62dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0076}
0x62dc…62f2 Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x003f, t01=0x0080}
0x62f2…62fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0096}
0x62fc…630e Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x003f, t01=0x00a0}
0x630e…632c Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x003f, t01=0x00b2}
0x632c…6342 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x003f, t01=0x00d0}
0x6342…6360 Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x003f, t01=0x00e6}
0x6360…6376 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003f, t01=0x0104}
0x6376…63a8 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003f, t01=0x011a}
0x63a8…63c2 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003f, t01=0x014c}
0x63c2…63d6 Head {h00=0x0010, h01=0x0050, text=»IHDY10 EQU *«, t00=0x003f, t01=0x0166}
0x63d6…63f4 Head {h00=0x001a, h01=0x0050, text=» ABL LENDER SET ERROR «, t00=0x003f, t01=0x017a}
0x63f4…6402 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x0008}
0x6402…640c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0016}
0x640c…6420 Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x0040, t01=0x0020}
0x6420…642a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0034}
0x642a…6456 Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x0040, t01=0x003e}
0x6456…6460 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x006a}
0x6460…646a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0074}
0x646a…6496 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x0040, t01=0x007e}
0x6496…64b6 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x0040, t01=0x00aa}
0x64b6…64c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ca}
0x64c0…64d6 Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x0040, t01=0x00d4}
0x64d6…64e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00ea}
0x64e0…64fe Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x0040, t01=0x00f4}
0x64fe…6516 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x0040, t01=0x0112}
0x6516…6534 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x0040, t01=0x012a}
0x6534…6546 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x0040, t01=0x0148}
0x6546…655c Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x0040, t01=0x015a}
0x655c…657e Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x0040, t01=0x0170}
0x657e…658c (65, 0, 400) Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0041, t01=0x0004}
0x658c…659a Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0041, t01=0x0012}
0x659a…65a8 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0041, t01=0x0020}
0x65a8…65b6 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0041, t01=0x002e}
0x65b6…65c4 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0041, t01=0x003c}
0x65c4…65d2 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0041, t01=0x004a}
0x65d2…65e0 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0041, t01=0x0058}
0x65e0…65ee Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0041, t01=0x0066}
0x65ee…65f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0074}
0x65f8…660e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0041, t01=0x007e}
0x660e…6618 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0094}
0x6618…6646 Head {h00=0x002a, h01=0x0050, text=» LD A2,DWTDEV,A6 CHANNEL PARAMETER =7 «, t00=0x0041, t01=0x009e}
0x6646…6670 Head {h00=0x0026, h01=0x0050, text=» ANKL A2,/1000 GRAPHIC DISPLAY =7 «, t00=0x0041, t01=0x00cc}
0x6670…6688 Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x0041, t01=0x00f6}
0x6688…66ba Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x0041, t01=0x010e}
0x66ba…66d0 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0041, t01=0x0140}
0x66d0…66da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0156}
0x66da…66e6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0160}
0x66e6…66f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x016c}
0x66f0…66fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x0176}
0x66fe…6712 Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x0041, t01=0x0184}
0x6712…673a Head {h00=0x0024, h01=0x0050, text=» LDK A2,BLKSI MAX BLOCKSIZZE =7 «, t00=0x0042, t01=0x0008}
0x673a…6762 Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =7 «, t00=0x0042, t01=0x0030}
0x6762…6784 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x0042, t01=0x0058}
0x6784…679a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0042, t01=0x007a}
0x679a…67b4 Head {h00=0x0016, h01=0x0050, text=» IFT WHATDY=0 =1 «, t00=0x0042, t01=0x0090}
0x67b4…67d6 Head {h00=0x001e, h01=0x0050, text=» IFF STEADY+COUNTRY=0 =1 «, t00=0x0042, t01=0x00aa}
0x67d6…6804 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAMETERS =1 «, t00=0x0042, t01=0x00cc}
0x6804…682a Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 PTS 6385/6386 ? =1«, t00=0x0042, t01=0x00fa}
0x682a…6846 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RCDY14 NO =3 «, t00=0x0042, t01=0x0120}
0x6846…6874 Head {h00=0x002a, h01=0x0050, text=» LDK A3,100 SET UP TRANSFER COUNTER =3«, t00=0x0042, t01=0x013c}
0x6874…68ac Head {h00=0x0034, h01=0x0050, text=»RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 «, t00=0x0042, t01=0x016a}
0x68ac…68dc Head {h00=0x002c, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO =3«, t00=0x0043, t01=0x0012}
0x68dc…6904 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INF =3«, t00=0x0043, t01=0x0042}
0x6904…692e Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC TRANSFER COUNTER =3 «, t00=0x0043, t01=0x006a}
0x692e…695e Head {h00=0x002c, h01=0x0050, text=» RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3«, t00=0x0043, t01=0x0094}
0x695e…6990 Head {h00=0x002e, h01=0x0050, text=» LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 «, t00=0x0043, t01=0x00c4}
0x6990…69aa Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0043, t01=0x00f6}
0x69aa…69d8 Head {h00=0x002a, h01=0x0050, text=» LDK A2,COUNTRY SEND 'COUNTRY CODE' =1«, t00=0x0043, t01=0x0110}
0x69d8…69f0 Head {h00=0x0014, h01=0x0050, text=» ORK A2,/30 =1 «, t00=0x0043, t01=0x013e}
0x69f0…6a0a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0043, t01=0x0156}
0x6a0a…6a18 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0043, t01=0x0170}
0x6a18…6a26 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0043, t01=0x017e}
0x6a26…6a3e Head {h00=0x0014, h01=0x0050, text=»RCDY14 EQU * =3«, t00=0x0043, t01=0x018c}
0x6a3e…6a50 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0044, t01=0x0014}
0x6a50…6a7c Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD =3 «, t00=0x0044, t01=0x0026}
0x6a7c…6aa2 Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x0044, t01=0x0052}
0x6aa2…6abc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0044, t01=0x0078}
0x6abc…6ad2 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x0044, t01=0x0092}
0x6ad2…6b14 Head {h00=0x003e, h01=0x0050, text=» ST A2,DWTAP+DWTDEV,A6 SET HEAD LINE-AND-POSITION COUNTER «, t00=0x0044, t01=0x00a8}
0x6b14…6b36 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x0044, t01=0x00ea}
0x6b36…6b54 Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x0044, t01=0x010c}
0x6b54…6b7a Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x0044, t01=0x012a}
0x6b7a…6b94 Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x0044, t01=0x0150}
0x6b94…6ba2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x016a}
0x6ba2…6bac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0178}
0x6bac…6bd8 Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x0044, t01=0x0182}
0x6bd8…6be2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x001e}
0x6be2…6bf6 Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0045, t01=0x0028}
0x6bf6…6c18 Head {h00=0x001e, h01=0x0050, text=» CWK A7,/5 ORDER 5 (!!) =7«, t00=0x0045, t01=0x003c}
0x6c18…6c32 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x0045, t01=0x005e}
0x6c32…6c5e Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x0045, t01=0x0078}
0x6c5e…6c70 Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x0045, t01=0x00a4}
0x6c70…6c84 Head {h00=0x0010, h01=0x0050, text=»RCDY25 EQU *«, t00=0x0045, t01=0x00b6}
0x6c84…6cc2 Head {h00=0x003a, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET NUMBER OF POSITIONS TO BACK«, t00=0x0045, t01=0x00ca}
0x6cc2…6cd6 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0045, t01=0x0108}
0x6cd6…6cec Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x0045, t01=0x011c}
0x6cec…6d1e Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0045, t01=0x0132}
0x6d1e…6d42 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0045, t01=0x0164}
0x6d42…6d5c Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x0045, t01=0x0188}
0x6d5c…6d6a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0012}
0x6d6a…6d74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0020}
0x6d74…6d8c Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x0046, t01=0x002a}
0x6d8c…6d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0042}
0x6d96…6dca Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0046, t01=0x004c}
0x6dca…6dd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0080}
0x6dd4…6de8 Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0046, t01=0x008a}
0x6de8…6e00 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0046, t01=0x009e}
0x6e00…6e1a Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x0046, t01=0x00b6}
0x6e1a…6e3c Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0046, t01=0x00d0}
0x6e3c…6e5a Head {h00=0x001a, h01=0x0050, text=» LDR A4,A2 SAVE CHAR. «, t00=0x0046, t01=0x00f2}
0x6e5a…6e64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0110}
0x6e64…6e7a Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0046, t01=0x011a}
0x6e7a…6e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0130}
0x6e84…6e98 Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0046, t01=0x013a}
0x6e98…6ec0 Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x0046, t01=0x014e}
0x6ec0…6ed4 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0046, t01=0x0176}
0x6ed4…6ede Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x018a}
0x6ede…6eea (71, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x0004}
0x6eea…6ef4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0010}
0x6ef4…6f06 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x0047, t01=0x001a}
0x6f06…6f26 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0047, t01=0x002c}
0x6f26…6f3a Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0047, t01=0x004c}
0x6f3a…6f56 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0047, t01=0x0060}
0x6f56…6f72 Head {h00=0x0018, h01=0x0050, text=» LDK A2,1 BLOCK SIZE«, t00=0x0047, t01=0x007c}
0x6f72…6f9a Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =7 «, t00=0x0047, t01=0x0098}
0x6f9a…6fb6 Head {h00=0x0018, h01=0x0050, text=» LDR A2,A4 GET CHAR.«, t00=0x0047, t01=0x00c0}
0x6fb6…6fe0 Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0047, t01=0x00dc}
0x6fe0…7010 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0047, t01=0x0106}
0x7010…7036 Head {h00=0x0022, h01=0x0050, text=» CF A5,ENDBLK END OF BLOCK =7 «, t00=0x0047, t01=0x0136}
0x7036…7048 Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0047, t01=0x015c}
0x7048…7080 Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0047, t01=0x016e}
0x7080…70a6 Head {h00=0x0022, h01=0x0050, text=» CF A15,TENDIO SET DY DWT FREE«, t00=0x0048, t01=0x0016}
0x70a6…70d2 Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0048, t01=0x003c}
0x70d2…70dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0068}
0x70dc…70f2 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0048, t01=0x0072}
0x70f2…70fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0088}
0x70fc…7110 Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0048, t01=0x0092}
0x7110…7144 Head {h00=0x0030, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x0048, t01=0x00a6}
0x7144…7158 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0048, t01=0x00da}
0x7158…717c Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0048, t01=0x00ee}
0x717c…71a4 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0048, t01=0x0112}
0x71a4…71c4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BLKSI BLOCK SIZE«, t00=0x0048, t01=0x013a}
0x71c4…71ec Head {h00=0x0024, h01=0x0050, text=» CF A5,STABLK START OF BLOCK =7 «, t00=0x0048, t01=0x015a}
0x71ec…7206 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0048, t01=0x0182}
0x7206…7228 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END BLOCK =7«, t00=0x0049, t01=0x000c}
0x7228…723a Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0049, t01=0x002e}
0x723a…7248 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x0040}
0x7248…7252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x004e}
0x7252…7264 Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0049, t01=0x0058}
0x7264…726e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x006a}
0x726e…7282 Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0049, t01=0x0074}
0x7282…72b6 Head {h00=0x0030, h01=0x0050, text=» LC A4,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x0049, t01=0x0088}
0x72b6…72ca Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0049, t01=0x00bc}
0x72ca…72ee Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0049, t01=0x00d0}
0x72ee…7304 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0049, t01=0x00f4}
0x7304…732e Head {h00=0x0026, h01=0x0050, text=» LD A1,DWTDEV,A6 DEVICE STATUS =7 «, t00=0x0049, t01=0x010a}
0x732e…7358 Head {h00=0x0026, h01=0x0050, text=» ANKL A1,/1000 GRAPHIC DISPLAY =7 «, t00=0x0049, t01=0x0134}
0x7358…7370 Head {h00=0x0014, h01=0x0050, text=» (???????????)«, t00=0x0049, t01=0x015e}
0x7370…7388 Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0049, t01=0x0176}
0x7388…73ac Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START BLOCK =7«, t00=0x0049, t01=0x018e}
0x73ac…73c6 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x004a, t01=0x0022}
0x73c6…73e8 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END BLOCK =7«, t00=0x004a, t01=0x003c}
0x73e8…73fa Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x004a, t01=0x005e}
0x73fa…7406 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x004a, t01=0x0070}
0x7406…7430 Head {h00=0x0026, h01=0x0050, text=»ECDY60 LDK A2,BLKSI BLOCK SIZE =7 «, t00=0x004a, t01=0x007c}
0x7430…7454 Head {h00=0x0020, h01=0x0050, text=» CF A5,STABLK START BLOCK =7«, t00=0x004a, t01=0x00a6}
0x7454…747c Head {h00=0x0024, h01=0x0050, text=» LDR A3,A4 SAVE POSITION COUNTER«, t00=0x004a, t01=0x00ca}
0x747c…74be Head {h00=0x003e, h01=0x0050, text=» LD A4,DWTAP+DWTDEV,A6 GET HEAD LINE-AND-POSITION COUNTER «, t00=0x004a, t01=0x00f2}
0x74be…74de Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x004a, t01=0x0134}
0x74de…7500 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x004a, t01=0x0154}
0x7500…7524 Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x004a, t01=0x0176}
0x7524…7538 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x004b, t01=0x000a}
0x7538…755a Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x004b, t01=0x001e}
0x755a…756c Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x004b, t01=0x0040}
0x756c…75a2 Head {h00=0x0032, h01=0x0050, text=» SC A2,DWTBC+DWTDEV,A6 RESET POSITION COUNTER «, t00=0x004b, t01=0x0052}
0x75a2…75c4 Head {h00=0x001e, h01=0x0050, text=» CF A5,ENDBLK END BLOCK =7«, t00=0x004b, t01=0x0088}
0x75c4…75d6 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x004b, t01=0x00aa}
0x75d6…75e4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x00bc}
0x75e4…75ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00ca}
0x75ee…75f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d4}
0x75f8…762c Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x004b, t01=0x00de}
0x762c…7660 Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x004b, t01=0x0112}
0x7660…7694 Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x004b, t01=0x0146}
0x7694…76b4 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x004b, t01=0x017a}
0x76b4…76be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x000a}
0x76be…76d2 Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x004c, t01=0x0014}
0x76d2…76e4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x004c, t01=0x0028}
0x76e4…7718 Head {h00=0x0030, h01=0x0050, text=» LC A2,DWTBC+DWTDEV,A6 GET POSITION COUNTER «, t00=0x004c, t01=0x003a}
0x7718…772c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004c, t01=0x006e}
0x772c…7764 Head {h00=0x0034, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6 ADD HEAD POSITION COUNTER«, t00=0x004c, t01=0x0082}
0x7764…7778 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004c, t01=0x00ba}
0x7778…77a6 Head {h00=0x002a, h01=0x0050, text=» CC A2,DWTPOS+DWTDEV,A6 LAST POSITION «, t00=0x004c, t01=0x00ce}
0x77a6…77c0 Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x004c, t01=0x00fc}
0x77c0…77e8 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004c, t01=0x0116}
0x77e8…77fa Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x004c, t01=0x013e}
0x77fa…7820 Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x004c, t01=0x0150}
0x7820…783a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004c, t01=0x0176}
0x783a…7862 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004c, t01=0x0190}
0x7862…787c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004d, t01=0x0028}
0x787c…789c Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004d, t01=0x0042}
0x789c…78bc Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004d, t01=0x0062}
0x78bc…78ce Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004d, t01=0x0082}
0x78ce…78e4 Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004d, t01=0x0094}
0x78e4…7906 Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004d, t01=0x00aa}
0x7906…7942 Head {h00=0x0038, h01=0x0050, text=» ADS A3,DWTPOC+DWTDEV,A6 UPDATE POSITION COUNTER =7 «, t00=0x004d, t01=0x00cc}
0x7942…7952 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004d, t01=0x0108}
0x7952…7960 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004d, t01=0x0118}
0x7960…7998 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004d, t01=0x0126}
0x7998…79d0 Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x004d, t01=0x015e}
0x79d0…7a08 Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x004e, t01=0x0008}
0x7a08…7a40 Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x004e, t01=0x0040}
0x7a40…7a78 Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x004e, t01=0x0078}
0x7a78…7ab0 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004e, t01=0x00b0}
0x7ab0…7ac4 Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x004e, t01=0x00e8}
0x7ac4…7ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x00fc}
0x7ace…7ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004e, t01=0x0106}
0x7ad8…7aec Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x004e, t01=0x0110}
0x7aec…7b0e Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x004e, t01=0x0124}
0x7b0e…7b2a Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x004e, t01=0x0146}
0x7b2a…7b5a Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x004e, t01=0x0162}
0x7b5a…7b86 (79, 0, 400) Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x004f, t01=0x0004}
0x7b86…7ba6 Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x004f, t01=0x0030}
0x7ba6…7bce Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x004f, t01=0x0050}
0x7bce…7bee Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x004f, t01=0x0078}
0x7bee…7c06 Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x004f, t01=0x0098}
0x7c06…7c2a Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x004f, t01=0x00b0}
0x7c2a…7c52 Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x004f, t01=0x00d4}
0x7c52…7c6a Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x004f, t01=0x00fc}
0x7c6a…7c7c Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004f, t01=0x0114}
0x7c7c…7cb6 Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x004f, t01=0x0126}
0x7cb6…7cd0 Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x004f, t01=0x0160}
0x7cd0…7cfa Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x004f, t01=0x017a}
0x7cfa…7d24 Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x0050, t01=0x0014}
0x7d24…7d5a Head {h00=0x0032, h01=0x0050, text=»FASTOK LC A2,DWTBC+DWTDEV,A6 GET HEAD POSITION«, t00=0x0050, t01=0x003e}
0x7d5a…7d78 Head {h00=0x001a, h01=0x0050, text=» AD A2,DWTAP+DWTDEV,A6«, t00=0x0050, t01=0x0074}
0x7d78…7d8c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0050, t01=0x0092}
0x7d8c…7db2 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x0050, t01=0x00a6}
0x7db2…7ddc Head {h00=0x0026, h01=0x0050, text=» ST A3,DWTBIN+DWTDEV,A6 SAVE INDEX«, t00=0x0050, t01=0x00cc}
0x7ddc…7e16 Head {h00=0x0036, h01=0x0050, text=» LC A3,DWTPOS+DWTDEV,A6 GET MAXNUMBER OF CHAR/LINE«, t00=0x0050, t01=0x00f6}
0x7e16…7e34 Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x0050, t01=0x0130}
0x7e34…7e46 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x0050, t01=0x014e}
0x7e46…7e5a Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x0050, t01=0x0160}
0x7e5a…7e6c Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0050, t01=0x0174}
0x7e6c…7e7e Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x0050, t01=0x0186}
0x7e7e…7e90 Head {h00=0x000e, h01=0x0050, text=»HIT EQU * «, t00=0x0051, t01=0x0008}
0x7e90…7ec4 Head {h00=0x0030, h01=0x0050, text=» ADS A4,DWTPOC+DWTDEV,A6 UPDATE POSITION =7 «, t00=0x0051, t01=0x001a}
0x7ec4…7ee4 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x0051, t01=0x004e}
0x7ee4…7f04 Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x0051, t01=0x006e}
0x7f04…7f28 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x0051, t01=0x008e}
0x7f28…7f3e Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0051, t01=0x00b2}
0x7f3e…7f54 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x0051, t01=0x00c8}
0x7f54…7f6a Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x0051, t01=0x00de}
0x7f6a…7fa0 Head {h00=0x0032, h01=0x0050, text=» LD A4,DWTPOC+DWTDEV,A6 GET ACTUAL POSITION =7«, t00=0x0051, t01=0x00f4}
0x7fa0…7fb4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0051, t01=0x012a}
0x7fb4…7fe8 Head {h00=0x0030, h01=0x0050, text=» AD A4,DWTAP+DWTDEV,A6 INC HEAD POS POINTER «, t00=0x0051, t01=0x013e}
0x7fe8…7ffe Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x0051, t01=0x0172}
0x7ffe…8024 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x0051, t01=0x0188}
0x8024…804a Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x0052, t01=0x001e}
0x804a…807e Head {h00=0x0030, h01=0x0050, text=» LD A3,DWTBIN+DWTDEV,A6 RESTORE BUFFER INDEX«, t00=0x0052, t01=0x0044}
0x807e…8090 Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0052, t01=0x0078}
0x8090…80b4 Head {h00=0x0020, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER =7«, t00=0x0052, t01=0x008a}
0x80b4…80d4 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/FF GET ORDER =7«, t00=0x0052, t01=0x00ae}
0x80d4…80f6 Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x0052, t01=0x00ce}
0x80f6…8100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0052, t01=0x00f0}
0x8100…8132 Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x0052, t01=0x00fa}
0x8132…8156 Head {h00=0x0020, h01=0x0050, text=» LD A7,DWTOR,A6 GET ORDER =7«, t00=0x0052, t01=0x012c}
0x8156…8176 Head {h00=0x001c, h01=0x0050, text=» ANK A7,/FF GET ORDER =7«, t00=0x0052, t01=0x0150}
0x8176…818a Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x0052, t01=0x0170}
0x818a…8198 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0184}
0x8198…81a2 (83, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0004}
0x81a2…81ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x000e}
0x81ac…81ec Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x0053, t01=0x0018}
0x81ec…8224 Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x0053, t01=0x0058}
0x8224…822e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0053, t01=0x0090}
0x822e…8242 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x0053, t01=0x009a}
0x8242…8256 Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x0053, t01=0x00ae}
0x8256…8288 Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x0053, t01=0x00c2}
0x8288…829c Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x0053, t01=0x00f4}
0x829c…82b0 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0053, t01=0x0108}
0x82b0…82d0 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0053, t01=0x011c}
0x82d0…82f2 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x0053, t01=0x013c}
0x82f2…830c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0053, t01=0x015e}
0x830c…832a Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0053, t01=0x0178}
0x832a…8344 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0054, t01=0x0008}
0x8344…8356 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0054, t01=0x0022}
0x8356…8370 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0054, t01=0x0034}
0x8370…8380 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0054, t01=0x004e}
0x8380…838e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0054, t01=0x005e}
0x838e…8398 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x006c}
0x8398…83a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x0076}
0x83a2…83d0 Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x0054, t01=0x0080}
0x83d0…8412 Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x0054, t01=0x00ae}
0x8412…841c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0054, t01=0x00f0}
0x841c…8430 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x0054, t01=0x00fa}
0x8430…844e Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x0054, t01=0x010e}
0x844e…846e Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x0054, t01=0x012c}
0x846e…8488 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0054, t01=0x014c}
0x8488…84a8 Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x0054, t01=0x0166}
0x84a8…84ba Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0054, t01=0x0186}
0x84ba…84d6 Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x0055, t01=0x0008}
0x84d6…84ec Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x0055, t01=0x0024}
0x84ec…8500 Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x0055, t01=0x003a}
0x8500…8512 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0055, t01=0x004e}
0x8512…853c Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x0055, t01=0x0060}
0x853c…854e Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0055, t01=0x008a}
0x854e…856e Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x0055, t01=0x009c}
0x856e…8582 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x0055, t01=0x00bc}
0x8582…8594 Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x0055, t01=0x00d0}
0x8594…85a8 Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x0055, t01=0x00e2}
0x85a8…85c6 Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x0055, t01=0x00f6}
0x85c6…85da Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x0055, t01=0x0114}
0x85da…85fe Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x0055, t01=0x0128}
0x85fe…860e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0055, t01=0x014c}
0x860e…861c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0055, t01=0x015c}
0x861c…862a Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0055, t01=0x016a}
0x862a…8638 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0055, t01=0x0178}
0x8638…8646 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0055, t01=0x0186}
0x8646…8682 (86, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2«, t00=0x0056, t01=0x0004}
0x8682…8690 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0056, t01=0x0040}
0x8690…869e Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0056, t01=0x004e}
0x869e…86d2 Head {h00=0x0030, h01=0x0050, text=»* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 «, t00=0x0056, t01=0x005c}
0x86d2…8704 Head {h00=0x002e, h01=0x0050, text=»* AT EXIT A4 = CHAR TO END OF SCREEN =2 «, t00=0x0056, t01=0x0090}
0x8704…8712 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0056, t01=0x00c2}
0x8712…8728 Head {h00=0x0012, h01=0x0050, text=»ERA EQU * =2 «, t00=0x0056, t01=0x00d0}
0x8728…8754 Head {h00=0x0028, h01=0x0050, text=» LD A2,DWTPOS+DWTDEV,A6 MAX CHAR. =2«, t00=0x0056, t01=0x00e6}
0x8754…8778 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF GET MAX CHAR. =2«, t00=0x0056, t01=0x0112}
0x8778…87b2 Head {h00=0x0036, h01=0x0050, text=» LC A3,DWTAP+DWTDEV+1,A6 CURRENT POS. ON SCREEN =2«, t00=0x0056, t01=0x0136}
0x87b2…87ca Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =2 «, t00=0x0056, t01=0x0170}
0x87ca…8800 Head {h00=0x0032, h01=0x0050, text=» SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2«, t00=0x0056, t01=0x0188}
0x8800…8824 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH =2 «, t00=0x0057, t01=0x002e}
0x8824…8848 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN =2«, t00=0x0057, t01=0x0052}
0x8848…8864 Head {h00=0x0018, h01=0x0050, text=» RF(L) ERAEND NO =2 «, t00=0x0057, t01=0x0076}
0x8864…8896 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2«, t00=0x0057, t01=0x0092}
0x8896…88b8 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/FFFF SET OVER =4«, t00=0x0057, t01=0x00c4}
0x88b8…88de Head {h00=0x0022, h01=0x0050, text=»ERAEND EQU * END SUBROUTINE =2«, t00=0x0057, t01=0x00e6}
0x88de…88f8 Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0057, t01=0x010c}
0x88f8…890a Head {h00=0x000e, h01=0x0050, text=»ABDY EQU *«, t00=0x0057, t01=0x0126}
0x890a…893a Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE CURSOR POSITION =5«, t00=0x0057, t01=0x0138}
0x893a…8966 Head {h00=0x0028, h01=0x0050, text=» RTN A15 RETURN TO ABORT ROUTINE =5 «, t00=0x0057, t01=0x0168}
0x8966…8972 (88, 2, 20) Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0058, t01=0x0004}
0x8972…8976 Head {h00=0x4004, h01=0x0000}
0x8976…897a 00 58 00 10 ┆ X ┆
0x897a…8982 (89, 1, 8) 20 04 00 00 00 59 00 04 ┆ Y ┆
0x8982…89d2 (90, 0, 400) 00 11 01 70 00 22 00 50 5c 52 46 28 4e 5a 29 5c 44 4e 45 52 52 5c 45 52 52 4f 52 20 45 4e 44 20 49 2f 4f 5c 3d 31 00 12 00 08 00 14 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 00 12 00 2e 00 10 00 50 5c 52 42 28 45 29 5c 45 4e 44 ┆ p " P RF(NZ) DNERR ERROR END I/O =1 P LD A8,DWTECB,A6 . P RB(E) END┆
0x89d2…8a22 49 4f 00 12 00 46 00 2a 00 50 5c 52 42 5c 41 43 44 4e 5c 52 45 54 55 52 4e 20 54 4f 20 41 43 54 49 56 41 54 49 4e 4f 20 50 41 52 54 4f 4e 49 20 00 12 00 5a 00 06 00 50 2a 20 00 12 00 88 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 4e 30 ┆IO F * P RB ACDN RETURN TO ACTIVATINO PARTONI Z P* P EJECT DRDN0┆
0x8a22…8a72 31 20 00 12 00 92 00 06 00 50 2a 20 00 12 00 aa 00 14 00 50 2a 20 20 20 20 45 20 43 20 48 20 4f 20 44 20 4e 00 12 00 b4 00 06 00 50 2a 20 00 12 00 cc 00 16 00 50 2a 20 20 20 20 45 43 48 4f 2d 52 4f 55 54 49 4e 45 20 00 12 00 d6 00 06 00 50 ┆1 P* P* E C H O D N P* P* ECHO-ROUTINE P┆
0x8a72…8ac2 2a 20 00 12 00 f0 00 10 00 50 45 43 48 4f 44 4e 5c 45 51 55 5c 2a 00 12 00 fa 00 14 00 50 5c 4c 44 52 5c 41 37 2c 41 37 5c 45 4f 52 3f 20 00 12 01 0e 00 12 00 50 5c 52 46 28 4e 29 5c 45 43 48 30 36 30 20 00 12 01 26 00 0e 00 50 5c 4c 44 52 ┆* PECHODN EQU * P LDR A7,A7 EOR? P RF(N) ECH060 & P LDR┆
0x8ac2…8b12 5c 41 33 2c 41 32 00 12 01 3c 00 20 00 50 5c 4c 44 52 5c 41 34 2c 41 32 5c 53 41 56 45 20 43 48 41 52 41 43 54 45 52 5c 3d 31 00 12 01 4e 00 1a 00 50 5c 53 55 4b 5c 41 33 2c 2f 38 5c 42 41 43 4b 53 50 41 43 45 3f 20 00 12 01 72 00 12 00 50 ┆ A3,A2 < P LDR A4,A2 SAVE CHARACTER =1 N P SUK A3,/8 BACKSPACE? r P┆
0x8b12…8b62 (91, 0, 400) 5c 52 46 28 45 29 5c 45 43 48 30 35 30 20 00 12 01 90 00 16 00 50 5c 53 55 4b 5c 41 33 2c 2f 31 30 5c 43 4c 45 41 52 3f 00 13 00 16 00 16 00 50 5c 52 46 28 4e 45 29 5c 45 43 48 30 34 30 5c 4e 4f 20 00 13 00 30 00 20 00 50 5c 4c 44 4b 5c 41 ┆ RF(E) ECH050 P SUK A3,/10 CLEAR? P RF(NE) ECH040 NO 0 P LDK A┆
0x8b62…8bb2 34 2c 2f 34 30 5c 45 52 41 53 45 20 44 49 53 50 4c 41 59 5c 3d 31 00 13 00 4a 00 10 00 50 45 43 48 30 34 30 5c 45 51 55 5c 2a 00 13 00 6e 00 1c 00 50 5c 4c 44 4b 5c 41 32 2c 31 5c 42 4c 4f 43 4b 20 53 49 5a 45 5c 3d 31 20 00 13 00 82 00 24 ┆4,/40 ERASE DISPLAY =1 J PECH040 EQU * n P LDK A2,1 BLOCK SIZE =1 $┆
0x8bb2…8c02 00 50 5c 43 46 5c 41 35 2c 53 54 41 42 4c 4b 5c 53 54 41 52 54 20 4f 46 20 42 4c 4f 43 4b 5c 3d 31 20 00 13 00 a2 00 22 00 50 5c 52 46 28 4e 5a 29 5c 45 43 48 30 35 30 5c 45 52 52 4f 52 20 45 4e 44 20 45 43 48 4f 20 00 13 00 ca 00 20 00 50 ┆ P CF A5,STABLK START OF BLOCK =1 " P RF(NZ) ECH050 ERROR END ECHO P┆
0x8c02…8c52 5c 4c 44 52 5c 41 32 2c 41 34 5c 47 45 54 20 43 48 41 52 41 43 54 45 52 5c 3d 31 20 00 13 00 f0 00 24 00 50 5c 43 46 5c 41 35 2c 4f 55 54 50 55 54 5c 53 45 4e 44 20 43 48 41 52 41 43 54 45 52 5c 3d 31 20 00 13 01 14 00 22 00 50 5c 52 46 28 ┆ LDR A2,A4 GET CHARACTER =1 $ P CF A5,OUTPUT SEND CHARACTER =1 " P RF(┆
0x8c52…8ca2 4e 5a 29 5c 45 43 48 30 35 30 5c 45 52 52 4f 52 20 45 4e 44 20 45 43 48 4f 20 00 13 01 3c 00 22 00 50 5c 43 46 5c 41 35 2c 45 4e 44 42 4c 4b 5c 45 4e 44 20 4f 46 20 42 4c 4f 43 4b 5c 3d 31 20 00 13 01 62 00 04 00 50 00 13 01 88 00 30 00 50 ┆NZ) ECH050 ERROR END ECHO < " P CF A5,ENDBLK END OF BLOCK =1 b P 0 P┆
0x8ca2…8cf2 (92, 0, 400) 45 43 48 30 35 30 5c 41 42 4c 5c 45 43 48 52 54 4e 5c 52 45 54 55 52 4e 20 54 4f 20 4b 45 59 42 4f 41 52 44 20 44 52 49 56 45 52 20 00 13 01 90 00 06 00 50 2a 20 00 14 00 34 00 10 00 50 45 43 48 30 36 30 5c 45 51 55 5c 2a 00 14 00 3e 00 1e ┆ECH050 ABL ECHRTN RETURN TO KEYBOARD DRIVER P* 4 PECH060 EQU * > ┆
0x8cf2…8d42 00 50 5c 43 46 5c 41 31 35 2c 54 45 4e 44 49 4f 5c 45 4e 44 20 49 2f 4f 5c 3d 21 20 00 14 00 52 00 2a 00 50 5c 41 42 4c 5c 45 43 48 52 54 4e 5c 52 45 54 55 52 4e 20 54 4f 20 4b 45 59 42 4f 41 52 44 20 44 52 49 56 45 52 20 00 14 00 74 00 06 ┆ P CF A15,TENDIO END I/O =! R * P ABL ECHRTN RETURN TO KEYBOARD DRIVER t ┆
0x8d42…8d92 00 50 2a 20 00 14 00 a2 00 06 00 50 2a 20 00 14 00 ac 00 14 00 50 5c 45 4a 45 43 54 5c 5c 5c 44 52 44 4e 30 31 20 00 14 00 b6 00 06 00 50 2a 20 00 14 00 ce 00 06 00 50 2a 20 00 14 00 d8 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ P* P* P EJECT DRDN01 P* P* 8 P**************┆
0x8d92…8de2 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 14 00 e2 00 06 00 50 2a 20 00 14 01 1e 00 12 00 50 2a 5c 44 20 4e 20 45 20 52 20 52 20 5c 20 00 14 01 28 00 06 00 50 2a 20 ┆************************************** P* P* D N E R R ( P* ┆
0x8de2…8e32 00 14 01 3e 00 14 00 50 2a 5c 45 52 52 4f 52 20 52 4f 55 54 49 4e 45 20 00 14 01 48 00 06 00 50 2a 20 00 14 01 60 00 38 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a ┆ > P* ERROR ROUTINE H P* ` 8 P**************************************┆