|
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: 34124 (0x854c)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦4358b8014⟧ Bits:30009669 Philips computer tape "600124"
└─⟦this⟧ »MON10/DRDY01.SC«
└─⟦79fbed147⟧ Bits:30009697 Philips computer tape "600414"
└─⟦this⟧ »M:DECE/DRDY01.SC«
└─⟦bf903a231⟧ Bits:30009665 Philips computer tape "600109"
└─⟦this⟧ »MON10/DRDY01.SC«
IDENT DRDY01 REL 10.0 80-06-09 870105041000 =9,BYTE COUNTER RESET IN RECOVERY REL 10.0 80-05-19 =8,MMU BUFFER SIZE CHANGED REL 10.0 80-03-14 =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE PRR 10.0 79-12-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 DISIOE I/O REQUEST ERROR EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN TDISP DISPATCHER EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN EXTRN TENDIO END I/O EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER EJECT * ************************ * DWT PARAMETERS * ************************ * EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTOR ORDER * 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 0 * * BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 * X:B EQU 1 WHATDY EQU 1 * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 0 LOWCHA EQU 1 * * * 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 0 * * BY SETTING THE CONSTANT TRASPA = 1 IT IS * POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. * X:E EQU 0 TRASPA EQU 1 EJECT * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING X:F EQU 0 STEADY EQU 0 * * THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT * BY SETTING MMUPAG = 1 * MMUPAG EQU 1 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 0 * * 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 0 * * MEMORY MANAGEMENT BUFFER SIZE * * X:H EQU 80 =8 DVBLEN EQU 130 * 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 START+/12 HEAD POSITION POINTER DWTPOS EQU START+/15 POSITIONS DWTLIN EQU START+/14 LINES DWTBIN EQU START+/16 BUFFER INDEX * 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 LDR A7,A7 ORDER 0 ? ABL(E) ADY410 YES LDK A2,STX START OF MESSAGE CF A5,OUTPUT SEND IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAPHIC DISPLAY RF(E) ACDY02 NO IFT GRAFIC=1 CWK A7,7 ORDER ' ? ABL(E) ADY500 XIF IFT WHATDY=0 LDK A2,/12 INDICATE SWITCH TO ALPHA MODE CF A5,OUTPUT * XIF * ACDY02 EQU * CWK A7,5 ORDER 5 RF(E) ACDY90 YES SUK A7,6 ORDER 6 ? RF(E) ACDY20 YES SUK A7,5 ORDER /B ? ABL(E) ADY200 YES SUK A7,/26 ORDER ERASE ? ABL(E) ADY160 YES * DYERR ABL DISIOE 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+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,A6 LINES CC A1,DWTAP,A6 LAST LINE ? RF(L) ACDY55 LDKL A2,/100 INCREMENT LINE COUNTER ADS A2,DWTAP,A6 ACDY55 LDK A2,LF LINE FEED TO SEND RB ACDY50 ACDY65 LDK A2,CLEHOM CLEAR AND HOME LDK A1,1 SC A1,DWTAP,A6 RESET LINE COUNTER RB ACDY35 EJECT * * GET, CHECK AND SEND CHARACTER * (IF ORDER 5 NO CHECK) * ACDY70 EQU * IFT WHATDY=0 LDR* A4,A6 GET CHANNEL PARAMETER ANK A4,/10 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 SUK A7,5 ORDER 5? 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! LDR* A7,A6 CHANNEL PARAMETER ANK A7,/30 GRAFIC DISPLAY ? RF(E) ADY110 NO LDK A1,5 SET TABLE PONTER ADY110 CC A2,TABSPE,A1 CHARACTER FOUND RF(NE) ADY128 CCK A2,/1E1E LOW INTENSITY ? RF(NE) ADY122 NO LDK A4,/80 ADY120 ORRS A4,A6 SET LOW INTENSITY MODE 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 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 RB(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,A6 AD A2,DWTAP,A6 GET POSITION ANK A2,/FF ADR A2,A4 ADD LENGTH OF REQUEST LD A3,DWTPOS,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+1,A6 SUR A2,A4 SUBTRACT HEAD POSITION POINTER LC A4,DWTBC,A6 SUR A2,A4 AND REQUESTS POSITION COUNTER TO GET NUMBER OF SPACES TO SEND RB(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 LDK A2,ETB CF A5,OUTPUT 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,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,A6 OUTSIDE SCREEN? RF(NG) ADY207 NO! LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE ADY207 EQU * LC A3,DWTAP,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,A6 RESET POSITION RB ADY230 * * GET POSITION * ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER LC A4,11,A8 GET REQUESTED POSITION CC A4,DWTPOS,A6 OUTSIDE SCREEN? RF(NG) ADY303 NO! LC A4,DWTPOS,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+1,A6 GET ACTUAL POSITION CC A3,DWTPOS,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+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 * LDR* A1,A6 GET CHANNEL PARAMETER ANK A1,/30 6344 ? RF(NE) ADY407 NO LDR* A1,A6 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 * LDK A2,ETB END OF TEXT MESSAGE CF A5,OUTPUT SEND CHARACTER CF A15,UPDAPP UPDATE HEAD POSITION COUNTER ADY410 LDK A2,ETX LAST DUMMY CF A5,OUTPUT SEND DUMMY SUK A7,/31 =7 RF(Z) ADY415 ORDER ERASE =7 LD A4,DWTAP,A6 GET CURSOR POSITION =4 ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 ADY415 EQU * ADK A7,/31-5 =7 RF(NE) ADY420 NOT ORDER BASIC WRITE LDKL A4,/101 HOME POSITION ST A4,DWTAP,A6 ADY420 EQU * ENDIO CF A15,TENDIO END I/O EXIT ABL TDISP GO TO DISPATCHER * 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,A6 GET POSITION COUNTER ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER LDK A3,0 SC A3,DWTBC,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,A6 GET POSITION POINTER ANK A2,/FF AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER ANK A2,/FF CC A2,DWTPOS,A6 END OF ROW ? RF(P) POSU10 IM DWTST,A6 INCREMENT POSITION COUNTER 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 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 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 * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * =3 LDKL A2,/7FFF ANS A2,DWTST,A6 SET BUSY =1 =1 =1 =1 =1 =1 =1 =1 * IFT WHATDY=0 * LDR* A2,A6 CHANNEL PARAMETER ANK A2,/10 GRAPHIC DISPLAY ? RF(E) RCDY10 NO LDK A2,RETURN RETURN TO ALPHANUMERIC MODE CF A5,OUTPUT * XIF * EJECT RCDY10 EQU * LDK A2,/00 DUMMY TO SEND CF A5,OUTPUT LDR A4,A4 LRC-ERROR IN BLOCK ? RF(NE) RCDY20 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,A6 SET HEAD LINE-AND-POSITION COUNTER LDK A2,0 =9 SC A2,DWTBC,A6 RESET BYTE COUNTER =9 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 * SUK A7,5 ORDER 5 ? RF(NE) RCDY25 NO LDK A1,2 INDICATE THROUGHPUT ERROR RB RCDY15 RCDY25 LDK A2,STX START OF MESSAGE CF A5,OUTPUT LC A4,DWTBC,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 * 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 ECDY10 CF A5,OUTPUT SEND CHARACTER CF A15,POSUPD POSITION COUNTER UPDATING RF ECDY20 ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER ECDY20 ABL ECHRTN RETURN TO KEYBOARD * * BACKSPACE * ECDY40 EQU * LC A4,DWTBC,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION LDK A4,1 INDICATE ONE BACKSTEP CF A5,BACCAN BACK RB ECDY20 EJECT * * CLEAR * ECDY50 EQU * LC A4,DWTBC,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION IFT WHATDY=0 LDR* A1,A6 GET CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY RF(E) ECDY60 N CF A5,BACCAN BACK RB ECDY20 XIF ECDY60 LDR A3,A4 SAVE POSITION COUNTER LD A4,DWTAP,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,A6 RESET POSITION COUNTER 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,A6 GET POSITION COUNTER ANK A2,/FF AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER ANK A2,/FF CC A2,DWTPOS,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,DWTST,A6 UPDATE POSITION COUNTER 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,A6 GET HEAD POSITION AD A2,DWTAP,A6 ANK A2,/FF ADR A3,A4 UPDATE BUFFER-INDEX ST A3,DWTBIN,A6 SAVE INDEX LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE SUR A3,A2 AND COMPARE SUR A3,A4 RF(NN) HIT ADR A4,A3 ADK A4,1 HIT ADS A4,DWTST,A6 UPDATE POSITION *********************** * EXECUTE FAST OUTPUT * LDR A3,A7 GET CHAR TO SEND CF A5,FASTER ************** * SET CURSOR * LD A4,DWTST,A6 GET ACTUAL POS ANK A4,/FF AD A4,DWTAP,A6 INC HEAD POS POINTER CF A5,CURPOS ***************************** * RESTORE A3 (BUFFER INDEX) * LD A3,DWTBIN,A6 RESTORE BUFFER INDEX SUK A3,1 ABL ACDY90 READ NEXT CHAR * NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER 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,A6 MAX CHAR. =2 ANK A2,/FF GET MAX CHAR. =2 LC A3,DWTAP+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 10.0 80-06-09 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…006a Head {h00=0x0028, h01=0x0050, text=» =9,BYTE COUNTER RESET IN RECOVERY«, t00=0x0000, t01=0x0042}
0x006a…0086 Head {h00=0x0018, h01=0x0050, text=» REL 10.0 80-05-19«, t00=0x0000, t01=0x006e}
0x0086…00ac Head {h00=0x0022, h01=0x0050, text=» =8,MMU BUFFER SIZE CHANGED «, t00=0x0000, t01=0x008a}
0x00ac…00c8 Head {h00=0x0018, h01=0x0050, text=» REL 10.0 80-03-14«, t00=0x0000, t01=0x00b0}
0x00c8…00fa Head {h00=0x002e, h01=0x0050, text=» =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE «, t00=0x0000, t01=0x00cc}
0x00fa…0116 Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 79-12-07«, t00=0x0000, t01=0x00fe}
0x0116…014e Head {h00=0x0034, h01=0x0050, text=» =6,CORRECTION OF SPECIAL CHARTACTER HANDLING «, t00=0x0000, t01=0x011a}
0x014e…016a Head {h00=0x0018, h01=0x0050, text=» REL 10.1 79-10-19«, t00=0x0000, t01=0x0152}
0x016a…0186 Head {h00=0x0018, h01=0x0050, text=» =5,ABORT ROUTINE «, t00=0x0000, t01=0x016e}
0x0186…01a2 Head {h00=0x0018, h01=0x0050, text=» REL 10.1 79-10-15«, t00=0x0000, t01=0x018a}
0x01a2…01c4 Head {h00=0x001e, h01=0x0050, text=» =4,CORRECTION OF ERASE «, t00=0x0001, t01=0x0016}
0x01c4…01e0 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0001, t01=0x0038}
0x01e0…020e Head {h00=0x002a, h01=0x0050, text=» =3,STEADY CURSOR PROBLEM CORRECTED «, t00=0x0001, t01=0x0054}
0x020e…022a Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-06 «, t00=0x0001, t01=0x0082}
0x022a…025a Head {h00=0x002c, h01=0x0050, text=» =2,ERASE ONLY TO LAST POS. OF SCREEN «, t00=0x0001, t01=0x009e}
0x025a…0276 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-31 «, t00=0x0001, t01=0x00ce}
0x0276…02a8 Head {h00=0x002e, h01=0x0050, text=» =1 DRIVER ADAPTAD TO HANDLE PTS 6385 «, t00=0x0001, t01=0x00ea}
0x02a8…02c4 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-12 «, t00=0x0001, t01=0x011c}
0x02c4…02cc Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x0138}
0x02cc…02d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0140}
0x02d6…0310 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x014a}
0x0310…031a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0184}
0x031a…0342 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x018e}
0x0342…034c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0026}
0x034c…0382 Head {h00=0x0032, h01=0x0050, text=»* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY «, t00=0x0002, t01=0x0030}
0x0382…038c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0066}
0x038c…0396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0070}
0x0396…03a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x007a}
0x03a0…03aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0084}
0x03aa…03b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x008e}
0x03b4…03be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0098}
0x03be…03f8 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x00a2}
0x03f8…0402 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00dc}
0x0402…040c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00e6}
0x040c…044a Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS «, t00=0x0002, t01=0x00f0}
0x044a…048e Head {h00=0x0040, h01=0x0050, text=»* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 «, t00=0x0002, t01=0x012e}
0x048e…04a8 Head {h00=0x0016, h01=0x0050, text=»* AND PTS 6386 «, t00=0x0002, t01=0x0172}
0x04a8…04e2 Head {h00=0x0036, h01=0x0050, text=»* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM «, t00=0x0002, t01=0x018c}
0x04e2…0500 Head {h00=0x001a, h01=0x0050, text=»* VIA CHLT OR CHRT.«, t00=0x0003, t01=0x0036}
0x0500…050a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0054}
0x050a…054a Head {h00=0x003c, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS«, t00=0x0003, t01=0x005e}
0x054a…0588 Head {h00=0x003a, h01=0x0050, text=»* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN «, t00=0x0003, t01=0x009e}
0x0588…05c6 Head {h00=0x003a, h01=0x0050, text=»* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE «, t00=0x0003, t01=0x00dc}
0x05c6…05f2 Head {h00=0x0028, h01=0x0050, text=»* GENERAL KEYBOARD DRIVER DRKB01.«, t00=0x0003, t01=0x011a}
0x05f2…05fc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0146}
0x05fc…0606 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0150}
0x0606…063a Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0003, t01=0x015a}
0x063a…0644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x018e}
0x0644…066e Head {h00=0x0026, h01=0x0050, text=»* A C D Y ACTIVATION PART«, t00=0x0004, t01=0x0008}
0x066e…0678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0032}
0x0678…06a4 Head {h00=0x0028, h01=0x0050, text=»* I H D Y INTERRUPT HANDLER«, t00=0x0004, t01=0x003c}
0x06a4…06ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0068}
0x06ae…06da Head {h00=0x0028, h01=0x0050, text=»* R C D Y RECOVERY ROUTINE «, t00=0x0004, t01=0x0072}
0x06da…06e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x009e}
0x06e4…070e Head {h00=0x0026, h01=0x0050, text=»* E C H O D Y ECHO FUNCTIONS «, t00=0x0004, t01=0x00a8}
0x070e…0718 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00d2}
0x0718…0720 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00dc}
0x0720…0728 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00e4}
0x0728…0730 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x00ec}
0x0730…073a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00f4}
0x073a…0768 Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0004, t01=0x00fe}
0x0768…0772 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x012c}
0x0772…0794 Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0004, t01=0x0136}
0x0794…07b6 Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0004, t01=0x0158}
0x07b6…07dc Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0004, t01=0x017a}
0x07dc…0808 Head {h00=0x0028, h01=0x0050, text=»* 07: WRITE GRAPHIC DISPLAY«, t00=0x0005, t01=0x0010}
0x0808…0832 Head {h00=0x0026, h01=0x0050, text=»* 0B: CURSOR POSITIONING «, t00=0x0005, t01=0x003c}
0x0832…084e Head {h00=0x0018, h01=0x0050, text=»* 31: ERASE«, t00=0x0005, t01=0x0066}
0x084e…0858 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0082}
0x0858…087a Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0005, t01=0x008c}
0x087a…0884 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00ae}
0x0884…08aa Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0005, t01=0x00b8}
0x08aa…08d6 Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0005, t01=0x00de}
0x08d6…08fe Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0005, t01=0x010a}
0x08fe…0926 Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0005, t01=0x0132}
0x0926…094c Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0005, t01=0x015a}
0x094c…0972 Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0005, t01=0x0180}
0x0972…0992 Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0006, t01=0x0016}
0x0992…09b8 Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0006, t01=0x0036}
0x09b8…09c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x005c}
0x09c2…09d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0006, t01=0x0066}
0x09d0…09da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0074}
0x09da…09e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x007e}
0x09e4…0a02 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0006, t01=0x0088}
0x0a02…0a0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00a6}
0x0a0c…0a4c Head {h00=0x003c, h01=0x0050, text=»* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. «, t00=0x0006, t01=0x00b0}
0x0a4c…0a56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00f0}
0x0a56…0a84 Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x00fa}
0x0a84…0a9e Head {h00=0x0016, h01=0x0050, text=»* BIT: 10 11«, t00=0x0006, t01=0x0128}
0x0a9e…0ab8 Head {h00=0x0016, h01=0x0050, text=»* --------------«, t00=0x0006, t01=0x0142}
0x0ab8…0ade Head {h00=0x0022, h01=0x0050, text=»* 0 0 PTS 6344«, t00=0x0006, t01=0x015c}
0x0ade…0b0c Head {h00=0x002a, h01=0x0050, text=»* 0 1 PTS 6351 & 6342 «, t00=0x0006, t01=0x0182}
0x0b0c…0b3a Head {h00=0x002a, h01=0x0050, text=»* 1 0 PTS 6386 & 6385 «, t00=0x0007, t01=0x0020}
0x0b3a…0b68 Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0007, t01=0x004e}
0x0b68…0b72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x007c}
0x0b72…0bac Head {h00=0x0036, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0007, t01=0x0086}
0x0bac…0be4 Head {h00=0x0034, h01=0x0050, text=»* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT «, t00=0x0007, t01=0x00c0}
0x0be4…0c14 Head {h00=0x002c, h01=0x0050, text=»* -IS ADAPTED TO CONTROL ONLY PTS 6344«, t00=0x0007, t01=0x00f8}
0x0c14…0c52 Head {h00=0x003a, h01=0x0050, text=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7«, t00=0x0007, t01=0x0128}
0x0c52…0c8e Head {h00=0x0038, h01=0x0050, text=»* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x0166}
0x0c8e…0cb8 Head {h00=0x0026, h01=0x0050, text=»* -CAN SUPPRESS TRAILING BLANKS «, t00=0x0008, t01=0x0012}
0x0cb8…0d02 Head {h00=0x0046, h01=0x0050, text=»* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)«, t00=0x0008, t01=0x003c}
0x0d02…0d10 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0008, t01=0x0086}
0x0d10…0d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0094}
0x0d1a…0d24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x009e}
0x0d24…0d2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00a8}
0x0d2e…0d38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00b2}
0x0d38…0d4c Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x00bc}
0x0d4c…0d60 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x00d0}
0x0d60…0d74 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x00e4}
0x0d74…0d7e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7e…0d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0102}
0x0d88…0d92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d92…0dbe Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0008, t01=0x0116}
0x0dbe…0df2 Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x0142}
0x0df2…0dfc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0176}
0x0dfc…0e06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0180}
0x0e06…0e10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x018a}
0x0e10…0e1a (9, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0004}
0x0e1a…0e4c Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x000e}
0x0e4c…0e7e Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0009, t01=0x0040}
0x0e7e…0eb0 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0009, t01=0x0072}
0x0eb0…0eba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00a4}
0x0eba…0ec4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x00ae}
0x0ec4…0eec Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0009, t01=0x00b8}
0x0eec…0f1e Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0009, t01=0x00e0}
0x0f1e…0f3e Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0009, t01=0x0112}
0x0f3e…0f80 Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0009, t01=0x0132}
0x0f80…0f9e Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x0174}
0x0f9e…0fd0 (10, 0, 400) Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x000a, t01=0x0004}
0x0fd0…1004 Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x000a, t01=0x0036}
0x1004…1038 Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x000a, t01=0x006a}
0x1038…1046 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x009e}
0x1046…1050 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ac}
0x1050…1070 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x00b6}
0x1070…1090 Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x000a, t01=0x00d6}
0x1090…10b0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x00f6}
0x10b0…10ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0116}
0x10ba…10d6 Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x0120}
0x10d6…10f8 Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x013c}
0x10f8…1112 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x015e}
0x1112…111c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0178}
0x111c…112a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0182}
0x112a…1140 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0190}
0x1140…1156 Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000b, t01=0x0016}
0x1156…116c Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000b, t01=0x002c}
0x116c…1176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000b, t01=0x0042}
0x1176…1198 Head {h00=0x001e, h01=0x0050, text=»FASTO EQU /14 FAST OUTPUT «, t00=0x000b, t01=0x004c}
0x1198…11c0 Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000b, t01=0x006e}
0x11c0…11e6 Head {h00=0x0022, h01=0x0050, text=»ULSTAR EQU /12 UNDERLINE START«, t00=0x000b, t01=0x0096}
0x11e6…120c Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000b, t01=0x00bc}
0x120c…1236 Head {h00=0x0026, h01=0x0050, text=»LISTAR EQU /1E LOW INTENSITY START«, t00=0x000b, t01=0x00e2}
0x1236…1260 Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000b, t01=0x010c}
0x1260…1280 Head {h00=0x001c, h01=0x0050, text=»BACKSP EQU /08 BACKSPACE«, t00=0x000b, t01=0x0136}
0x1280…129c Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x0156}
0x129c…12bc Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000b, t01=0x0172}
0x12bc…12e8 (12, 0, 400) Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000c, t01=0x0004}
0x12e8…130a Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000c, t01=0x0030}
0x130a…132e Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000c, t01=0x0052}
0x132e…134a Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000c, t01=0x0076}
0x134a…136e Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000c, t01=0x0092}
0x136e…1390 Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000c, t01=0x00b6}
0x1390…13ae Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000c, t01=0x00d8}
0x13ae…13e0 Head {h00=0x002e, h01=0x0050, text=»RETURN EQU /12 RETURN TO ALPHANUMERIC MODE«, t00=0x000c, t01=0x00f6}
0x13e0…140e Head {h00=0x002a, h01=0x0050, text=»ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE «, t00=0x000c, t01=0x0128}
0x140e…1434 Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x000c, t01=0x0156}
0x1434…146a Head {h00=0x0032, h01=0x0050, text=»EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT «, t00=0x000c, t01=0x017c}
0x146a…148e Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000d, t01=0x0022}
0x148e…14b6 Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x000d, t01=0x0046}
0x14b6…14c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x006e}
0x14c0…14dc Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0078}
0x14dc…14f8 Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x000d, t01=0x0094}
0x14f8…1514 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x00b0}
0x1514…151e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00cc}
0x151e…1544 Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000d, t01=0x00d6}
0x1544…1570 Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000d, t01=0x00fc}
0x1570…157a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0128}
0x157a…1588 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0132}
0x1588…1592 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0140}
0x1592…159c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x014a}
0x159c…15ce Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x0154}
0x15ce…1600 Head {h00=0x002e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000d, t01=0x0186}
0x1600…1632 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000e, t01=0x0028}
0x1632…163c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x005a}
0x163c…1646 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0064}
0x1646…1692 Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 «, t00=0x000e, t01=0x006e}
0x1692…169c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ba}
0x169c…16ae Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000e, t01=0x00c4}
0x16ae…16c2 Head {h00=0x0010, h01=0x0050, text=»GRAFIC EQU 0«, t00=0x000e, t01=0x00d6}
0x16c2…16cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ea}
0x16cc…170c Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000e, t01=0x00f4}
0x170c…1716 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0134}
0x1716…1728 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x013e}
0x1728…173c Head {h00=0x0010, h01=0x0050, text=»WHATDY EQU 1«, t00=0x000e, t01=0x0150}
0x173c…1746 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0164}
0x1746…1750 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x016e}
0x1750…178c Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x0178}
0x178c…17b6 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000f, t01=0x0024}
0x17b6…17c8 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000f, t01=0x004e}
0x17c8…17dc Head {h00=0x0010, h01=0x0050, text=»LOWCHA EQU 1«, t00=0x000f, t01=0x0060}
0x17dc…17e6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0074}
0x17e6…17f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x007e}
0x17f0…182c Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000f, t01=0x0088}
0x182c…1868 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000f, t01=0x00c4}
0x1868…18a4 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000f, t01=0x0100}
0x18a4…18ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x013c}
0x18ae…18c0 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x0146}
0x18c0…18d4 Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000f, t01=0x0158}
0x18d4…18de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016c}
0x18de…1912 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x0176}
0x1912…1956 Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x0010, t01=0x001a}
0x1956…1960 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x005e}
0x1960…1972 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x0010, t01=0x0068}
0x1972…1986 Head {h00=0x0010, h01=0x0050, text=»TRASPA EQU 1«, t00=0x0010, t01=0x007a}
0x1986…1994 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x008e}
0x1994…199e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x009c}
0x199e…19d4 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x0010, t01=0x00a6}
0x19d4…19f4 Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x0010, t01=0x00dc}
0x19f4…1a06 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x0010, t01=0x00fc}
0x1a06…1a1a Head {h00=0x0010, h01=0x0050, text=»STEADY EQU 0«, t00=0x0010, t01=0x010e}
0x1a1a…1a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0122}
0x1a24…1a64 Head {h00=0x003c, h01=0x0050, text=»* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT«, t00=0x0010, t01=0x012c}
0x1a64…1a86 Head {h00=0x001e, h01=0x0050, text=»* BY SETTING MMUPAG = 1 «, t00=0x0010, t01=0x016c}
0x1a86…1a90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x018e}
0x1a90…1aa4 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 1«, t00=0x0011, t01=0x0008}
0x1aa4…1aae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001c}
0x1aae…1ab8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0026}
0x1ab8…1af2 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0011, t01=0x0030}
0x1af2…1b24 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0011, t01=0x006a}
0x1b24…1b2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x009c}
0x1b2e…1b42 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 0«, t00=0x0011, t01=0x00a6}
0x1b42…1b4c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x00ba}
0x1b4c…1b88 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0011, t01=0x00c4}
0x1b88…1bc8 Head {h00=0x003c, h01=0x0050, text=»* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.«, t00=0x0011, t01=0x0100}
0x1bc8…1bd0 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0140}
0x1bd0…1bd8 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0148}
0x1bd8…1bee Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x0011, t01=0x0150}
0x1bee…1bf6 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0166}
0x1bf6…1c0a Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x0011, t01=0x016e}
0x1c0a…1c1e Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0011, t01=0x0182}
0x1c1e…1c32 Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0012, t01=0x0008}
0x1c32…1c40 Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0012, t01=0x001c}
0x1c40…1c50 Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0012, t01=0x002a}
0x1c50…1c60 Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0012, t01=0x003a}
0x1c60…1c70 Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0012, t01=0x004a}
0x1c70…1c7e Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0012, t01=0x005a}
0x1c7e…1c8c Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0012, t01=0x0068}
0x1c8c…1c9a Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0012, t01=0x0076}
0x1c9a…1cac Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0012, t01=0x0084}
0x1cac…1cc2 Head {h00=0x0012, h01=0x0050, text=»COUNTRY EQU 0 «, t00=0x0012, t01=0x0096}
0x1cc2…1ccc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ac}
0x1ccc…1cf6 Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0012, t01=0x00b6}
0x1cf6…1d00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00e0}
0x1d00…1d0a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00ea}
0x1d0a…1d20 Head {h00=0x0012, h01=0x0050, text=»X:H EQU 80 =8«, t00=0x0012, t01=0x00f4}
0x1d20…1d36 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 130«, t00=0x0012, t01=0x010a}
0x1d36…1d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0120}
0x1d40…1d4e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x012a}
0x1d4e…1d58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0138}
0x1d58…1d62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0142}
0x1d62…1d8a Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x014c}
0x1d8a…1db2 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0012, t01=0x0174}
0x1db2…1dda Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0013, t01=0x000c}
0x1dda…1de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0034}
0x1de4…1dee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1dee…1e22 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0013, t01=0x0048}
0x1e22…1e2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x007c}
0x1e2c…1e42 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0086}
0x1e42…1e5a Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x009c}
0x1e5a…1e66 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00b4}
0x1e66…1e70 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00c0}
0x1e70…1e86 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x00ca}
0x1e86…1ea0 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x00e0}
0x1ea0…1eac Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x00fa}
0x1eac…1eb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0106}
0x1eb6…1ee8 Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0013, t01=0x0110}
0x1ee8…1f0e Head {h00=0x0022, h01=0x0050, text=»DWTPOS EQU START+/15 POSITIONS«, t00=0x0013, t01=0x0142}
0x1f0e…1f30 Head {h00=0x001e, h01=0x0050, text=»DWTLIN EQU START+/14 LINES«, t00=0x0013, t01=0x0168}
0x1f30…1f5a Head {h00=0x0026, h01=0x0050, text=»DWTBIN EQU START+/16 BUFFER INDEX «, t00=0x0013, t01=0x018a}
0x1f5a…1f64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0024}
0x1f64…1f72 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x002e}
0x1f72…1f7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x003c}
0x1f7c…1f86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0046}
0x1f86…1f98 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0050}
0x1f98…1faa Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0014, t01=0x0062}
0x1faa…1fbc Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0014, t01=0x0074}
0x1fbc…1fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0086}
0x1fc6…1fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0090}
0x1fd0…1ff2 Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0014, t01=0x009a}
0x1ff2…200e Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0014, t01=0x00bc}
0x200e…202e Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0014, t01=0x00d8}
0x202e…2052 Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0014, t01=0x00f8}
0x2052…207a Head {h00=0x0024, h01=0x0050, text=» DATA ABDY ABORT ROUTINE ADDRESS«, t00=0x0014, t01=0x011c}
0x207a…209e Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0014, t01=0x0144}
0x209e…20c2 Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0014, t01=0x0168}
0x20c2…20f4 Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x018c}
0x20f4…20fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x002e}
0x20fe…2108 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0038}
0x2108…2138 Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0015, t01=0x0042}
0x2138…2158 Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0015, t01=0x0072}
0x2158…2166 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0092}
0x2166…2170 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00a0}
0x2170…2184 Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0015, t01=0x00aa}
0x2184…218e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00be}
0x218e…21bc Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0015, t01=0x00c8}
0x21bc…21c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f6}
0x21c6…2212 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0015, t01=0x0100}
0x2212…2248 Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0015, t01=0x014c}
0x2248…2252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0182}
0x2252…225c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x018c}
0x225c…229e Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0016, t01=0x0008}
0x229e…22d8 Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0016, t01=0x004a}
0x22d8…22e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0084}
0x22e2…232c Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0016, t01=0x008e}
0x232c…236c Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0016, t01=0x00d8}
0x236c…2376 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0118}
0x2376…23c6 Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0016, t01=0x0122}
0x23c6…2414 Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0016, t01=0x0172}
0x2414…245e Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0017, t01=0x0030}
0x245e…2468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x007a}
0x2468…247e Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0017, t01=0x0084}
0x247e…24c4 Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0017, t01=0x009a}
0x24c4…2508 Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0017, t01=0x00e0}
0x2508…2536 Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0017, t01=0x0124}
0x2536…2540 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0152}
0x2540…254c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x015c}
0x254c…258a Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0017, t01=0x0168}
0x258a…25ca Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0018, t01=0x0016}
0x25ca…260c Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0018, t01=0x0056}
0x260c…2650 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0018, t01=0x0098}
0x2650…2674 Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0018, t01=0x00dc}
0x2674…267e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0100}
0x267e…26be Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0018, t01=0x010a}
0x26be…26fe Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0018, t01=0x014a}
0x26fe…2742 Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0018, t01=0x018a}
0x2742…2786 Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0019, t01=0x003e}
0x2786…27c4 Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0019, t01=0x0082}
0x27c4…27f2 Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0019, t01=0x00c0}
0x27f2…2804 Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0019, t01=0x00ee}
0x2804…2828 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0019, t01=0x0100}
0x2828…2842 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0019, t01=0x0124}
0x2842…285e Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0019, t01=0x013e}
0x285e…2878 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0019, t01=0x015a}
0x2878…289c Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0019, t01=0x0174}
0x289c…28b6 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x001a, t01=0x0008}
0x28b6…28cc Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001a, t01=0x0022}
0x28cc…28f2 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x001a, t01=0x0038}
0x28f2…2916 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x001a, t01=0x005e}
0x2916…292e Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x001a, t01=0x0082}
0x292e…2944 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x001a, t01=0x009a}
0x2944…2960 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x001a, t01=0x00b0}
0x2960…2976 Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x001a, t01=0x00cc}
0x2976…2982 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00e2}
0x2982…2998 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001a, t01=0x00ee}
0x2998…29ca Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x001a, t01=0x0104}
0x29ca…29e0 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x0136}
0x29e0…29ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x014c}
0x29ea…29f6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0156}
0x29f6…2a00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0162}
0x2a00…2a14 Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x001a, t01=0x016c}
0x2a14…2a2e Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x001a, t01=0x0180}
0x2a2e…2a48 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x001b, t01=0x000a}
0x2a48…2a64 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x001b, t01=0x0024}
0x2a64…2a7e Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x001b, t01=0x0040}
0x2a7e…2a9a Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x001b, t01=0x005a}
0x2a9a…2ab4 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x001b, t01=0x0076}
0x2ab4…2ad6 Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x001b, t01=0x0090}
0x2ad6…2af0 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x001b, t01=0x00b2}
0x2af0…2afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00cc}
0x2afa…2b24 Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x001b, t01=0x00d6}
0x2b24…2b32 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0100}
0x2b32…2b70 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x001b, t01=0x010e}
0x2b70…2b8e Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x001b, t01=0x014c}
0x2b8e…2bc2 Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x001b, t01=0x016a}
0x2bc2…2be8 Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x001c, t01=0x000e}
0x2be8…2c2e Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x001c, t01=0x0034}
0x2c2e…2c50 Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x001c, t01=0x007a}
0x2c50…2c5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x009c}
0x2c5a…2c6e Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x001c, t01=0x00a6}
0x2c6e…2c96 Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x001c, t01=0x00ba}
0x2c96…2cac Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x001c, t01=0x00e2}
0x2cac…2cd0 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001c, t01=0x00f8}
0x2cd0…2cf6 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x001c, t01=0x011c}
0x2cf6…2d20 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x0142}
0x2d20…2d34 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x016c}
0x2d34…2d48 Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x001c, t01=0x0180}
0x2d48…2d76 (29, 0, 400) Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x001d, t01=0x0004}
0x2d76…2d8c Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x001d, t01=0x0032}
0x2d8c…2da4 Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x001d, t01=0x0048}
0x2da4…2dba Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x001d, t01=0x0060}
0x2dba…2dde Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x001d, t01=0x0076}
0x2dde…2e04 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x001d, t01=0x009a}
0x2e04…2e1a Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x001d, t01=0x00c0}
0x2e1a…2e46 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x001d, t01=0x00d6}
0x2e46…2e4e Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0102}
0x2e4e…2e56 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x010a}
0x2e56…2e7e Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x001d, t01=0x0112}
0x2e7e…2e96 Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x001d, t01=0x013a}
0x2e96…2ecc Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x001d, t01=0x0152}
0x2ecc…2f08 Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x001d, t01=0x0188}
0x2f08…2f12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0034}
0x2f12…2f26 Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x001e, t01=0x003e}
0x2f26…2f4a Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001e, t01=0x0052}
0x2f4a…2f62 Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x001e, t01=0x0076}
0x2f62…2f8c Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001e, t01=0x008e}
0x2f8c…2faa Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001e, t01=0x00b8}
0x2faa…2fce Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001e, t01=0x00d6}
0x2fce…2fe4 Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001e, t01=0x00fa}
0x2fe4…3010 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001e, t01=0x0110}
0x3010…3028 Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001e, t01=0x013c}
0x3028…3052 Head {h00=0x0026, h01=0x0050, text=»ACDY55 LDK A2,LF LINE FEED TO SEND«, t00=0x001e, t01=0x0154}
0x3052…3064 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001e, t01=0x017e}
0x3064…3090 Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001e, t01=0x0190}
0x3090…30a2 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001f, t01=0x002c}
0x30a2…30cc Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001f, t01=0x003e}
0x30cc…30de Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001f, t01=0x0068}
0x30de…30ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001f, t01=0x007a}
0x30ec…30f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0088}
0x30f6…3120 Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001f, t01=0x0092}
0x3120…3142 Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001f, t01=0x00bc}
0x3142…314c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x00de}
0x314c…3160 Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001f, t01=0x00e8}
0x3160…3176 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001f, t01=0x00fc}
0x3176…31a0 Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001f, t01=0x0112}
0x31a0…31b4 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001f, t01=0x013c}
0x31b4…31dc Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001f, t01=0x0150}
0x31dc…31e8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x0178}
0x31e8…31fc Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001f, t01=0x0184}
0x31fc…3232 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x0020, t01=0x0008}
0x3232…325a Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x0020, t01=0x003e}
0x325a…3274 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x0020, t01=0x0066}
0x3274…3288 Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x0020, t01=0x0080}
0x3288…329e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0020, t01=0x0094}
0x329e…32d4 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0020, t01=0x00aa}
0x32d4…32ea Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0020, t01=0x00e0}
0x32ea…3316 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0020, t01=0x00f6}
0x3316…3342 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0020, t01=0x0122}
0x3342…336a Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x014e}
0x336a…3382 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0020, t01=0x0176}
0x3382…33a0 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0020, t01=0x018e}
0x33a0…33ba Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0021, t01=0x001c}
0x33ba…33d6 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0021, t01=0x0036}
0x33d6…33f4 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0021, t01=0x0052}
0x33f4…340e Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0021, t01=0x0070}
0x340e…342e Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0021, t01=0x008a}
0x342e…344a Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0021, t01=0x00aa}
0x344a…3462 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0021, t01=0x00c6}
0x3462…3480 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0021, t01=0x00de}
0x3480…349e Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0021, t01=0x00fc}
0x349e…34c6 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0021, t01=0x011a}
0x34c6…34e0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x0021, t01=0x0142}
0x34e0…34fa Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0021, t01=0x015c}
0x34fa…3514 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0021, t01=0x0176}
0x3514…3530 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0021, t01=0x0190}
0x3530…355c Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x0022, t01=0x001c}
0x355c…3570 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0022, t01=0x0048}
0x3570…3596 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x0022, t01=0x005c}
0x3596…35ba Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x0022, t01=0x0082}
0x35ba…35dc Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x0022, t01=0x00a6}
0x35dc…35f6 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x00c8}
0x35f6…3616 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x0022, t01=0x00e2}
0x3616…3630 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x0102}
0x3630…363a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x011c}
0x363a…3660 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0022, t01=0x0126}
0x3660…366c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x014c}
0x366c…3684 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x0022, t01=0x0158}
0x3684…36be Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0022, t01=0x0170}
0x36be…36e0 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0023, t01=0x001a}
0x36e0…36f8 Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x0023, t01=0x003c}
0x36f8…3712 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0023, t01=0x0054}
0x3712…3728 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x0023, t01=0x006e}
0x3728…373c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0023, t01=0x0084}
0x373c…3760 Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x0023, t01=0x0098}
0x3760…3786 Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x0023, t01=0x00bc}
0x3786…379c Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x0023, t01=0x00e2}
0x379c…37b2 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x0023, t01=0x00f8}
0x37b2…37d8 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0023, t01=0x010e}
0x37d8…37fc Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x0023, t01=0x0134}
0x37fc…3814 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x0023, t01=0x0158}
0x3814…3836 Head {h00=0x001e, h01=0x0050, text=» LDK A1,5 SET TABLE PONTER«, t00=0x0023, t01=0x0170}
0x3836…3864 (36, 0, 400) Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x0024, t01=0x0004}
0x3864…387a Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x0024, t01=0x0032}
0x387a…38a0 Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x0024, t01=0x0048}
0x38a0…38ba Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x0024, t01=0x006e}
0x38ba…38ce Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0024, t01=0x0088}
0x38ce…38fe Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0024, t01=0x009c}
0x38fe…3910 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x00cc}
0x3910…3922 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0024, t01=0x00de}
0x3922…394a Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0024, t01=0x00f0}
0x394a…3960 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0024, t01=0x0118}
0x3960…3986 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0024, t01=0x012e}
0x3986…3998 Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0024, t01=0x0154}
0x3998…39c2 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0024, t01=0x0166}
0x39c2…39d4 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x0190}
0x39d4…39ee Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0025, t01=0x0012}
0x39ee…3a00 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0025, t01=0x002c}
0x3a00…3a2c Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0025, t01=0x003e}
0x3a2c…3a3e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0025, t01=0x006a}
0x3a3e…3a50 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0025, t01=0x007c}
0x3a50…3a6e Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0025, t01=0x008e}
0x3a6e…3a90 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0025, t01=0x00ac}
0x3a90…3aaa Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0025, t01=0x00ce}
0x3aaa…3ab4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x00e8}
0x3ab4…3aca Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0025, t01=0x00f2}
0x3aca…3af4 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0025, t01=0x0108}
0x3af4…3b08 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0025, t01=0x0132}
0x3b08…3b3e Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0025, t01=0x0146}
0x3b3e…3b4a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x017c}
0x3b4a…3b60 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0025, t01=0x0188}
0x3b60…3b76 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0026, t01=0x000e}
0x3b76…3b8a Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0026, t01=0x0024}
0x3b8a…3ba8 Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0026, t01=0x0038}
0x3ba8…3bc6 Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0026, t01=0x0056}
0x3bc6…3bda Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0026, t01=0x0074}
0x3bda…3bee Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0026, t01=0x0088}
0x3bee…3c08 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0026, t01=0x009c}
0x3c08…3c2a Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0026, t01=0x00b6}
0x3c2a…3c4c Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0026, t01=0x00d8}
0x3c4c…3c70 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0026, t01=0x00fa}
0x3c70…3c86 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0026, t01=0x011e}
0x3c86…3ca8 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0026, t01=0x0134}
0x3ca8…3cce Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0026, t01=0x0156}
0x3cce…3cf2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0026, t01=0x017c}
0x3cf2…3d08 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0027, t01=0x0010}
0x3d08…3d1e Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0027, t01=0x0026}
0x3d1e…3d58 Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0027, t01=0x003c}
0x3d58…3d82 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0027, t01=0x0076}
0x3d82…3d8e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x00a0}
0x3d8e…3da0 Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0027, t01=0x00ac}
0x3da0…3daa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00be}
0x3daa…3db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x00c8}
0x3db4…3dca Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0027, t01=0x00d2}
0x3dca…3dde Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0027, t01=0x00e8}
0x3dde…3dfe Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x00fc}
0x3dfe…3e12 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0027, t01=0x011c}
0x3e12…3e2a Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0027, t01=0x0130}
0x3e2a…3e40 Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0027, t01=0x0148}
0x3e40…3e60 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x015e}
0x3e60…3e78 Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0027, t01=0x017e}
0x3e78…3e9c Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0028, t01=0x0008}
0x3e9c…3eb0 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0028, t01=0x002c}
0x3eb0…3ed8 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0028, t01=0x0040}
0x3ed8…3f00 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0028, t01=0x0068}
0x3f00…3f14 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0028, t01=0x0090}
0x3f14…3f34 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x00a4}
0x3f34…3f4e Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0028, t01=0x00c4}
0x3f4e…3f6e Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0028, t01=0x00de}
0x3f6e…3f80 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0028, t01=0x00fe}
0x3f80…3fa0 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x0110}
0x3fa0…3fd4 Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0028, t01=0x0130}
0x3fd4…3fe8 Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0028, t01=0x0164}
0x3fe8…4012 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0028, t01=0x0178}
0x4012…402a Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0029, t01=0x0012}
0x402a…4052 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0029, t01=0x002a}
0x4052…4076 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0029, t01=0x0052}
0x4076…408a Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0029, t01=0x0076}
0x408a…40ae Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0029, t01=0x008a}
0x40ae…40ca Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0029, t01=0x00ae}
0x40ca…40ee Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0029, t01=0x00ca}
0x40ee…4110 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0029, t01=0x00ee}
0x4110…4124 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0029, t01=0x0110}
0x4124…4136 Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0029, t01=0x0124}
0x4136…4142 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x0136}
0x4142…4150 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0142}
0x4150…415a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0150}
0x415a…4178 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0029, t01=0x015a}
0x4178…4182 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0178}
0x4182…4196 Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0029, t01=0x0182}
0x4196…41ac Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x002a, t01=0x0008}
0x41ac…41cc Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x002a, t01=0x001e}
0x41cc…41de Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x002a, t01=0x003e}
0x41de…41ec Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002a, t01=0x0050}
0x41ec…41f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x005e}
0x41f6…420e Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x002a, t01=0x0068}
0x420e…4218 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002a, t01=0x0080}
0x4218…422c Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x002a, t01=0x008a}
0x422c…425c Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x002a, t01=0x009e}
0x425c…426e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002a, t01=0x00ce}
0x426e…42a0 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x002a, t01=0x00e0}
0x42a0…42b2 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x002a, t01=0x0112}
0x42b2…42c4 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002a, t01=0x0124}
0x42c4…42da Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002a, t01=0x0136}
0x42da…430e Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002a, t01=0x014c}
0x430e…4320 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x0180}
0x4320…4336 (43, 0, 398) Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002b, t01=0x0004}
0x4336…4356 Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x002b, t01=0x001a}
0x4356…4388 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002b, t01=0x003a}
0x4388…43a0 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x002b, t01=0x006c}
0x43a0…43d0 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002b, t01=0x0084}
0x43d0…43fa Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002b, t01=0x00b4}
0x43fa…4410 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x002b, t01=0x00de}
0x4410…4422 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002b, t01=0x00f4}
0x4422…444c Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002b, t01=0x0106}
0x444c…4468 Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x002b, t01=0x0130}
0x4468…4498 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002b, t01=0x014c}
0x4498…44b2 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002b, t01=0x017c}
0x44b2…44cc Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002c, t01=0x0008}
0x44cc…44e0 Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x002c, t01=0x0022}
0x44e0…44ee Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002c, t01=0x0036}
0x44ee…44f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0044}
0x44f8…4516 Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x002c, t01=0x004e}
0x4516…4520 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x006c}
0x4520…4556 Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x002c, t01=0x0076}
0x4556…456c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x00ac}
0x456c…4592 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002c, t01=0x00c2}
0x4592…45b6 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002c, t01=0x00e8}
0x45b6…45d4 Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY166 YES =2 «, t00=0x002c, t01=0x010c}
0x45d4…45e0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x012a}
0x45e0…460a Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x0136}
0x460a…461e Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x002c, t01=0x0160}
0x461e…4640 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x002c, t01=0x0174}
0x4640…465a Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x002d, t01=0x0008}
0x465a…4670 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002d, t01=0x0022}
0x4670…4692 Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x002d, t01=0x0038}
0x4692…46a8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002d, t01=0x005a}
0x46a8…46c4 Head {h00=0x0018, h01=0x0050, text=»ADY166 EQU * YES =2 «, t00=0x002d, t01=0x0070}
0x46c4…46ee Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x008c}
0x46ee…46f8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x00b6}
0x46f8…4720 Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x002d, t01=0x00c0}
0x4720…4742 Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x002d, t01=0x00e8}
0x4742…475c Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x002d, t01=0x010a}
0x475c…477a Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x0124}
0x477a…478c Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x002d, t01=0x0142}
0x478c…47a6 Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x002d, t01=0x0154}
0x47a6…47d0 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x016e}
0x47d0…47f0 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 OVER EDGE =4 «, t00=0x002e, t01=0x0008}
0x47f0…480c Head {h00=0x0018, h01=0x0050, text=» RF(NN) ADY186 NO =4«, t00=0x002e, t01=0x0028}
0x480c…482e Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ADJUST LENGTH =4«, t00=0x002e, t01=0x0044}
0x482e…4842 Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x002e, t01=0x0066}
0x4842…4860 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 DECREMENT =2«, t00=0x002e, t01=0x007a}
0x4860…4890 Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002e, t01=0x0098}
0x4890…48b2 Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002e, t01=0x00c8}
0x48b2…48d0 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002e, t01=0x00ea}
0x48d0…48e8 Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002e, t01=0x0108}
0x48e8…48f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0120}
0x48f4…4902 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x012c}
0x4902…490c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x013a}
0x490c…493a Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002e, t01=0x0144}
0x493a…4944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0172}
0x4944…4958 Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002e, t01=0x017c}
0x4958…4962 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0190}
0x4962…4978 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x000a}
0x4978…499e Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002f, t01=0x0020}
0x499e…49c2 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002f, t01=0x0046}
0x49c2…49dc Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002f, t01=0x006a}
0x49dc…4a12 Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002f, t01=0x0084}
0x4a12…4a1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x00ba}
0x4a1e…4a4c Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002f, t01=0x00c6}
0x4a4c…4a7e Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002f, t01=0x00f4}
0x4a7e…4a9e Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002f, t01=0x0126}
0x4a9e…4ab0 Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002f, t01=0x0146}
0x4ab0…4ac6 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x0158}
0x4ac6…4adc Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x002f, t01=0x016e}
0x4adc…4b0a Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002f, t01=0x0184}
0x4b0a…4b32 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x0030, t01=0x0022}
0x4b32…4b4c Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x0030, t01=0x004a}
0x4b4c…4b84 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x0030, t01=0x0064}
0x4b84…4b98 Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x0030, t01=0x009c}
0x4b98…4bc0 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x0030, t01=0x00b0}
0x4bc0…4bd8 Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x0030, t01=0x00d8}
0x4bd8…4c0a Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x0030, t01=0x00f0}
0x4c0a…4c2a Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x0030, t01=0x0122}
0x4c2a…4c46 Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0030, t01=0x0142}
0x4c46…4c74 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0030, t01=0x015e}
0x4c74…4c94 Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0030, t01=0x018c}
0x4c94…4cb6 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0031, t01=0x001c}
0x4cb6…4cdc Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0031, t01=0x003e}
0x4cdc…4cee Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0031, t01=0x0064}
0x4cee…4d00 Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0031, t01=0x0076}
0x4d00…4d20 Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0031, t01=0x0088}
0x4d20…4d4a Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0031, t01=0x00a8}
0x4d4a…4d70 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x0031, t01=0x00d2}
0x4d70…4d82 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0031, t01=0x00f8}
0x4d82…4d8c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x010a}
0x4d8c…4da6 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0031, t01=0x0114}
0x4da6…4db0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x012e}
0x4db0…4de6 Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x0031, t01=0x0138}
0x4de6…4e12 Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x0031, t01=0x016e}
0x4e12…4e3a Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x0032, t01=0x000a}
0x4e3a…4e54 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0032, t01=0x0032}
0x4e54…4e7a Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x0032, t01=0x004c}
0x4e7a…4e8e Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0032, t01=0x0072}
0x4e8e…4eb0 Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0032, t01=0x0086}
0x4eb0…4eca Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x00a8}
0x4eca…4eea Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0032, t01=0x00c2}
0x4eea…4f04 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x00e2}
0x4f04…4f28 Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0032, t01=0x00fc}
0x4f28…4f3a Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0032, t01=0x0120}
0x4f3a…4f68 Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0032, t01=0x0132}
0x4f68…4f7a Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0032, t01=0x0160}
0x4f7a…4fae Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x0032, t01=0x0172}
0x4fae…4fd0 Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x0033, t01=0x0016}
0x4fd0…4fea Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0033, t01=0x0038}
0x4fea…4ffc Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0033, t01=0x0052}
0x4ffc…502a Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0033, t01=0x0064}
0x502a…504e Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0033, t01=0x0092}
0x504e…5068 Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0033, t01=0x00b6}
0x5068…508c Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0033, t01=0x00d0}
0x508c…50b6 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0033, t01=0x00f4}
0x50b6…50d6 Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0033, t01=0x011e}
0x50d6…50e8 Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0033, t01=0x013e}
0x50e8…511a Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0033, t01=0x0150}
0x511a…514a Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0033, t01=0x0182}
0x514a…516e Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0034, t01=0x0022}
0x516e…5190 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0034, t01=0x0046}
0x5190…51ba Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0034, t01=0x0068}
0x51ba…51cc Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0034, t01=0x0092}
0x51cc…51f2 Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0034, t01=0x00a4}
0x51f2…520c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0034, t01=0x00ca}
0x520c…522e Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0034, t01=0x00e4}
0x522e…5244 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0034, t01=0x0106}
0x5244…5280 Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0034, t01=0x011c}
0x5280…528c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0158}
0x528c…52b6 Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0034, t01=0x0164}
0x52b6…52ca Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0034, t01=0x018e}
0x52ca…52e0 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0035, t01=0x0012}
0x52e0…52ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0028}
0x52ea…5314 Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0035, t01=0x0032}
0x5314…532a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0035, t01=0x005c}
0x532a…5334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0072}
0x5334…5340 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0035, t01=0x007c}
0x5340…534a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0088}
0x534a…5358 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x0092}
0x5358…5362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a0}
0x5362…536c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00aa}
0x536c…53a8 Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0035, t01=0x00b4}
0x53a8…53e0 Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0035, t01=0x00f0}
0x53e0…53ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0128}
0x53ea…53fe Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0035, t01=0x0132}
0x53fe…5428 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0035, t01=0x0146}
0x5428…5442 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0035, t01=0x0170}
0x5442…545c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0035, t01=0x018a}
0x545c…5470 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0036, t01=0x0014}
0x5470…5482 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0036, t01=0x0028}
0x5482…54a6 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0036, t01=0x003a}
0x54a6…54be Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0036, t01=0x005e}
0x54be…54e4 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0036, t01=0x0076}
0x54e4…54fa Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x009c}
0x54fa…5528 Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0036, t01=0x00b2}
0x5528…553e Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0036, t01=0x00e0}
0x553e…5568 Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0036, t01=0x00f6}
0x5568…557e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x0120}
0x557e…5592 Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0036, t01=0x0136}
0x5592…55ba Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0036, t01=0x014a}
0x55ba…55de Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x0172}
0x55de…5612 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0037, t01=0x0008}
0x5612…5636 Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0037, t01=0x003c}
0x5636…5656 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0037, t01=0x0060}
0x5656…566e Head {h00=0x0014, h01=0x0050, text=» SUK A7,/31 =7 «, t00=0x0037, t01=0x0080}
0x566e…5692 Head {h00=0x0020, h01=0x0050, text=» RF(Z) ADY415 ORDER ERASE =7«, t00=0x0037, t01=0x0098}
0x5692…56c0 Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTAP,A6 GET CURSOR POSITION =4«, t00=0x0037, t01=0x00bc}
0x56c0…56f0 Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 «, t00=0x0037, t01=0x00ea}
0x56f0…5704 Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0037, t01=0x011a}
0x5704…571e Head {h00=0x0016, h01=0x0050, text=» ADK A7,/31-5 =7 «, t00=0x0037, t01=0x012e}
0x571e…574a Head {h00=0x0028, h01=0x0050, text=» RF(NE) ADY420 NOT ORDER BASIC WRITE«, t00=0x0037, t01=0x0148}
0x574a…576e Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0037, t01=0x0174}
0x576e…5786 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0038, t01=0x0008}
0x5786…579a Head {h00=0x0010, h01=0x0050, text=»ADY420 EQU *«, t00=0x0038, t01=0x0020}
0x579a…57be Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0038, t01=0x0034}
0x57be…57e6 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0038, t01=0x0058}
0x57e6…57f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0080}
0x57f0…5806 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0038, t01=0x008a}
0x5806…5810 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00a0}
0x5810…581e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x00aa}
0x581e…5828 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00b8}
0x5828…5842 Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0038, t01=0x00c2}
0x5842…584c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00dc}
0x584c…5860 Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0038, t01=0x00e6}
0x5860…5874 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0038, t01=0x00fa}
0x5874…58a0 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0038, t01=0x010e}
0x58a0…58ca Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0038, t01=0x013a}
0x58ca…58ea Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0038, t01=0x0164}
0x58ea…5900 Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0038, t01=0x0184}
0x5900…5912 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0039, t01=0x000a}
0x5912…593c Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0039, t01=0x001c}
0x593c…594e Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0039, t01=0x0046}
0x594e…5972 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0039, t01=0x0058}
0x5972…5994 Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0039, t01=0x007c}
0x5994…599e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x009e}
0x599e…59ba Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x0039, t01=0x00a8}
0x59ba…59c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00c4}
0x59c4…59e8 Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x0039, t01=0x00ce}
0x59e8…5a06 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0039, t01=0x00f2}
0x5a06…5a10 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0110}
0x5a10…5a22 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0039, t01=0x011a}
0x5a22…5a34 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0039, t01=0x012c}
0x5a34…5a46 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0039, t01=0x013e}
0x5a46…5a58 Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0039, t01=0x0150}
0x5a58…5a6a Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0039, t01=0x0162}
0x5a6a…5a7e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0039, t01=0x0174}
0x5a7e…5a92 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0039, t01=0x0188}
0x5a92…5ac2 Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x003a, t01=0x000c}
0x5ac2…5aea Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x003a, t01=0x003c}
0x5aea…5b16 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x003a, t01=0x0064}
0x5b16…5b28 Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x003a, t01=0x0090}
0x5b28…5b36 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x00a2}
0x5b36…5b40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00b0}
0x5b40…5b5a Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x003a, t01=0x00ba}
0x5b5a…5b64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x00d4}
0x5b64…5b8a Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x003a, t01=0x00de}
0x5b8a…5ba8 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x003a, t01=0x0104}
0x5ba8…5bb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0122}
0x5bb2…5bca Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x003a, t01=0x012c}
0x5bca…5bdc Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003a, t01=0x0144}
0x5bdc…5bee Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x003a, t01=0x0156}
0x5bee…5c00 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x003a, t01=0x0168}
0x5c00…5c12 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x003a, t01=0x017a}
0x5c12…5c24 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x018c}
0x5c24…5c3c Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x003b, t01=0x000e}
0x5c3c…5c52 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x003b, t01=0x0026}
0x5c52…5c68 Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x003b, t01=0x003c}
0x5c68…5c80 Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x003b, t01=0x0052}
0x5c80…5c96 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x003b, t01=0x006a}
0x5c96…5ca8 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x003b, t01=0x0080}
0x5ca8…5cba Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x003b, t01=0x0092}
0x5cba…5cd2 Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x003b, t01=0x00a4}
0x5cd2…5ce4 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003b, t01=0x00bc}
0x5ce4…5cf8 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x003b, t01=0x00ce}
0x5cf8…5d0a Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003b, t01=0x00e2}
0x5d0a…5d1e Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x003b, t01=0x00f4}
0x5d1e…5d30 Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x003b, t01=0x0108}
0x5d30…5d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x011a}
0x5d3a…5d46 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x0124}
0x5d46…5d50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0130}
0x5d50…5d5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x013a}
0x5d5e…5d68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0148}
0x5d68…5d98 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x003b, t01=0x0152}
0x5d98…5dc8 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x003b, t01=0x0182}
0x5dc8…5df4 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x003c, t01=0x0022}
0x5df4…5e08 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x003c, t01=0x004e}
0x5e08…5e34 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x003c, t01=0x0062}
0x5e34…5e6a Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x003c, t01=0x008e}
0x5e6a…5e7c Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003c, t01=0x00c4}
0x5e7c…5eac Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x003c, t01=0x00d6}
0x5eac…5ebc Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003c, t01=0x0106}
0x5ebc…5ec6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0116}
0x5ec6…5f00 Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x003c, t01=0x0120}
0x5f00…5f34 Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x003c, t01=0x015a}
0x5f34…5f76 Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x003c, t01=0x018e}
0x5f76…5f80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0040}
0x5f80…5f94 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x003d, t01=0x004a}
0x5f94…5fc0 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x003d, t01=0x005e}
0x5fc0…5fd4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x008a}
0x5fd4…600a Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x003d, t01=0x009e}
0x600a…601e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x00d4}
0x601e…6044 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x003d, t01=0x00e8}
0x6044…605a Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x003d, t01=0x010e}
0x605a…608a Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x003d, t01=0x0124}
0x608a…60a0 Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x003d, t01=0x0154}
0x60a0…60ae Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x016a}
0x60ae…60b8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0178}
0x60b8…60cc Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x003d, t01=0x0182}
0x60cc…60d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0008}
0x60d6…60ec Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x003e, t01=0x0012}
0x60ec…60f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0028}
0x60f6…6108 Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x003e, t01=0x0032}
0x6108…6126 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x003e, t01=0x0044}
0x6126…613c Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x003e, t01=0x0062}
0x613c…615a Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x003e, t01=0x0078}
0x615a…6170 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003e, t01=0x0096}
0x6170…61a2 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003e, t01=0x00ac}
0x61a2…61bc Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003e, t01=0x00de}
0x61bc…61f4 Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003e, t01=0x00f8}
0x61f4…6202 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0130}
0x6202…620c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x013e}
0x620c…6220 Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x003e, t01=0x0148}
0x6220…622a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x015c}
0x622a…6256 Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003e, t01=0x0166}
0x6256…6260 (63, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0004}
0x6260…626a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x000e}
0x626a…6296 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003f, t01=0x0018}
0x6296…62b6 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x003f, t01=0x0044}
0x62b6…62c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0064}
0x62c0…62d6 Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x003f, t01=0x006e}
0x62d6…62e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0084}
0x62e0…62fe Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003f, t01=0x008e}
0x62fe…6316 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x003f, t01=0x00ac}
0x6316…6334 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003f, t01=0x00c4}
0x6334…6346 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003f, t01=0x00e2}
0x6346…635c Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003f, t01=0x00f4}
0x635c…6386 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003f, t01=0x010a}
0x6386…6392 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0134}
0x6392…639c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0140}
0x639c…63b2 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003f, t01=0x014a}
0x63b2…63d8 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x003f, t01=0x0160}
0x63d8…63e4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0186}
0x63e4…63ee (64, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0004}
0x63ee…63fc Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0040, t01=0x000e}
0x63fc…6412 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x0040, t01=0x001c}
0x6412…6434 Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x0040, t01=0x0032}
0x6434…6442 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0054}
0x6442…6450 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0062}
0x6450…645e Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x0070}
0x645e…646c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x007e}
0x646c…647a Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x008c}
0x647a…6488 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x009a}
0x6488…6496 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x00a8}
0x6496…64a4 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x00b6}
0x64a4…64ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00c4}
0x64ae…64c4 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0040, t01=0x00ce}
0x64c4…64ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00e4}
0x64ce…64f4 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x0040, t01=0x00ee}
0x64f4…651a Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x0040, t01=0x0114}
0x651a…6532 Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x0040, t01=0x013a}
0x6532…6564 Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x0040, t01=0x0152}
0x6564…657a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x0184}
0x657a…6584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x000a}
0x6584…6590 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0041, t01=0x0014}
0x6590…659a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0041, t01=0x0020}
0x659a…65a8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0041, t01=0x002a}
0x65a8…65bc Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x0041, t01=0x0038}
0x65bc…65de Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x0041, t01=0x004c}
0x65de…65f4 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0041, t01=0x006e}
0x65f4…661c Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x0041, t01=0x0084}
0x661c…6632 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x0041, t01=0x00ac}
0x6632…664c Head {h00=0x0016, h01=0x0050, text=» IFT WHATDY=0 =1 «, t00=0x0041, t01=0x00c2}
0x664c…666e Head {h00=0x001e, h01=0x0050, text=» IFF STEADY+COUNTRY=0 =1 «, t00=0x0041, t01=0x00dc}
0x666e…669c Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAMETERS =1 «, t00=0x0041, t01=0x00fe}
0x669c…66c2 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 PTS 6385/6386 ? =1«, t00=0x0041, t01=0x012c}
0x66c2…66de Head {h00=0x0018, h01=0x0050, text=» RF(Z) RCDY14 NO =3 «, t00=0x0041, t01=0x0152}
0x66de…670c Head {h00=0x002a, h01=0x0050, text=» LDK A3,100 SET UP TRANSFER COUNTER =3«, t00=0x0041, t01=0x016e}
0x670c…6744 Head {h00=0x0034, h01=0x0050, text=»RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 «, t00=0x0042, t01=0x000c}
0x6744…6774 Head {h00=0x002c, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO =3«, t00=0x0042, t01=0x0044}
0x6774…679c Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INF =3«, t00=0x0042, t01=0x0074}
0x679c…67c6 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC TRANSFER COUNTER =3 «, t00=0x0042, t01=0x009c}
0x67c6…67f6 Head {h00=0x002c, h01=0x0050, text=» RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3«, t00=0x0042, t01=0x00c6}
0x67f6…6828 Head {h00=0x002e, h01=0x0050, text=» LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 «, t00=0x0042, t01=0x00f6}
0x6828…6842 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x0128}
0x6842…6870 Head {h00=0x002a, h01=0x0050, text=» LDK A2,COUNTRY SEND 'COUNTRY CODE' =1«, t00=0x0042, t01=0x0142}
0x6870…6888 Head {h00=0x0014, h01=0x0050, text=» ORK A2,/30 =1 «, t00=0x0042, t01=0x0170}
0x6888…68a2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x0188}
0x68a2…68b0 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0043, t01=0x0012}
0x68b0…68be Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0043, t01=0x0020}
0x68be…68d6 Head {h00=0x0014, h01=0x0050, text=»RCDY14 EQU * =3«, t00=0x0043, t01=0x002e}
0x68d6…68e8 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0043, t01=0x0046}
0x68e8…6914 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD =3 «, t00=0x0043, t01=0x0058}
0x6914…693a Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x0043, t01=0x0084}
0x693a…6954 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0043, t01=0x00aa}
0x6954…696a Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x0043, t01=0x00c4}
0x696a…69a4 Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x0043, t01=0x00da}
0x69a4…69ba Head {h00=0x0012, h01=0x0050, text=» LDK A2,0 =9 «, t00=0x0043, t01=0x0114}
0x69ba…69e8 Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET BYTE COUNTER =9 «, t00=0x0043, t01=0x012a}
0x69e8…6a0a Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x0043, t01=0x0158}
0x6a0a…6a28 Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x0043, t01=0x017a}
0x6a28…6a4e Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x0044, t01=0x0008}
0x6a4e…6a68 Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x0044, t01=0x002e}
0x6a68…6a76 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0048}
0x6a76…6a80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0056}
0x6a80…6aac Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x0044, t01=0x0060}
0x6aac…6ab6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x008c}
0x6ab6…6aca Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0044, t01=0x0096}
0x6aca…6ae6 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0044, t01=0x00aa}
0x6ae6…6b00 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x0044, t01=0x00c6}
0x6b00…6b2c Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x0044, t01=0x00e0}
0x6b2c…6b3e Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x0044, t01=0x010c}
0x6b3e…6b68 Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x0044, t01=0x011e}
0x6b68…6b7e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0044, t01=0x0148}
0x6b7e…6bb6 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x0044, t01=0x015e}
0x6bb6…6bca Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0045, t01=0x0008}
0x6bca…6be0 Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x0045, t01=0x001c}
0x6be0…6c12 Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0045, t01=0x0032}
0x6c12…6c36 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0045, t01=0x0064}
0x6c36…6c50 Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x0045, t01=0x0088}
0x6c50…6c5e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0045, t01=0x00a2}
0x6c5e…6c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00b0}
0x6c68…6c80 Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x0045, t01=0x00ba}
0x6c80…6c8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d2}
0x6c8a…6cbe Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0045, t01=0x00dc}
0x6cbe…6cc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0110}
0x6cc8…6cdc Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0045, t01=0x011a}
0x6cdc…6cf4 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0045, t01=0x012e}
0x6cf4…6d0e Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x0045, t01=0x0146}
0x6d0e…6d30 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0045, t01=0x0160}
0x6d30…6d3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0182}
0x6d3a…6d50 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0045, t01=0x018c}
0x6d50…6d5a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0012}
0x6d5a…6d6e Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0046, t01=0x001c}
0x6d6e…6d96 Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x0046, t01=0x0030}
0x6d96…6daa Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0046, t01=0x0058}
0x6daa…6db4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x006c}
0x6db4…6dc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0046, t01=0x0076}
0x6dc0…6dca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0082}
0x6dca…6ddc Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x0046, t01=0x008c}
0x6ddc…6dfc Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0046, t01=0x009e}
0x6dfc…6e10 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0046, t01=0x00be}
0x6e10…6e2c Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0046, t01=0x00d2}
0x6e2c…6e56 Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0046, t01=0x00ee}
0x6e56…6e86 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0046, t01=0x0118}
0x6e86…6e98 Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0046, t01=0x0148}
0x6e98…6ed0 Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0046, t01=0x015a}
0x6ed0…6efc (71, 0, 400) Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0047, t01=0x0004}
0x6efc…6f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0030}
0x6f06…6f1c Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0047, t01=0x003a}
0x6f1c…6f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0050}
0x6f26…6f3a Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0047, t01=0x005a}
0x6f3a…6f66 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0047, t01=0x006e}
0x6f66…6f7a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0047, t01=0x009a}
0x6f7a…6f9e Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0047, t01=0x00ae}
0x6f9e…6fc6 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0047, t01=0x00d2}
0x6fc6…6fe0 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x00fa}
0x6fe0…6ff2 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x0114}
0x6ff2…7000 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0126}
0x7000…700a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0134}
0x700a…701c Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0047, t01=0x013e}
0x701c…7026 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0150}
0x7026…703a Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0047, t01=0x015a}
0x703a…7066 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0047, t01=0x016e}
0x7066…707a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0048, t01=0x000a}
0x707a…709e Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0048, t01=0x001e}
0x709e…70b4 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0048, t01=0x0042}
0x70b4…70de Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0048, t01=0x0058}
0x70de…7100 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0048, t01=0x0082}
0x7100…7118 Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0048, t01=0x00a4}
0x7118…7132 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0048, t01=0x00bc}
0x7132…7144 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0048, t01=0x00d6}
0x7144…7150 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x00e8}
0x7150…717e Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0048, t01=0x00f4}
0x717e…71b8 Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0048, t01=0x0122}
0x71b8…71d8 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0048, t01=0x015c}
0x71d8…71fa Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0048, t01=0x017c}
0x71fa…721e Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0049, t01=0x000e}
0x721e…7232 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0049, t01=0x0032}
0x7232…7254 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0049, t01=0x0046}
0x7254…7266 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0049, t01=0x0068}
0x7266…7294 Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0049, t01=0x007a}
0x7294…72a6 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0049, t01=0x00a8}
0x72a6…72b4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0049, t01=0x00ba}
0x72b4…72be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00c8}
0x72be…72c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00d2}
0x72c8…72fc Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0049, t01=0x00dc}
0x72fc…7330 Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x0049, t01=0x0110}
0x7330…7364 Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0049, t01=0x0144}
0x7364…7384 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x0049, t01=0x0178}
0x7384…738e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004a, t01=0x0008}
0x738e…73a2 Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x004a, t01=0x0012}
0x73a2…73b4 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x004a, t01=0x0026}
0x73b4…73e0 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x004a, t01=0x0038}
0x73e0…73f4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004a, t01=0x0064}
0x73f4…7426 Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x004a, t01=0x0078}
0x7426…743a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004a, t01=0x00aa}
0x743a…7460 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x004a, t01=0x00be}
0x7460…747a Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x004a, t01=0x00e4}
0x747a…74a2 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x00fe}
0x74a2…74b4 Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x004a, t01=0x0126}
0x74b4…74da Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x0138}
0x74da…74f4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x015e}
0x74f4…751c Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x0178}
0x751c…7536 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004b, t01=0x0010}
0x7536…7556 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004b, t01=0x002a}
0x7556…7576 Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004b, t01=0x004a}
0x7576…7588 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004b, t01=0x006a}
0x7588…759e Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004b, t01=0x007c}
0x759e…75c0 Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004b, t01=0x0092}
0x75c0…75f0 Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x004b, t01=0x00b4}
0x75f0…7600 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x00e4}
0x7600…760e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x00f4}
0x760e…7646 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x0102}
0x7646…767e Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x004b, t01=0x013a}
0x767e…76b6 Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x004b, t01=0x0172}
0x76b6…76ee Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x004c, t01=0x001a}
0x76ee…7726 Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x004c, t01=0x0052}
0x7726…775e Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004c, t01=0x008a}
0x775e…7772 Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x004c, t01=0x00c2}
0x7772…777c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00d6}
0x777c…7786 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x00e0}
0x7786…779a Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x004c, t01=0x00ea}
0x779a…77bc Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x004c, t01=0x00fe}
0x77bc…77d8 Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x004c, t01=0x0120}
0x77d8…7808 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x004c, t01=0x013c}
0x7808…7834 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x004c, t01=0x016c}
0x7834…7854 Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x004d, t01=0x0008}
0x7854…787c Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x004d, t01=0x0028}
0x787c…789c Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x004d, t01=0x0050}
0x789c…78b4 Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x004d, t01=0x0070}
0x78b4…78d8 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x004d, t01=0x0088}
0x78d8…7900 Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x004d, t01=0x00ac}
0x7900…7918 Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x004d, t01=0x00d4}
0x7918…792a Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004d, t01=0x00ec}
0x792a…7964 Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x004d, t01=0x00fe}
0x7964…797e Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x004d, t01=0x0138}
0x797e…79a8 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x004d, t01=0x0152}
0x79a8…79d2 Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x004d, t01=0x017c}
0x79d2…7a02 Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x004e, t01=0x0016}
0x7a02…7a1a Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x004e, t01=0x0046}
0x7a1a…7a2e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004e, t01=0x005e}
0x7a2e…7a54 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x004e, t01=0x0072}
0x7a54…7a78 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTBIN,A6 SAVE INDEX «, t00=0x004e, t01=0x0098}
0x7a78…7aac Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x004e, t01=0x00bc}
0x7aac…7aca Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x004e, t01=0x00f0}
0x7aca…7adc Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x004e, t01=0x010e}
0x7adc…7af0 Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x004e, t01=0x0120}
0x7af0…7b02 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x004e, t01=0x0134}
0x7b02…7b14 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x0146}
0x7b14…7b40 Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x004e, t01=0x0158}
0x7b40…7b60 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004e, t01=0x0184}
0x7b60…7b80 Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x004f, t01=0x0014}
0x7b80…7ba4 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x004f, t01=0x0034}
0x7ba4…7bba Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x004f, t01=0x0058}
0x7bba…7bd0 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004f, t01=0x006e}
0x7bd0…7be6 Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x004f, t01=0x0084}
0x7be6…7c0c Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x004f, t01=0x009a}
0x7c0c…7c20 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004f, t01=0x00c0}
0x7c20…7c4c Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x004f, t01=0x00d4}
0x7c4c…7c62 Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x004f, t01=0x0100}
0x7c62…7c88 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x004f, t01=0x0116}
0x7c88…7cae Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x004f, t01=0x013c}
0x7cae…7cdc Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTBIN,A6 RESTORE BUFFER INDEX «, t00=0x004f, t01=0x0162}
0x7cdc…7cee Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004f, t01=0x0190}
0x7cee…7d10 Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x0050, t01=0x0012}
0x7d10…7d1a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0034}
0x7d1a…7d4c Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x0050, t01=0x003e}
0x7d4c…7d60 Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x0050, t01=0x0070}
0x7d60…7d6e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x0084}
0x7d6e…7d78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0092}
0x7d78…7d82 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x009c}
0x7d82…7dc2 Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x0050, t01=0x00a6}
0x7dc2…7dfa Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x0050, t01=0x00e6}
0x7dfa…7e04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x011e}
0x7e04…7e18 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x0050, t01=0x0128}
0x7e18…7e2c Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x0050, t01=0x013c}
0x7e2c…7e5e Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x0050, t01=0x0150}
0x7e5e…7e72 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x0050, t01=0x0182}
0x7e72…7e86 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0051, t01=0x0008}
0x7e86…7ea6 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0051, t01=0x001c}
0x7ea6…7ec8 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x0051, t01=0x003c}
0x7ec8…7ee2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x005e}
0x7ee2…7f00 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0051, t01=0x0078}
0x7f00…7f1a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x0096}
0x7f1a…7f2c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0051, t01=0x00b0}
0x7f2c…7f46 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x00c2}
0x7f46…7f56 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0051, t01=0x00dc}
0x7f56…7f64 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x00ec}
0x7f64…7f6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00fa}
0x7f6e…7f78 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0104}
0x7f78…7fa6 Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x0051, t01=0x010e}
0x7fa6…7fe8 Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x0051, t01=0x013c}
0x7fe8…7ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x017e}
0x7ff2…8006 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x0051, t01=0x0188}
0x8006…8024 Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x0052, t01=0x000c}
0x8024…8044 Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x0052, t01=0x002a}
0x8044…805e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0052, t01=0x004a}
0x805e…807e Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x0052, t01=0x0064}
0x807e…8090 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0052, t01=0x0084}
0x8090…80ac Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x0052, t01=0x0096}
0x80ac…80c2 Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x0052, t01=0x00b2}
0x80c2…80d6 Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x0052, t01=0x00c8}
0x80d6…80e8 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0052, t01=0x00dc}
0x80e8…8112 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x0052, t01=0x00ee}
0x8112…8124 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0052, t01=0x0118}
0x8124…8144 Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x0052, t01=0x012a}
0x8144…8158 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x0052, t01=0x014a}
0x8158…816a Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x0052, t01=0x015e}
0x816a…817e Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x0052, t01=0x0170}
0x817e…819c Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x0052, t01=0x0184}
0x819c…81b0 Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x0053, t01=0x0012}
0x81b0…81d4 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x0053, t01=0x0026}
0x81d4…81e4 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0053, t01=0x004a}
0x81e4…81f2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0053, t01=0x005a}
0x81f2…8200 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x0068}
0x8200…820e Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x0076}
0x820e…821c Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x0084}
0x821c…8258 Head {h00=0x0038, h01=0x0050, text=»* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2«, t00=0x0053, t01=0x0092}
0x8258…8266 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x00ce}
0x8266…8274 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x00dc}
0x8274…82a8 Head {h00=0x0030, h01=0x0050, text=»* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 «, t00=0x0053, t01=0x00ea}
0x82a8…82da Head {h00=0x002e, h01=0x0050, text=»* AT EXIT A4 = CHAR TO END OF SCREEN =2 «, t00=0x0053, t01=0x011e}
0x82da…82e8 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x0150}
0x82e8…82fe Head {h00=0x0012, h01=0x0050, text=»ERA EQU * =2 «, t00=0x0053, t01=0x015e}
0x82fe…8324 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTPOS,A6 MAX CHAR. =2 «, t00=0x0053, t01=0x0174}
0x8324…8348 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF GET MAX CHAR. =2«, t00=0x0054, t01=0x000a}
0x8348…837c Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 «, t00=0x0054, t01=0x002e}
0x837c…8394 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =2 «, t00=0x0054, t01=0x0062}
0x8394…83ca Head {h00=0x0032, h01=0x0050, text=» SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2«, t00=0x0054, t01=0x007a}
0x83ca…83ee Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH =2 «, t00=0x0054, t01=0x00b0}
0x83ee…8412 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN =2«, t00=0x0054, t01=0x00d4}
0x8412…842e Head {h00=0x0018, h01=0x0050, text=» RF(L) ERAEND NO =2 «, t00=0x0054, t01=0x00f8}
0x842e…8460 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2«, t00=0x0054, t01=0x0114}
0x8460…8482 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/FFFF SET OVER =4«, t00=0x0054, t01=0x0146}
0x8482…84a8 Head {h00=0x0022, h01=0x0050, text=»ERAEND EQU * END SUBROUTINE =2«, t00=0x0054, t01=0x0168}
0x84a8…84c2 Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0054, t01=0x018e}
0x84c2…84d4 Head {h00=0x000e, h01=0x0050, text=»ABDY EQU *«, t00=0x0055, t01=0x0018}
0x84d4…8504 Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE CURSOR POSITION =5«, t00=0x0055, t01=0x002a}
0x8504…8530 Head {h00=0x0028, h01=0x0050, text=» RTN A15 RETURN TO ABORT ROUTINE =5 «, t00=0x0055, t01=0x005a}
0x8530…853c Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0055, t01=0x0086}
0x853c…8540 Head {h00=0x4004, h01=0x0000}
0x8540…8544 00 55 00 92 ┆ U ┆
0x8544…854c (86, 1, 8) 20 04 00 00 00 56 00 04 ┆ V ┆