|
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: 36530 (0x8eb2)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦7e2393f80⟧ Bits:30009710 Philips computer tape "M_KONV"
└─⟦this⟧ »M:KONV/DRDY01.SC«
IDENT DRDY01 9.2DK 1 80-02-12 870105040921 *DK,POS 80 ON VDU REL 9.2 80-02-12 =4,ABORT ROUTINE INCLUDED 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 0 * * * 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 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. * CODE COUNTRY * 0 GB/NL/B * 1 D/A/L/CH * 2 F/CH/B/L * 3 E * 4 I/CH * 5 S/SF * 6 DK/N * 7 P * 8 YU * 9 US X:G EQU 0 COUNTRY EQU 6 * * MEMORY MANAGEMENT BUFFER SIZE * * X:H EQU 64 DVBLEN EQU 000 * 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,0 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 =2 RF(NN) ADY186 NO =2 SUK A4,1 ADJUST LENGTH 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 ADY415 EQU * SUK A7,5 ORDER 5 ? RF(NE) ADY420 LDKL A4,/101 HOME POSITION ST A4,DWTAP,A6 ADY420 EQU * SUK A7,6 ORDER B ? *DK RF(NE) ENDIO NO *DK LD A4,DWTAP,A6 GET CURSOR POSITION. *DK ST A4,10,A8 PUT IN ECBCW *DK 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 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 EDGE ERAEND EQU * END SUBROUTINE =2 RTN A5 RETURN =2 ABDY EQU * ABORT ROUTINE =4 CF A15,UPDAPP UPDATE CURSOR POSITION =4 RTN A15 RETURN TO CALLER =4 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDY01 9.2DK 1 80-02-12 870105040921 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…005a Head {h00=0x0018, h01=0x0050, text=» *DK,POS 80 ON VDU«, t00=0x0000, t01=0x0042}
0x005a…0076 Head {h00=0x0018, h01=0x0050, text=» REL 9.2 80-02-12 «, t00=0x0000, t01=0x005e}
0x0076…009a Head {h00=0x0020, h01=0x0050, text=» =4,ABORT ROUTINE INCLUDED«, t00=0x0000, t01=0x007a}
0x009a…00b6 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x009e}
0x00b6…00e4 Head {h00=0x002a, h01=0x0050, text=» =3,STEADY CURSOR PROBLEM CORRECTED «, t00=0x0000, t01=0x00ba}
0x00e4…0100 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-06 «, t00=0x0000, t01=0x00e8}
0x0100…0130 Head {h00=0x002c, h01=0x0050, text=» =2,ERASE ONLY TO LAST POS. OF SCREEN «, t00=0x0000, t01=0x0104}
0x0130…014c Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-31 «, t00=0x0000, t01=0x0134}
0x014c…017e Head {h00=0x002e, h01=0x0050, text=» =1 DRIVER ADAPTAD TO HANDLE PTS 6385 «, t00=0x0000, t01=0x0150}
0x017e…019a Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-12 «, t00=0x0000, t01=0x0182}
0x019a…01a2 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x000e}
0x01a2…01ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0016}
0x01ac…01e6 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0020}
0x01e6…01f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x005a}
0x01f0…0218 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x0064}
0x0218…0222 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x008c}
0x0222…0258 Head {h00=0x0032, h01=0x0050, text=»* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY «, t00=0x0001, t01=0x0096}
0x0258…0262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00cc}
0x0262…026c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00d6}
0x026c…0276 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00e0}
0x0276…0280 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00ea}
0x0280…028a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00f4}
0x028a…0294 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fe}
0x0294…02ce Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x0108}
0x02ce…02d8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0142}
0x02d8…02e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x014c}
0x02e2…0320 Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS «, t00=0x0001, t01=0x0156}
0x0320…0364 (2, 0, 400) Head {h00=0x0040, h01=0x0050, text=»* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 «, t00=0x0002, t01=0x0004}
0x0364…037e Head {h00=0x0016, h01=0x0050, text=»* AND PTS 6386 «, t00=0x0002, t01=0x0048}
0x037e…03b8 Head {h00=0x0036, h01=0x0050, text=»* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM «, t00=0x0002, t01=0x0062}
0x03b8…03d6 Head {h00=0x001a, h01=0x0050, text=»* VIA CHLT OR CHRT.«, t00=0x0002, t01=0x009c}
0x03d6…03e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x00ba}
0x03e0…0420 Head {h00=0x003c, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS«, t00=0x0002, t01=0x00c4}
0x0420…045e Head {h00=0x003a, h01=0x0050, text=»* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN «, t00=0x0002, t01=0x0104}
0x045e…049c Head {h00=0x003a, h01=0x0050, text=»* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE «, t00=0x0002, t01=0x0142}
0x049c…04c8 Head {h00=0x0028, h01=0x0050, text=»* GENERAL KEYBOARD DRIVER DRKB01.«, t00=0x0002, t01=0x0180}
0x04c8…04d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x001c}
0x04d2…04dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0026}
0x04dc…0510 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0003, t01=0x0030}
0x0510…051a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0064}
0x051a…0544 Head {h00=0x0026, h01=0x0050, text=»* A C D Y ACTIVATION PART«, t00=0x0003, t01=0x006e}
0x0544…054e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0098}
0x054e…057a Head {h00=0x0028, h01=0x0050, text=»* I H D Y INTERRUPT HANDLER«, t00=0x0003, t01=0x00a2}
0x057a…0584 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00ce}
0x0584…05b0 Head {h00=0x0028, h01=0x0050, text=»* R C D Y RECOVERY ROUTINE «, t00=0x0003, t01=0x00d8}
0x05b0…05ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05ba…05e4 Head {h00=0x0026, h01=0x0050, text=»* E C H O D Y ECHO FUNCTIONS «, t00=0x0003, t01=0x010e}
0x05e4…05ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ee…05f6 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0142}
0x05f6…05fe Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x014a}
0x05fe…0606 Head {h00=0x0004, h01=0x0050, t00=0x0003, t01=0x0152}
0x0606…0610 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x015a}
0x0610…063e Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0003, t01=0x0164}
0x063e…0648 (4, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0004}
0x0648…066a Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0004, t01=0x000e}
0x066a…068c Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0004, t01=0x0030}
0x068c…06b2 Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0004, t01=0x0052}
0x06b2…06de Head {h00=0x0028, h01=0x0050, text=»* 07: WRITE GRAPHIC DISPLAY«, t00=0x0004, t01=0x0078}
0x06de…0708 Head {h00=0x0026, h01=0x0050, text=»* 0B: CURSOR POSITIONING «, t00=0x0004, t01=0x00a4}
0x0708…0724 Head {h00=0x0018, h01=0x0050, text=»* 31: ERASE«, t00=0x0004, t01=0x00ce}
0x0724…072e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00ea}
0x072e…0750 Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0004, t01=0x00f4}
0x0750…075a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0116}
0x075a…0780 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0004, t01=0x0120}
0x0780…07ac Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0004, t01=0x0146}
0x07ac…07d4 Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0004, t01=0x0172}
0x07d4…07fc Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0005, t01=0x000a}
0x07fc…0822 Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0005, t01=0x0032}
0x0822…0848 Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0005, t01=0x0058}
0x0848…0868 Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0005, t01=0x007e}
0x0868…088e Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0005, t01=0x009e}
0x088e…0898 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00c4}
0x0898…08a6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x00ce}
0x08a6…08b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00dc}
0x08b0…08ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x00e6}
0x08ba…08d8 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0005, t01=0x00f0}
0x08d8…08e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x010e}
0x08e2…0922 Head {h00=0x003c, h01=0x0050, text=»* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. «, t00=0x0005, t01=0x0118}
0x0922…092c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0158}
0x092c…095a Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0005, t01=0x0162}
0x095a…0974 Head {h00=0x0016, h01=0x0050, text=»* BIT: 10 11«, t00=0x0005, t01=0x0190}
0x0974…098e Head {h00=0x0016, h01=0x0050, text=»* --------------«, t00=0x0006, t01=0x001a}
0x098e…09b4 Head {h00=0x0022, h01=0x0050, text=»* 0 0 PTS 6344«, t00=0x0006, t01=0x0034}
0x09b4…09e2 Head {h00=0x002a, h01=0x0050, text=»* 0 1 PTS 6351 & 6342 «, t00=0x0006, t01=0x005a}
0x09e2…0a10 Head {h00=0x002a, h01=0x0050, text=»* 1 0 PTS 6386 & 6385 «, t00=0x0006, t01=0x0088}
0x0a10…0a3e Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x00b6}
0x0a3e…0a48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x00e4}
0x0a48…0a82 Head {h00=0x0036, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0006, t01=0x00ee}
0x0a82…0aba Head {h00=0x0034, h01=0x0050, text=»* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT «, t00=0x0006, t01=0x0128}
0x0aba…0aea Head {h00=0x002c, h01=0x0050, text=»* -IS ADAPTED TO CONTROL ONLY PTS 6344«, t00=0x0006, t01=0x0160}
0x0aea…0b28 Head {h00=0x003a, h01=0x0050, text=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7«, t00=0x0006, t01=0x0190}
0x0b28…0b64 Head {h00=0x0038, h01=0x0050, text=»* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x003e}
0x0b64…0b8e Head {h00=0x0026, h01=0x0050, text=»* -CAN SUPPRESS TRAILING BLANKS «, t00=0x0007, t01=0x007a}
0x0b8e…0bd8 Head {h00=0x0046, h01=0x0050, text=»* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)«, t00=0x0007, t01=0x00a4}
0x0bd8…0be6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x00ee}
0x0be6…0bf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x00fc}
0x0bf0…0bfa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0106}
0x0bfa…0c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0110}
0x0c04…0c0e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x011a}
0x0c0e…0c22 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x0124}
0x0c22…0c36 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0007, t01=0x0138}
0x0c36…0c4a Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0007, t01=0x014c}
0x0c4a…0c54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0160}
0x0c54…0c5e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x016a}
0x0c5e…0c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0007, t01=0x0174}
0x0c68…0c94 Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0007, t01=0x017e}
0x0c94…0cc8 Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x001a}
0x0cc8…0cd2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x004e}
0x0cd2…0cdc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0058}
0x0cdc…0ce6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0062}
0x0ce6…0cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x006c}
0x0cf0…0d22 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0076}
0x0d22…0d54 Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0008, t01=0x00a8}
0x0d54…0d86 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x00da}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0d9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0116}
0x0d9a…0dc2 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0008, t01=0x0120}
0x0dc2…0df4 Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0008, t01=0x0148}
0x0df4…0e14 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0008, t01=0x017a}
0x0e14…0e56 Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0009, t01=0x000a}
0x0e56…0e74 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x004c}
0x0e74…0ea6 Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0009, t01=0x006a}
0x0ea6…0eda Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0009, t01=0x009c}
0x0eda…0f0e Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x00d0}
0x0f0e…0f1c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0009, t01=0x0104}
0x0f1c…0f26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0112}
0x0f26…0f46 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x011c}
0x0f46…0f66 Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x0009, t01=0x013c}
0x0f66…0f86 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0009, t01=0x015c}
0x0f86…0f90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x017c}
0x0f90…0fac Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x0009, t01=0x0186}
0x0fac…0fce Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x0012}
0x0fce…0fe8 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x0034}
0x0fe8…0ff2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x004e}
0x0ff2…1000 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0058}
0x1000…1016 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0066}
0x1016…102c Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x007c}
0x102c…1042 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0092}
0x1042…104c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00a8}
0x104c…106e Head {h00=0x001e, h01=0x0050, text=»FASTO EQU /14 FAST OUTPUT «, t00=0x000a, t01=0x00b2}
0x106e…1096 Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000a, t01=0x00d4}
0x1096…10bc Head {h00=0x0022, h01=0x0050, text=»ULSTAR EQU /12 UNDERLINE START«, t00=0x000a, t01=0x00fc}
0x10bc…10e2 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000a, t01=0x0122}
0x10e2…110c Head {h00=0x0026, h01=0x0050, text=»LISTAR EQU /1E LOW INTENSITY START«, t00=0x000a, t01=0x0148}
0x110c…1136 Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000a, t01=0x0172}
0x1136…1156 Head {h00=0x001c, h01=0x0050, text=»BACKSP EQU /08 BACKSPACE«, t00=0x000b, t01=0x000c}
0x1156…1172 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x002c}
0x1172…1192 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000b, t01=0x0048}
0x1192…11be Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000b, t01=0x0068}
0x11be…11e0 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x0094}
0x11e0…1204 Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000b, t01=0x00b6}
0x1204…1220 Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x00da}
0x1220…1244 Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000b, t01=0x00f6}
0x1244…1266 Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000b, t01=0x011a}
0x1266…1284 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000b, t01=0x013c}
0x1284…12b6 Head {h00=0x002e, h01=0x0050, text=»RETURN EQU /12 RETURN TO ALPHANUMERIC MODE«, t00=0x000b, t01=0x015a}
0x12b6…12e4 Head {h00=0x002a, h01=0x0050, text=»ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE «, t00=0x000b, t01=0x018c}
0x12e4…130a Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x000c, t01=0x002a}
0x130a…1340 Head {h00=0x0032, h01=0x0050, text=»EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT «, t00=0x000c, t01=0x0050}
0x1340…1364 Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000c, t01=0x0086}
0x1364…138c Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x000c, t01=0x00aa}
0x138c…1396 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x00d2}
0x1396…13b2 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x00dc}
0x13b2…13ce Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x000c, t01=0x00f8}
0x13ce…13ea Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x0114}
0x13ea…13f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0130}
0x13f4…141a Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000c, t01=0x013a}
0x141a…1446 Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000c, t01=0x0160}
0x1446…1450 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x018c}
0x1450…145e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x0008}
0x145e…1468 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0016}
0x1468…1472 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0020}
0x1472…14a4 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x002a}
0x14a4…14d6 Head {h00=0x002e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000d, t01=0x005c}
0x14d6…1508 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x008e}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c0}
0x1512…151c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00ca}
0x151c…1568 Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 «, t00=0x000d, t01=0x00d4}
0x1568…1572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0120}
0x1572…1584 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000d, t01=0x012a}
0x1584…1598 Head {h00=0x0010, h01=0x0050, text=»GRAFIC EQU 0«, t00=0x000d, t01=0x013c}
0x1598…15a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0150}
0x15a2…15e2 Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000d, t01=0x015a}
0x15e2…15ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x000a}
0x15ec…15fe Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x0014}
0x15fe…1612 Head {h00=0x0010, h01=0x0050, text=»WHATDY EQU 1«, t00=0x000e, t01=0x0026}
0x1612…161c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x003a}
0x161c…1626 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0044}
0x1626…1662 Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x004e}
0x1662…168c Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x008a}
0x168c…169e Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x00b4}
0x169e…16b2 Head {h00=0x0010, h01=0x0050, text=»LOWCHA EQU 0«, t00=0x000e, t01=0x00c6}
0x16b2…16bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00da}
0x16bc…16c6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e4}
0x16c6…1702 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x00ee}
0x1702…173e Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000e, t01=0x012a}
0x173e…177a Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000e, t01=0x0166}
0x177a…1784 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0012}
0x1784…1796 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x001c}
0x1796…17aa Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000f, t01=0x002e}
0x17aa…17b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0042}
0x17b4…17e8 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x004c}
0x17e8…182c Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x0080}
0x182c…1836 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00c4}
0x1836…1848 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x00ce}
0x1848…185c Head {h00=0x0010, h01=0x0050, text=»TRASPA EQU 1«, t00=0x000f, t01=0x00e0}
0x185c…186a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000f, t01=0x00f4}
0x186a…1874 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0102}
0x1874…18aa Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x000f, t01=0x010c}
0x18aa…18ca Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x000f, t01=0x0142}
0x18ca…18dc Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x000f, t01=0x0162}
0x18dc…18f0 Head {h00=0x0010, h01=0x0050, text=»STEADY EQU 0«, t00=0x000f, t01=0x0174}
0x18f0…18fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0188}
0x18fa…193a (16, 0, 400) Head {h00=0x003c, h01=0x0050, text=»* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT«, t00=0x0010, t01=0x0004}
0x193a…195c Head {h00=0x001e, h01=0x0050, text=»* BY SETTING MMUPAG = 1 «, t00=0x0010, t01=0x0044}
0x195c…1966 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0066}
0x1966…197a Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0010, t01=0x0070}
0x197a…1984 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0084}
0x1984…198e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x008e}
0x198e…19c8 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x0098}
0x19c8…19fa Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x00d2}
0x19fa…1a04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0104}
0x1a04…1a18 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0010, t01=0x010e}
0x1a18…1a22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0122}
0x1a22…1a5e Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0010, t01=0x012c}
0x1a5e…1a9e Head {h00=0x003c, h01=0x0050, text=»* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.«, t00=0x0010, t01=0x0168}
0x1a9e…1aa6 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0018}
0x1aa6…1aae Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x0020}
0x1aae…1ac4 Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x0011, t01=0x0028}
0x1ac4…1acc Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x003e}
0x1acc…1ae0 Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x0011, t01=0x0046}
0x1ae0…1af4 Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0011, t01=0x005a}
0x1af4…1b08 Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0011, t01=0x006e}
0x1b08…1b16 Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0011, t01=0x0082}
0x1b16…1b26 Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0011, t01=0x0090}
0x1b26…1b36 Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0011, t01=0x00a0}
0x1b36…1b46 Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0011, t01=0x00b0}
0x1b46…1b54 Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0011, t01=0x00c0}
0x1b54…1b62 Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0011, t01=0x00ce}
0x1b62…1b70 Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0011, t01=0x00dc}
0x1b70…1b82 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x00ea}
0x1b82…1b98 Head {h00=0x0012, h01=0x0050, text=»COUNTRY EQU 6 «, t00=0x0011, t01=0x00fc}
0x1b98…1ba2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0112}
0x1ba2…1bcc Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0011, t01=0x011c}
0x1bcc…1bd6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0146}
0x1bd6…1be0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0150}
0x1be0…1bf2 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 64«, t00=0x0011, t01=0x015a}
0x1bf2…1c08 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 000«, t00=0x0011, t01=0x016c}
0x1c08…1c12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0182}
0x1c12…1c20 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0011, t01=0x018c}
0x1c20…1c2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x000a}
0x1c2a…1c34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0014}
0x1c34…1c5c Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x001e}
0x1c5c…1c84 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0012, t01=0x0046}
0x1c84…1cac Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x006e}
0x1cac…1cb6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0096}
0x1cb6…1cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a0}
0x1cc0…1cf4 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x00aa}
0x1cf4…1cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00de}
0x1cfe…1d14 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x00e8}
0x1d14…1d2c Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0012, t01=0x00fe}
0x1d2c…1d38 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x0116}
0x1d38…1d42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0122}
0x1d42…1d58 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0012, t01=0x012c}
0x1d58…1d72 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0012, t01=0x0142}
0x1d72…1d7e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0012, t01=0x015c}
0x1d7e…1d88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0168}
0x1d88…1dba Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0012, t01=0x0172}
0x1dba…1de0 Head {h00=0x0022, h01=0x0050, text=»DWTPOS EQU START+/15 POSITIONS«, t00=0x0013, t01=0x0014}
0x1de0…1e02 Head {h00=0x001e, h01=0x0050, text=»DWTLIN EQU START+/14 LINES«, t00=0x0013, t01=0x003a}
0x1e02…1e2c Head {h00=0x0026, h01=0x0050, text=»DWTBIN EQU START+/16 BUFFER INDEX «, t00=0x0013, t01=0x005c}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0086}
0x1e36…1e44 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x0090}
0x1e44…1e4e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x009e}
0x1e4e…1e58 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00a8}
0x1e58…1e6a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00b2}
0x1e6a…1e7c Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x00c4}
0x1e7c…1e8e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x00d6}
0x1e8e…1e98 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00e8}
0x1e98…1ea2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x00f2}
0x1ea2…1ec4 Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0013, t01=0x00fc}
0x1ec4…1ee0 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0013, t01=0x011e}
0x1ee0…1f00 Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0013, t01=0x013a}
0x1f00…1f24 Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0013, t01=0x015a}
0x1f24…1f4c Head {h00=0x0024, h01=0x0050, text=» DATA ABDY ABORT ROUTINE ADDRESS«, t00=0x0013, t01=0x017e}
0x1f4c…1f70 Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0014, t01=0x0016}
0x1f70…1f94 Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0014, t01=0x003a}
0x1f94…1fc6 Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x005e}
0x1fc6…1fd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0090}
0x1fd0…1fda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x009a}
0x1fda…200a Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0014, t01=0x00a4}
0x200a…202a Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0014, t01=0x00d4}
0x202a…2038 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0014, t01=0x00f4}
0x2038…2042 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0102}
0x2042…2056 Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0014, t01=0x010c}
0x2056…2060 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0120}
0x2060…208e Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0014, t01=0x012a}
0x208e…2098 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0158}
0x2098…20e4 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0014, t01=0x0162}
0x20e4…211a Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0015, t01=0x001e}
0x211a…2124 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0054}
0x2124…212e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x005e}
0x212e…2170 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0015, t01=0x0068}
0x2170…21aa Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0015, t01=0x00aa}
0x21aa…21b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00e4}
0x21b4…21fe Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0015, t01=0x00ee}
0x21fe…223e Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0015, t01=0x0138}
0x223e…2248 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0178}
0x2248…2298 Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0015, t01=0x0182}
0x2298…22e6 Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0016, t01=0x0042}
0x22e6…2330 Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0016, t01=0x0090}
0x2330…233a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x00da}
0x233a…2350 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0016, t01=0x00e4}
0x2350…2396 Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0016, t01=0x00fa}
0x2396…23da Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0016, t01=0x0140}
0x23da…2408 Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0016, t01=0x0184}
0x2408…2412 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0022}
0x2412…241e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x002c}
0x241e…245c Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0017, t01=0x0038}
0x245c…249c Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0017, t01=0x0076}
0x249c…24de Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0017, t01=0x00b6}
0x24de…2522 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0017, t01=0x00f8}
0x2522…2546 Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0017, t01=0x013c}
0x2546…2550 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x0160}
0x2550…2590 Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0017, t01=0x016a}
0x2590…25d0 Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0018, t01=0x001a}
0x25d0…2614 Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0018, t01=0x005a}
0x2614…2658 Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0018, t01=0x009e}
0x2658…2696 Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0018, t01=0x00e2}
0x2696…26c4 Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0018, t01=0x0120}
0x26c4…26d6 Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0018, t01=0x014e}
0x26d6…26fa Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0018, t01=0x0160}
0x26fa…2714 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0018, t01=0x0184}
0x2714…2730 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0019, t01=0x000e}
0x2730…274a Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0019, t01=0x002a}
0x274a…276e Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0019, t01=0x0044}
0x276e…2788 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0019, t01=0x0068}
0x2788…279e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x0082}
0x279e…27c4 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0019, t01=0x0098}
0x27c4…27e8 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x0019, t01=0x00be}
0x27e8…2800 Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x0019, t01=0x00e2}
0x2800…2816 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0019, t01=0x00fa}
0x2816…2832 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x0019, t01=0x0110}
0x2832…2848 Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x0019, t01=0x012c}
0x2848…2854 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0019, t01=0x0142}
0x2854…286a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x014e}
0x286a…289c Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x0019, t01=0x0164}
0x289c…28b2 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x0008}
0x28b2…28bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x001e}
0x28bc…28c8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0028}
0x28c8…28d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x0034}
0x28d2…28e6 Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x001a, t01=0x003e}
0x28e6…2900 Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x001a, t01=0x0052}
0x2900…291a Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x001a, t01=0x006c}
0x291a…2936 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x001a, t01=0x0086}
0x2936…2950 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x001a, t01=0x00a2}
0x2950…296c Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x001a, t01=0x00bc}
0x296c…2986 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x001a, t01=0x00d8}
0x2986…29a8 Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x001a, t01=0x00f2}
0x29a8…29c2 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x001a, t01=0x0114}
0x29c2…29cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x012e}
0x29cc…29f6 Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x001a, t01=0x0138}
0x29f6…2a04 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001a, t01=0x0162}
0x2a04…2a42 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x001a, t01=0x0170}
0x2a42…2a60 Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x001b, t01=0x001e}
0x2a60…2a94 Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x001b, t01=0x003c}
0x2a94…2aba Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x001b, t01=0x0070}
0x2aba…2b00 Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x001b, t01=0x0096}
0x2b00…2b22 Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x001b, t01=0x00dc}
0x2b22…2b2c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x00fe}
0x2b2c…2b40 Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x001b, t01=0x0108}
0x2b40…2b68 Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x001b, t01=0x011c}
0x2b68…2b7e Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x001b, t01=0x0144}
0x2b7e…2ba2 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001b, t01=0x015a}
0x2ba2…2bc8 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x001b, t01=0x017e}
0x2bc8…2bf2 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x0014}
0x2bf2…2c06 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x003e}
0x2c06…2c1a Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x001c, t01=0x0052}
0x2c1a…2c48 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x001c, t01=0x0066}
0x2c48…2c5e Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x001c, t01=0x0094}
0x2c5e…2c76 Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x001c, t01=0x00aa}
0x2c76…2c8c Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x001c, t01=0x00c2}
0x2c8c…2cb0 Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x001c, t01=0x00d8}
0x2cb0…2cd6 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x001c, t01=0x00fc}
0x2cd6…2cec Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x001c, t01=0x0122}
0x2cec…2d18 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x001c, t01=0x0138}
0x2d18…2d20 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x0164}
0x2d20…2d28 Head {h00=0x0004, h01=0x0050, t00=0x001c, t01=0x016c}
0x2d28…2d50 Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x001c, t01=0x0174}
0x2d50…2d68 Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x001d, t01=0x000c}
0x2d68…2d9e Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x001d, t01=0x0024}
0x2d9e…2dda Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x001d, t01=0x005a}
0x2dda…2de4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0096}
0x2de4…2df8 Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x001d, t01=0x00a0}
0x2df8…2e1c Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001d, t01=0x00b4}
0x2e1c…2e34 Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x001d, t01=0x00d8}
0x2e34…2e5e Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001d, t01=0x00f0}
0x2e5e…2e7c Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001d, t01=0x011a}
0x2e7c…2ea0 Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001d, t01=0x0138}
0x2ea0…2eb6 Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001d, t01=0x015c}
0x2eb6…2ee2 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001d, t01=0x0172}
0x2ee2…2efa Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001e, t01=0x000e}
0x2efa…2f24 Head {h00=0x0026, h01=0x0050, text=»ACDY55 LDK A2,LF LINE FEED TO SEND«, t00=0x001e, t01=0x0026}
0x2f24…2f36 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001e, t01=0x0050}
0x2f36…2f62 Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001e, t01=0x0062}
0x2f62…2f74 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x008e}
0x2f74…2f9e Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001e, t01=0x00a0}
0x2f9e…2fb0 Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001e, t01=0x00ca}
0x2fb0…2fbe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x00dc}
0x2fbe…2fc8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x00ea}
0x2fc8…2ff2 Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001e, t01=0x00f4}
0x2ff2…3014 Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001e, t01=0x011e}
0x3014…301e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0140}
0x301e…3032 Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001e, t01=0x014a}
0x3032…3048 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001e, t01=0x015e}
0x3048…3072 Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001e, t01=0x0174}
0x3072…3086 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001f, t01=0x000e}
0x3086…30ae Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001f, t01=0x0022}
0x30ae…30ba Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x004a}
0x30ba…30ce Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001f, t01=0x0056}
0x30ce…3104 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x001f, t01=0x006a}
0x3104…312c Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x001f, t01=0x00a0}
0x312c…3146 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x001f, t01=0x00c8}
0x3146…315a Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x001f, t01=0x00e2}
0x315a…3170 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001f, t01=0x00f6}
0x3170…31a6 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x001f, t01=0x010c}
0x31a6…31bc Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x001f, t01=0x0142}
0x31bc…31e8 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x001f, t01=0x0158}
0x31e8…3214 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x001f, t01=0x0184}
0x3214…323c Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x0020}
0x323c…3254 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0020, t01=0x0048}
0x3254…3272 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0020, t01=0x0060}
0x3272…328c Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0020, t01=0x007e}
0x328c…32a8 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0020, t01=0x0098}
0x32a8…32c6 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0020, t01=0x00b4}
0x32c6…32e0 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0020, t01=0x00d2}
0x32e0…3300 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0020, t01=0x00ec}
0x3300…331c Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0020, t01=0x010c}
0x331c…3334 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0020, t01=0x0128}
0x3334…3352 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0020, t01=0x0140}
0x3352…3370 Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0020, t01=0x015e}
0x3370…3398 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0020, t01=0x017c}
0x3398…33b2 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x0021, t01=0x0014}
0x33b2…33cc Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0021, t01=0x002e}
0x33cc…33e6 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0021, t01=0x0048}
0x33e6…3402 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0021, t01=0x0062}
0x3402…342e Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x0021, t01=0x007e}
0x342e…3442 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0021, t01=0x00aa}
0x3442…3468 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x0021, t01=0x00be}
0x3468…348c Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x0021, t01=0x00e4}
0x348c…34ae Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x0021, t01=0x0108}
0x34ae…34c8 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0021, t01=0x012a}
0x34c8…34e8 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x0021, t01=0x0144}
0x34e8…3502 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0021, t01=0x0164}
0x3502…350c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0021, t01=0x017e}
0x350c…3532 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0021, t01=0x0188}
0x3532…353e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x001e}
0x353e…3556 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x0022, t01=0x002a}
0x3556…3590 Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0022, t01=0x0042}
0x3590…35b2 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0022, t01=0x007c}
0x35b2…35ca Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x0022, t01=0x009e}
0x35ca…35e4 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0022, t01=0x00b6}
0x35e4…35fa Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x0022, t01=0x00d0}
0x35fa…360e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x00e6}
0x360e…3632 Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x0022, t01=0x00fa}
0x3632…3658 Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x0022, t01=0x011e}
0x3658…366e Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x0022, t01=0x0144}
0x366e…3684 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x0022, t01=0x015a}
0x3684…36aa Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0022, t01=0x0170}
0x36aa…36ce Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x0023, t01=0x0008}
0x36ce…36e6 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x0023, t01=0x002c}
0x36e6…3708 Head {h00=0x001e, h01=0x0050, text=» LDK A1,0 SET TABLE PONTER«, t00=0x0023, t01=0x0044}
0x3708…3736 Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x0023, t01=0x0066}
0x3736…374c Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x0023, t01=0x0094}
0x374c…3772 Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x0023, t01=0x00aa}
0x3772…378c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x0023, t01=0x00d0}
0x378c…37a0 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0023, t01=0x00ea}
0x37a0…37d0 Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0023, t01=0x00fe}
0x37d0…37e2 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0023, t01=0x012e}
0x37e2…37f4 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0023, t01=0x0140}
0x37f4…381c Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0023, t01=0x0152}
0x381c…3832 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0023, t01=0x017a}
0x3832…3858 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0023, t01=0x0190}
0x3858…386a Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0024, t01=0x0026}
0x386a…3894 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0024, t01=0x0038}
0x3894…38a6 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x0062}
0x38a6…38c0 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0024, t01=0x0074}
0x38c0…38d2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0024, t01=0x008e}
0x38d2…38fe Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0024, t01=0x00a0}
0x38fe…3910 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x00cc}
0x3910…3922 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0024, t01=0x00de}
0x3922…3940 Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0024, t01=0x00f0}
0x3940…3962 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0024, t01=0x010e}
0x3962…397c Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0024, t01=0x0130}
0x397c…3986 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0024, t01=0x014a}
0x3986…399c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0024, t01=0x0154}
0x399c…39c6 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0024, t01=0x016a}
0x39c6…39da (37, 0, 398) Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0025, t01=0x0004}
0x39da…3a10 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0025, t01=0x0018}
0x3a10…3a1c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x004e}
0x3a1c…3a32 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0025, t01=0x005a}
0x3a32…3a48 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0025, t01=0x0070}
0x3a48…3a5c Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0025, t01=0x0086}
0x3a5c…3a7a Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0025, t01=0x009a}
0x3a7a…3a98 Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0025, t01=0x00b8}
0x3a98…3aac Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0025, t01=0x00d6}
0x3aac…3ac0 Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0025, t01=0x00ea}
0x3ac0…3ada Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0025, t01=0x00fe}
0x3ada…3afc Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0025, t01=0x0118}
0x3afc…3b1e Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0025, t01=0x013a}
0x3b1e…3b42 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0025, t01=0x015c}
0x3b42…3b58 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0025, t01=0x0180}
0x3b58…3b7a Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0026, t01=0x0008}
0x3b7a…3ba0 Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0026, t01=0x002a}
0x3ba0…3bc4 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0026, t01=0x0050}
0x3bc4…3bda Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0026, t01=0x0074}
0x3bda…3bf0 Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0026, t01=0x008a}
0x3bf0…3c2a Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0026, t01=0x00a0}
0x3c2a…3c54 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0026, t01=0x00da}
0x3c54…3c60 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0026, t01=0x0104}
0x3c60…3c72 Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0026, t01=0x0110}
0x3c72…3c7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x0122}
0x3c7c…3c86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0026, t01=0x012c}
0x3c86…3c9c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0026, t01=0x0136}
0x3c9c…3cb0 Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0026, t01=0x014c}
0x3cb0…3cd0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0026, t01=0x0160}
0x3cd0…3ce4 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0026, t01=0x0180}
0x3ce4…3cfc (39, 0, 398) Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0027, t01=0x0004}
0x3cfc…3d12 Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0027, t01=0x001c}
0x3d12…3d32 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x0032}
0x3d32…3d4a Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0027, t01=0x0052}
0x3d4a…3d6e Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0027, t01=0x006a}
0x3d6e…3d82 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x008e}
0x3d82…3daa Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0027, t01=0x00a2}
0x3daa…3dd2 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0027, t01=0x00ca}
0x3dd2…3de6 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0027, t01=0x00f2}
0x3de6…3e06 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0027, t01=0x0106}
0x3e06…3e20 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0027, t01=0x0126}
0x3e20…3e40 Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0027, t01=0x0140}
0x3e40…3e52 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0027, t01=0x0160}
0x3e52…3e72 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0027, t01=0x0172}
0x3e72…3ea6 (40, 0, 400) Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0028, t01=0x0004}
0x3ea6…3eba Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0028, t01=0x0038}
0x3eba…3ee4 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0028, t01=0x004c}
0x3ee4…3efc Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0028, t01=0x0076}
0x3efc…3f24 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0028, t01=0x008e}
0x3f24…3f48 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0028, t01=0x00b6}
0x3f48…3f5c Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0028, t01=0x00da}
0x3f5c…3f80 Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0028, t01=0x00ee}
0x3f80…3f9c Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0028, t01=0x0112}
0x3f9c…3fc0 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0028, t01=0x012e}
0x3fc0…3fe2 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0028, t01=0x0152}
0x3fe2…3ff6 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0028, t01=0x0174}
0x3ff6…4008 Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0028, t01=0x0188}
0x4008…4014 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x000a}
0x4014…4022 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x0016}
0x4022…402c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x0024}
0x402c…404a Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0029, t01=0x002e}
0x404a…4054 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x004c}
0x4054…4068 Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0029, t01=0x0056}
0x4068…407e Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0029, t01=0x006a}
0x407e…409e Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0029, t01=0x0080}
0x409e…40b0 Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x0029, t01=0x00a0}
0x40b0…40be Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00b2}
0x40be…40c8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c0}
0x40c8…40e0 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x0029, t01=0x00ca}
0x40e0…40ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e2}
0x40ea…40fe Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x0029, t01=0x00ec}
0x40fe…412e Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x0029, t01=0x0100}
0x412e…4140 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0029, t01=0x0130}
0x4140…4172 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x0029, t01=0x0142}
0x4172…4184 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0029, t01=0x0174}
0x4184…4196 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x0029, t01=0x0186}
0x4196…41ac Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002a, t01=0x0008}
0x41ac…41e0 Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002a, t01=0x001e}
0x41e0…41f2 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x0052}
0x41f2…4208 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002a, t01=0x0064}
0x4208…4228 Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x002a, t01=0x007a}
0x4228…425a Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002a, t01=0x009a}
0x425a…4272 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x002a, t01=0x00cc}
0x4272…42a2 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002a, t01=0x00e4}
0x42a2…42cc Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002a, t01=0x0114}
0x42cc…42e2 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x002a, t01=0x013e}
0x42e2…42f4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002a, t01=0x0154}
0x42f4…431e Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002a, t01=0x0166}
0x431e…433a Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x002a, t01=0x0190}
0x433a…436a Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002b, t01=0x001c}
0x436a…4384 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002b, t01=0x004c}
0x4384…439e Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002b, t01=0x0066}
0x439e…43b2 Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x002b, t01=0x0080}
0x43b2…43c0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0094}
0x43c0…43ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00a2}
0x43ca…43e8 Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x002b, t01=0x00ac}
0x43e8…43f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x00ca}
0x43f2…4428 Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x002b, t01=0x00d4}
0x4428…443e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002b, t01=0x010a}
0x443e…4464 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002b, t01=0x0120}
0x4464…4488 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002b, t01=0x0146}
0x4488…44a6 Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY166 YES =2 «, t00=0x002b, t01=0x016a}
0x44a6…44b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002b, t01=0x0188}
0x44b2…44dc (44, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x0004}
0x44dc…44f0 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x002c, t01=0x002e}
0x44f0…4512 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x002c, t01=0x0042}
0x4512…452c Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x002c, t01=0x0064}
0x452c…4542 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002c, t01=0x007e}
0x4542…4564 Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x002c, t01=0x0094}
0x4564…457a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x00b6}
0x457a…4596 Head {h00=0x0018, h01=0x0050, text=»ADY166 EQU * YES =2 «, t00=0x002c, t01=0x00cc}
0x4596…45c0 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x00e8}
0x45c0…45ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002c, t01=0x0112}
0x45ca…45f2 Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x002c, t01=0x011c}
0x45f2…4614 Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x002c, t01=0x0144}
0x4614…462e Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x002c, t01=0x0166}
0x462e…464c Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002c, t01=0x0180}
0x464c…465e Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x002d, t01=0x000e}
0x465e…4678 Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x002d, t01=0x0020}
0x4678…46a2 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x003a}
0x46a2…46c2 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 OVER EDGE =2 «, t00=0x002d, t01=0x0064}
0x46c2…46de Head {h00=0x0018, h01=0x0050, text=» RF(NN) ADY186 NO =2«, t00=0x002d, t01=0x0084}
0x46de…46fe Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 ADJUST LENGTH «, t00=0x002d, t01=0x00a0}
0x46fe…4712 Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x002d, t01=0x00c0}
0x4712…4730 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 DECREMENT =2«, t00=0x002d, t01=0x00d4}
0x4730…4760 Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002d, t01=0x00f2}
0x4760…4782 Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002d, t01=0x0122}
0x4782…47a0 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x0144}
0x47a0…47b8 Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002d, t01=0x0162}
0x47b8…47c4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002d, t01=0x017a}
0x47c4…47d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002d, t01=0x0186}
0x47d2…47dc (46, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0004}
0x47dc…480a Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002e, t01=0x000e}
0x480a…4814 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x003c}
0x4814…4828 Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002e, t01=0x0046}
0x4828…4832 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x005a}
0x4832…4848 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002e, t01=0x0064}
0x4848…486e Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002e, t01=0x007a}
0x486e…4892 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002e, t01=0x00a0}
0x4892…48ac Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002e, t01=0x00c4}
0x48ac…48e2 Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002e, t01=0x00de}
0x48e2…48ee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0114}
0x48ee…491c Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002e, t01=0x0120}
0x491c…494e Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002e, t01=0x014e}
0x494e…496e Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002e, t01=0x0180}
0x496e…4980 Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002f, t01=0x0010}
0x4980…4996 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x0022}
0x4996…49ac Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x002f, t01=0x0038}
0x49ac…49da Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002f, t01=0x004e}
0x49da…4a02 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x002f, t01=0x007c}
0x4a02…4a1c Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x002f, t01=0x00a4}
0x4a1c…4a54 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x002f, t01=0x00be}
0x4a54…4a68 Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x002f, t01=0x00f6}
0x4a68…4a90 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x002f, t01=0x010a}
0x4a90…4aa8 Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x002f, t01=0x0132}
0x4aa8…4ada Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x002f, t01=0x014a}
0x4ada…4afa Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x002f, t01=0x017c}
0x4afa…4b16 Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0030, t01=0x000c}
0x4b16…4b44 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0030, t01=0x0028}
0x4b44…4b64 Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0030, t01=0x0056}
0x4b64…4b86 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0030, t01=0x0076}
0x4b86…4bac Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0030, t01=0x0098}
0x4bac…4bbe Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0030, t01=0x00be}
0x4bbe…4bd0 Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0030, t01=0x00d0}
0x4bd0…4bf0 Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0030, t01=0x00e2}
0x4bf0…4c1a Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0030, t01=0x0102}
0x4c1a…4c40 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x0030, t01=0x012c}
0x4c40…4c52 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0030, t01=0x0152}
0x4c52…4c5c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0164}
0x4c5c…4c76 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0030, t01=0x016e}
0x4c76…4c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0030, t01=0x0188}
0x4c80…4cb6 (49, 0, 400) Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x0031, t01=0x0004}
0x4cb6…4ce2 Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x0031, t01=0x003a}
0x4ce2…4d0a Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x0031, t01=0x0066}
0x4d0a…4d24 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0031, t01=0x008e}
0x4d24…4d4a Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x0031, t01=0x00a8}
0x4d4a…4d5e Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0031, t01=0x00ce}
0x4d5e…4d80 Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0031, t01=0x00e2}
0x4d80…4d9a Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0031, t01=0x0104}
0x4d9a…4dba Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0031, t01=0x011e}
0x4dba…4dd4 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0031, t01=0x013e}
0x4dd4…4df8 Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0031, t01=0x0158}
0x4df8…4e0a Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0031, t01=0x017c}
0x4e0a…4e38 Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0031, t01=0x018e}
0x4e38…4e4a Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0032, t01=0x002c}
0x4e4a…4e7e Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x0032, t01=0x003e}
0x4e7e…4ea0 Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x0032, t01=0x0072}
0x4ea0…4eba Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0032, t01=0x0094}
0x4eba…4ecc Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0032, t01=0x00ae}
0x4ecc…4efa Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0032, t01=0x00c0}
0x4efa…4f1e Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0032, t01=0x00ee}
0x4f1e…4f38 Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0032, t01=0x0112}
0x4f38…4f5c Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0032, t01=0x012c}
0x4f5c…4f86 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0032, t01=0x0150}
0x4f86…4fa6 Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0032, t01=0x017a}
0x4fa6…4fb8 Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0033, t01=0x000a}
0x4fb8…4fea Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0033, t01=0x001c}
0x4fea…501a Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0033, t01=0x004e}
0x501a…503e Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0033, t01=0x007e}
0x503e…5060 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0033, t01=0x00a2}
0x5060…508a Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0033, t01=0x00c4}
0x508a…509c Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0033, t01=0x00ee}
0x509c…50c2 Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0033, t01=0x0100}
0x50c2…50dc Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0033, t01=0x0126}
0x50dc…50fe Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0033, t01=0x0140}
0x50fe…5114 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0033, t01=0x0162}
0x5114…5150 Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0033, t01=0x0178}
0x5150…515c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0024}
0x515c…5186 Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0034, t01=0x0030}
0x5186…519a Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0034, t01=0x005a}
0x519a…51b0 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0034, t01=0x006e}
0x51b0…51ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0084}
0x51ba…51e4 Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0034, t01=0x008e}
0x51e4…51fa Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0034, t01=0x00b8}
0x51fa…5204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00ce}
0x5204…5210 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00d8}
0x5210…521a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00e4}
0x521a…5228 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x00ee}
0x5228…5232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x00fc}
0x5232…523c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0106}
0x523c…5278 Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0034, t01=0x0110}
0x5278…52b0 Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0034, t01=0x014c}
0x52b0…52ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0184}
0x52ba…52ce Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0034, t01=0x018e}
0x52ce…52f8 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0035, t01=0x0012}
0x52f8…5312 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0035, t01=0x003c}
0x5312…532c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0035, t01=0x0056}
0x532c…5340 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0035, t01=0x0070}
0x5340…5352 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0035, t01=0x0084}
0x5352…5376 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0035, t01=0x0096}
0x5376…538e Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0035, t01=0x00ba}
0x538e…53b4 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0035, t01=0x00d2}
0x53b4…53ca Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0035, t01=0x00f8}
0x53ca…53f8 Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0035, t01=0x010e}
0x53f8…540e Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0035, t01=0x013c}
0x540e…5438 Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0035, t01=0x0152}
0x5438…544e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0035, t01=0x017c}
0x544e…5462 (54, 0, 398) Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0036, t01=0x0004}
0x5462…548a Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0036, t01=0x0018}
0x548a…54ae Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x0040}
0x54ae…54e2 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0036, t01=0x0064}
0x54e2…5506 Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0036, t01=0x0098}
0x5506…5526 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0036, t01=0x00bc}
0x5526…553a Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0036, t01=0x00dc}
0x553a…5556 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0036, t01=0x00f0}
0x5556…556c Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY420«, t00=0x0036, t01=0x010c}
0x556c…5590 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0036, t01=0x0122}
0x5590…55a8 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0036, t01=0x0146}
0x55a8…55bc Head {h00=0x0010, h01=0x0050, text=»ADY420 EQU *«, t00=0x0036, t01=0x015e}
0x55bc…55dc Head {h00=0x001c, h01=0x0050, text=» SUK A7,6 ORDER B ? *DK «, t00=0x0036, t01=0x0172}
0x55dc…55f8 (55, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RF(NE) ENDIO NO *DK«, t00=0x0037, t01=0x0004}
0x55f8…5628 Head {h00=0x002c, h01=0x0050, text=» LD A4,DWTAP,A6 GET CURSOR POSITION. *DK«, t00=0x0037, t01=0x0020}
0x5628…564e Head {h00=0x0022, h01=0x0050, text=» ST A4,10,A8 PUT IN ECBCW *DK «, t00=0x0037, t01=0x0050}
0x564e…5672 Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0037, t01=0x0076}
0x5672…569a Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0037, t01=0x009a}
0x569a…56a4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00c2}
0x56a4…56ba Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0037, t01=0x00cc}
0x56ba…56c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00e2}
0x56c4…56d2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0037, t01=0x00ec}
0x56d2…56dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x00fa}
0x56dc…56f6 Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0037, t01=0x0104}
0x56f6…5700 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x011e}
0x5700…5714 Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0037, t01=0x0128}
0x5714…5728 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0037, t01=0x013c}
0x5728…5754 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0037, t01=0x0150}
0x5754…577e Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0037, t01=0x017c}
0x577e…579e Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0038, t01=0x0016}
0x579e…57b4 Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0038, t01=0x0036}
0x57b4…57c6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0038, t01=0x004c}
0x57c6…57f0 Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0038, t01=0x005e}
0x57f0…5802 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0038, t01=0x0088}
0x5802…5826 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0038, t01=0x009a}
0x5826…5848 Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0038, t01=0x00be}
0x5848…5852 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x00e0}
0x5852…586e Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x0038, t01=0x00ea}
0x586e…5878 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0106}
0x5878…589c Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x0038, t01=0x0110}
0x589c…58ba Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0038, t01=0x0134}
0x58ba…58c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0152}
0x58c4…58d6 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0038, t01=0x015c}
0x58d6…58e8 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0038, t01=0x016e}
0x58e8…58fa Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0038, t01=0x0180}
0x58fa…590c (57, 0, 400) Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0039, t01=0x0004}
0x590c…591e Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0039, t01=0x0016}
0x591e…5932 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0039, t01=0x0028}
0x5932…5946 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0039, t01=0x003c}
0x5946…5976 Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x0039, t01=0x0050}
0x5976…599e Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x0039, t01=0x0080}
0x599e…59ca Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x0039, t01=0x00a8}
0x59ca…59dc Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x0039, t01=0x00d4}
0x59dc…59ea Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0039, t01=0x00e6}
0x59ea…59f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x00f4}
0x59f4…5a0e Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x0039, t01=0x00fe}
0x5a0e…5a18 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0118}
0x5a18…5a3e Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x0039, t01=0x0122}
0x5a3e…5a5c Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0039, t01=0x0148}
0x5a5c…5a66 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0166}
0x5a66…5a7e Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x0039, t01=0x0170}
0x5a7e…5a90 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0039, t01=0x0188}
0x5a90…5aa2 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x003a, t01=0x000a}
0x5aa2…5ab4 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x003a, t01=0x001c}
0x5ab4…5ac6 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x003a, t01=0x002e}
0x5ac6…5ad8 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x0040}
0x5ad8…5af0 Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x003a, t01=0x0052}
0x5af0…5b06 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x003a, t01=0x006a}
0x5b06…5b1c Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x003a, t01=0x0080}
0x5b1c…5b34 Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x003a, t01=0x0096}
0x5b34…5b4a Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x003a, t01=0x00ae}
0x5b4a…5b5c Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x003a, t01=0x00c4}
0x5b5c…5b6e Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x003a, t01=0x00d6}
0x5b6e…5b86 Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x003a, t01=0x00e8}
0x5b86…5b98 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003a, t01=0x0100}
0x5b98…5bac Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x003a, t01=0x0112}
0x5bac…5bbe Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003a, t01=0x0126}
0x5bbe…5bd2 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x003a, t01=0x0138}
0x5bd2…5be4 Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x003a, t01=0x014c}
0x5be4…5bee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x015e}
0x5bee…5bfa Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003a, t01=0x0168}
0x5bfa…5c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0174}
0x5c04…5c12 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x017e}
0x5c12…5c1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x018c}
0x5c1c…5c4c Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x003b, t01=0x0008}
0x5c4c…5c7c Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x003b, t01=0x0038}
0x5c7c…5ca8 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x003b, t01=0x0068}
0x5ca8…5cbc Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x003b, t01=0x0094}
0x5cbc…5ce8 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x003b, t01=0x00a8}
0x5ce8…5d1e Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x003b, t01=0x00d4}
0x5d1e…5d30 Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003b, t01=0x010a}
0x5d30…5d60 Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x003b, t01=0x011c}
0x5d60…5d70 Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003b, t01=0x014c}
0x5d70…5d7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x015c}
0x5d7a…5db4 Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x003b, t01=0x0166}
0x5db4…5de8 Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x003c, t01=0x0010}
0x5de8…5e2a Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x003c, t01=0x0044}
0x5e2a…5e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0086}
0x5e34…5e48 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x003c, t01=0x0090}
0x5e48…5e74 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x003c, t01=0x00a4}
0x5e74…5e88 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003c, t01=0x00d0}
0x5e88…5ebe Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x003c, t01=0x00e4}
0x5ebe…5ed2 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003c, t01=0x011a}
0x5ed2…5ef8 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x003c, t01=0x012e}
0x5ef8…5f0e Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x003c, t01=0x0154}
0x5f0e…5f3e Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x003c, t01=0x016a}
0x5f3e…5f54 Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x003d, t01=0x000a}
0x5f54…5f62 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0020}
0x5f62…5f6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x002e}
0x5f6c…5f80 Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x003d, t01=0x0038}
0x5f80…5f8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x004c}
0x5f8a…5fa0 Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x003d, t01=0x0056}
0x5fa0…5faa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x006c}
0x5faa…5fbc Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x003d, t01=0x0076}
0x5fbc…5fda Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x003d, t01=0x0088}
0x5fda…5ff0 Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x003d, t01=0x00a6}
0x5ff0…600e Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x003d, t01=0x00bc}
0x600e…6024 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003d, t01=0x00da}
0x6024…6056 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003d, t01=0x00f0}
0x6056…6070 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003d, t01=0x0122}
0x6070…60a8 Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003d, t01=0x013c}
0x60a8…60b6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x0174}
0x60b6…60c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0182}
0x60c0…60d4 Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x003d, t01=0x018c}
0x60d4…60de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0010}
0x60de…610a Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003e, t01=0x001a}
0x610a…6114 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0046}
0x6114…611e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0050}
0x611e…614a Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003e, t01=0x005a}
0x614a…616a Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x003e, t01=0x0086}
0x616a…6174 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a6}
0x6174…618a Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x003e, t01=0x00b0}
0x618a…6194 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00c6}
0x6194…61b2 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003e, t01=0x00d0}
0x61b2…61ca Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x003e, t01=0x00ee}
0x61ca…61e8 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003e, t01=0x0106}
0x61e8…61fa Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003e, t01=0x0124}
0x61fa…6210 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003e, t01=0x0136}
0x6210…623a Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003e, t01=0x014c}
0x623a…6246 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003e, t01=0x0176}
0x6246…6250 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0182}
0x6250…6266 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003e, t01=0x018c}
0x6266…628c Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x003f, t01=0x0012}
0x628c…6298 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x0038}
0x6298…62a2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0044}
0x62a2…62b0 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x003f, t01=0x004e}
0x62b0…62c6 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x003f, t01=0x005c}
0x62c6…62e8 Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x003f, t01=0x0072}
0x62e8…62f6 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0094}
0x62f6…6304 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x00a2}
0x6304…6312 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x00b0}
0x6312…6320 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x00be}
0x6320…632e Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x00cc}
0x632e…633c Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x00da}
0x633c…634a Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x00e8}
0x634a…6358 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x00f6}
0x6358…6362 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0104}
0x6362…6378 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x003f, t01=0x010e}
0x6378…6382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0124}
0x6382…63a8 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x003f, t01=0x012e}
0x63a8…63ce Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x003f, t01=0x0154}
0x63ce…63e6 Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x003f, t01=0x017a}
0x63e6…6418 (64, 0, 400) Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x0040, t01=0x0004}
0x6418…642e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x0036}
0x642e…6438 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x004c}
0x6438…6444 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0056}
0x6444…644e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0062}
0x644e…645c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x006c}
0x645c…6470 Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x0040, t01=0x007a}
0x6470…6492 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x0040, t01=0x008e}
0x6492…64a8 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x00b0}
0x64a8…64d0 Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x0040, t01=0x00c6}
0x64d0…64e6 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x0040, t01=0x00ee}
0x64e6…6500 Head {h00=0x0016, h01=0x0050, text=» IFT WHATDY=0 =1 «, t00=0x0040, t01=0x0104}
0x6500…6522 Head {h00=0x001e, h01=0x0050, text=» IFF STEADY+COUNTRY=0 =1 «, t00=0x0040, t01=0x011e}
0x6522…6550 Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAMETERS =1 «, t00=0x0040, t01=0x0140}
0x6550…6576 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 PTS 6385/6386 ? =1«, t00=0x0040, t01=0x016e}
0x6576…6592 (65, 0, 400) Head {h00=0x0018, h01=0x0050, text=» RF(Z) RCDY14 NO =3 «, t00=0x0041, t01=0x0004}
0x6592…65c0 Head {h00=0x002a, h01=0x0050, text=» LDK A3,100 SET UP TRANSFER COUNTER =3«, t00=0x0041, t01=0x0020}
0x65c0…65f8 Head {h00=0x0034, h01=0x0050, text=»RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 «, t00=0x0041, t01=0x004e}
0x65f8…6628 Head {h00=0x002c, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO =3«, t00=0x0041, t01=0x0086}
0x6628…6650 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INF =3«, t00=0x0041, t01=0x00b6}
0x6650…667a Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC TRANSFER COUNTER =3 «, t00=0x0041, t01=0x00de}
0x667a…66aa Head {h00=0x002c, h01=0x0050, text=» RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3«, t00=0x0041, t01=0x0108}
0x66aa…66dc Head {h00=0x002e, h01=0x0050, text=» LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 «, t00=0x0041, t01=0x0138}
0x66dc…66f6 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0041, t01=0x016a}
0x66f6…6724 Head {h00=0x002a, h01=0x0050, text=» LDK A2,COUNTRY SEND 'COUNTRY CODE' =1«, t00=0x0041, t01=0x0184}
0x6724…673c Head {h00=0x0014, h01=0x0050, text=» ORK A2,/30 =1 «, t00=0x0042, t01=0x0022}
0x673c…6756 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x003a}
0x6756…6764 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0054}
0x6764…6772 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0062}
0x6772…678a Head {h00=0x0014, h01=0x0050, text=»RCDY14 EQU * =3«, t00=0x0042, t01=0x0070}
0x678a…679c Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0042, t01=0x0088}
0x679c…67c8 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD =3 «, t00=0x0042, t01=0x009a}
0x67c8…67ee Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x0042, t01=0x00c6}
0x67ee…6808 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0042, t01=0x00ec}
0x6808…681e Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x0042, t01=0x0106}
0x681e…6858 Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x0042, t01=0x011c}
0x6858…687a Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x0042, t01=0x0156}
0x687a…6898 Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x0042, t01=0x0178}
0x6898…68be Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x0043, t01=0x0008}
0x68be…68d8 Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x0043, t01=0x002e}
0x68d8…68e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0048}
0x68e6…68f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0056}
0x68f0…691c Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x0043, t01=0x0060}
0x691c…6926 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x008c}
0x6926…693a Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0043, t01=0x0096}
0x693a…6956 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0043, t01=0x00aa}
0x6956…6970 Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x0043, t01=0x00c6}
0x6970…699c Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x0043, t01=0x00e0}
0x699c…69ae Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x0043, t01=0x010c}
0x69ae…69d8 Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x0043, t01=0x011e}
0x69d8…69ee Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0043, t01=0x0148}
0x69ee…6a26 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x0043, t01=0x015e}
0x6a26…6a3a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0044, t01=0x0008}
0x6a3a…6a50 Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x0044, t01=0x001c}
0x6a50…6a82 Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0044, t01=0x0032}
0x6a82…6aa6 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0044, t01=0x0064}
0x6aa6…6ac0 Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x0044, t01=0x0088}
0x6ac0…6ace Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x00a2}
0x6ace…6ad8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00b0}
0x6ad8…6af0 Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x0044, t01=0x00ba}
0x6af0…6afa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x00d2}
0x6afa…6b2e Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0044, t01=0x00dc}
0x6b2e…6b38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0110}
0x6b38…6b4c Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0044, t01=0x011a}
0x6b4c…6b64 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0044, t01=0x012e}
0x6b64…6b7e Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x0044, t01=0x0146}
0x6b7e…6ba0 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0044, t01=0x0160}
0x6ba0…6baa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0182}
0x6baa…6bc0 Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0044, t01=0x018c}
0x6bc0…6bca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0012}
0x6bca…6bde Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0045, t01=0x001c}
0x6bde…6c06 Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x0045, t01=0x0030}
0x6c06…6c1a Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0045, t01=0x0058}
0x6c1a…6c24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x006c}
0x6c24…6c30 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0076}
0x6c30…6c3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0082}
0x6c3a…6c4c Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x0045, t01=0x008c}
0x6c4c…6c6c Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0045, t01=0x009e}
0x6c6c…6c80 Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0045, t01=0x00be}
0x6c80…6c9c Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0045, t01=0x00d2}
0x6c9c…6cc6 Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0045, t01=0x00ee}
0x6cc6…6cf6 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0045, t01=0x0118}
0x6cf6…6d08 Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0045, t01=0x0148}
0x6d08…6d40 Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0045, t01=0x015a}
0x6d40…6d6c (70, 0, 400) Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0046, t01=0x0004}
0x6d6c…6d76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0030}
0x6d76…6d8c Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0046, t01=0x003a}
0x6d8c…6d96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0050}
0x6d96…6daa Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0046, t01=0x005a}
0x6daa…6dd6 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0046, t01=0x006e}
0x6dd6…6dea Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0046, t01=0x009a}
0x6dea…6e0e Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0046, t01=0x00ae}
0x6e0e…6e36 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0046, t01=0x00d2}
0x6e36…6e50 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0046, t01=0x00fa}
0x6e50…6e62 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0046, t01=0x0114}
0x6e62…6e70 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0046, t01=0x0126}
0x6e70…6e7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0134}
0x6e7a…6e8c Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0046, t01=0x013e}
0x6e8c…6e96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x0150}
0x6e96…6eaa Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0046, t01=0x015a}
0x6eaa…6ed6 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0046, t01=0x016e}
0x6ed6…6eea Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0047, t01=0x000a}
0x6eea…6f0e Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0047, t01=0x001e}
0x6f0e…6f24 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0047, t01=0x0042}
0x6f24…6f4e Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0047, t01=0x0058}
0x6f4e…6f70 Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0047, t01=0x0082}
0x6f70…6f88 Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0047, t01=0x00a4}
0x6f88…6fa2 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x00bc}
0x6fa2…6fb4 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x00d6}
0x6fb4…6fc0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0047, t01=0x00e8}
0x6fc0…6fee Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0047, t01=0x00f4}
0x6fee…7028 Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0047, t01=0x0122}
0x7028…7048 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0047, t01=0x015c}
0x7048…706a Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0047, t01=0x017c}
0x706a…708e Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0048, t01=0x000e}
0x708e…70a2 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0048, t01=0x0032}
0x70a2…70c4 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0048, t01=0x0046}
0x70c4…70d6 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0048, t01=0x0068}
0x70d6…7104 Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0048, t01=0x007a}
0x7104…7116 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0048, t01=0x00a8}
0x7116…7124 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x00ba}
0x7124…712e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00c8}
0x712e…7138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x00d2}
0x7138…716c Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0048, t01=0x00dc}
0x716c…71a0 Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x0048, t01=0x0110}
0x71a0…71d4 Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0048, t01=0x0144}
0x71d4…71f4 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x0048, t01=0x0178}
0x71f4…71fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x0008}
0x71fe…7212 Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x0049, t01=0x0012}
0x7212…7224 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0049, t01=0x0026}
0x7224…7250 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x0049, t01=0x0038}
0x7250…7264 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x0064}
0x7264…7296 Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x0049, t01=0x0078}
0x7296…72aa Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x00aa}
0x72aa…72d0 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x0049, t01=0x00be}
0x72d0…72ea Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x0049, t01=0x00e4}
0x72ea…7312 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x0049, t01=0x00fe}
0x7312…7324 Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x0049, t01=0x0126}
0x7324…734a Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x0049, t01=0x0138}
0x734a…7364 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0049, t01=0x015e}
0x7364…738c Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x0049, t01=0x0178}
0x738c…73a6 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x0010}
0x73a6…73c6 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x002a}
0x73c6…73e6 Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004a, t01=0x004a}
0x73e6…73f8 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004a, t01=0x006a}
0x73f8…740e Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004a, t01=0x007c}
0x740e…7430 Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004a, t01=0x0092}
0x7430…7460 Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x004a, t01=0x00b4}
0x7460…7470 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004a, t01=0x00e4}
0x7470…747e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004a, t01=0x00f4}
0x747e…74b6 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004a, t01=0x0102}
0x74b6…74ee Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x004a, t01=0x013a}
0x74ee…7526 Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x004a, t01=0x0172}
0x7526…755e Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x004b, t01=0x001a}
0x755e…7596 Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x004b, t01=0x0052}
0x7596…75ce Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x008a}
0x75ce…75e2 Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x004b, t01=0x00c2}
0x75e2…75ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00d6}
0x75ec…75f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x00e0}
0x75f6…760a Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x004b, t01=0x00ea}
0x760a…762c Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x004b, t01=0x00fe}
0x762c…7648 Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x004b, t01=0x0120}
0x7648…7678 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x004b, t01=0x013c}
0x7678…76a4 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x004b, t01=0x016c}
0x76a4…76c4 Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x004c, t01=0x0008}
0x76c4…76ec Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x004c, t01=0x0028}
0x76ec…770c Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x004c, t01=0x0050}
0x770c…7724 Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x004c, t01=0x0070}
0x7724…7748 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x004c, t01=0x0088}
0x7748…7770 Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x004c, t01=0x00ac}
0x7770…7788 Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x004c, t01=0x00d4}
0x7788…779a Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004c, t01=0x00ec}
0x779a…77d4 Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x004c, t01=0x00fe}
0x77d4…77ee Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x004c, t01=0x0138}
0x77ee…7818 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x004c, t01=0x0152}
0x7818…7842 Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x004c, t01=0x017c}
0x7842…7872 Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x004d, t01=0x0016}
0x7872…788a Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x004d, t01=0x0046}
0x788a…789e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x005e}
0x789e…78c4 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x004d, t01=0x0072}
0x78c4…78e8 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTBIN,A6 SAVE INDEX «, t00=0x004d, t01=0x0098}
0x78e8…791c Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x004d, t01=0x00bc}
0x791c…793a Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x004d, t01=0x00f0}
0x793a…794c Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x004d, t01=0x010e}
0x794c…7960 Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x004d, t01=0x0120}
0x7960…7972 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x004d, t01=0x0134}
0x7972…7984 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004d, t01=0x0146}
0x7984…79b0 Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x004d, t01=0x0158}
0x79b0…79d0 Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004d, t01=0x0184}
0x79d0…79f0 Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x004e, t01=0x0014}
0x79f0…7a14 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x004e, t01=0x0034}
0x7a14…7a2a Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x004e, t01=0x0058}
0x7a2a…7a40 Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004e, t01=0x006e}
0x7a40…7a56 Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x004e, t01=0x0084}
0x7a56…7a7c Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x004e, t01=0x009a}
0x7a7c…7a90 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004e, t01=0x00c0}
0x7a90…7abc Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x004e, t01=0x00d4}
0x7abc…7ad2 Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x004e, t01=0x0100}
0x7ad2…7af8 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x004e, t01=0x0116}
0x7af8…7b1e Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x004e, t01=0x013c}
0x7b1e…7b4c Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTBIN,A6 RESTORE BUFFER INDEX «, t00=0x004e, t01=0x0162}
0x7b4c…7b5e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004e, t01=0x0190}
0x7b5e…7b80 Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x004f, t01=0x0012}
0x7b80…7b8a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0034}
0x7b8a…7bbc Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x004f, t01=0x003e}
0x7bbc…7bd0 Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x004f, t01=0x0070}
0x7bd0…7bde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0084}
0x7bde…7be8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0092}
0x7be8…7bf2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x009c}
0x7bf2…7c32 Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x004f, t01=0x00a6}
0x7c32…7c6a Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x004f, t01=0x00e6}
0x7c6a…7c74 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x011e}
0x7c74…7c88 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x004f, t01=0x0128}
0x7c88…7c9c Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x004f, t01=0x013c}
0x7c9c…7cce Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x004f, t01=0x0150}
0x7cce…7ce2 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x004f, t01=0x0182}
0x7ce2…7cf6 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0050, t01=0x0008}
0x7cf6…7d16 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0050, t01=0x001c}
0x7d16…7d38 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x0050, t01=0x003c}
0x7d38…7d52 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x005e}
0x7d52…7d70 Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0050, t01=0x0078}
0x7d70…7d8a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x0096}
0x7d8a…7d9c Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0050, t01=0x00b0}
0x7d9c…7db6 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x00c2}
0x7db6…7dc6 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x00dc}
0x7dc6…7dd4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0050, t01=0x00ec}
0x7dd4…7dde Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x00fa}
0x7dde…7de8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x0104}
0x7de8…7e16 Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x0050, t01=0x010e}
0x7e16…7e58 Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x0050, t01=0x013c}
0x7e58…7e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x017e}
0x7e62…7e76 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x0050, t01=0x0188}
0x7e76…7e94 Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x0051, t01=0x000c}
0x7e94…7eb4 Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x0051, t01=0x002a}
0x7eb4…7ece Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x004a}
0x7ece…7eee Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x0051, t01=0x0064}
0x7eee…7f00 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0051, t01=0x0084}
0x7f00…7f1c Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x0051, t01=0x0096}
0x7f1c…7f32 Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x0051, t01=0x00b2}
0x7f32…7f46 Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x0051, t01=0x00c8}
0x7f46…7f58 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0051, t01=0x00dc}
0x7f58…7f82 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x0051, t01=0x00ee}
0x7f82…7f94 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0051, t01=0x0118}
0x7f94…7fb4 Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x0051, t01=0x012a}
0x7fb4…7fc8 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x0051, t01=0x014a}
0x7fc8…7fda Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x0051, t01=0x015e}
0x7fda…7fee Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x0051, t01=0x0170}
0x7fee…800c Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x0051, t01=0x0184}
0x800c…8020 Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x0052, t01=0x0012}
0x8020…8044 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x0052, t01=0x0026}
0x8044…8054 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x004a}
0x8054…8062 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x005a}
0x8062…8070 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0068}
0x8070…807e Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0076}
0x807e…808c Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0084}
0x808c…80c8 Head {h00=0x0038, h01=0x0050, text=»* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2«, t00=0x0052, t01=0x0092}
0x80c8…80d6 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x00ce}
0x80d6…80e4 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x00dc}
0x80e4…8118 Head {h00=0x0030, h01=0x0050, text=»* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 «, t00=0x0052, t01=0x00ea}
0x8118…814a Head {h00=0x002e, h01=0x0050, text=»* AT EXIT A4 = CHAR TO END OF SCREEN =2 «, t00=0x0052, t01=0x011e}
0x814a…8158 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0150}
0x8158…816e Head {h00=0x0012, h01=0x0050, text=»ERA EQU * =2 «, t00=0x0052, t01=0x015e}
0x816e…8194 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTPOS,A6 MAX CHAR. =2 «, t00=0x0052, t01=0x0174}
0x8194…81b8 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF GET MAX CHAR. =2«, t00=0x0053, t01=0x000a}
0x81b8…81ec Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 «, t00=0x0053, t01=0x002e}
0x81ec…8204 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =2 «, t00=0x0053, t01=0x0062}
0x8204…823a Head {h00=0x0032, h01=0x0050, text=» SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2«, t00=0x0053, t01=0x007a}
0x823a…825e Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH =2 «, t00=0x0053, t01=0x00b0}
0x825e…8282 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN =2«, t00=0x0053, t01=0x00d4}
0x8282…829e Head {h00=0x0018, h01=0x0050, text=» RF(L) ERAEND NO =2 «, t00=0x0053, t01=0x00f8}
0x829e…82d0 Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2«, t00=0x0053, t01=0x0114}
0x82d0…82f4 Head {h00=0x0020, h01=0x0050, text=» LDKL A3,/FFFF SET OVER EDGE«, t00=0x0053, t01=0x0146}
0x82f4…831a Head {h00=0x0022, h01=0x0050, text=»ERAEND EQU * END SUBROUTINE =2«, t00=0x0053, t01=0x016a}
0x831a…8334 Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0053, t01=0x0190}
0x8334…8358 Head {h00=0x0020, h01=0x0050, text=»ABDY EQU * ABORT ROUTINE =4 «, t00=0x0054, t01=0x001a}
0x8358…8388 Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE CURSOR POSITION =4«, t00=0x0054, t01=0x003e}
0x8388…83ac Head {h00=0x0020, h01=0x0050, text=» RTN A15 RETURN TO CALLER =4«, t00=0x0054, t01=0x006e}
0x83ac…83b8 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0054, t01=0x0092}
0x83b8…83bc Head {h00=0x4004, h01=0x0000}
0x83bc…83c0 00 54 00 9e ┆ T ┆
0x83c0…83c8 (85, 1, 8) 20 04 00 00 00 55 00 04 ┆ U ┆
0x83c8…8418 (86, 0, 400) 4f 44 2c 41 31 33 5c 47 45 54 20 4c 45 4e 47 54 48 20 4f 46 20 54 3a 41 54 41 42 20 01 2d 01 84 00 08 00 50 5c 58 49 46 01 2e 00 24 00 18 00 50 5c 49 46 54 5c 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 01 2e 00 30 00 28 00 50 5c 45 4c 2a ┆OD,A13 GET LENGTH OF T:ATAB - P XIF . $ P IFT CREDIT+MMUPAG=2 . 0 ( P EL*┆
0x8418…8468 5c 41 37 2c 54 3a 41 54 4f 44 2c 41 31 33 5c 47 45 54 20 54 3a 41 54 41 42 20 4c 45 4e 47 54 48 01 2e 00 4c 00 2a 00 50 5c 53 4c 4c 5c 41 37 2c 31 5c 52 45 53 45 52 56 45 20 46 4f 52 20 4d 4d 2d 41 44 44 52 45 53 53 2d 54 41 42 4c 45 01 2e ┆ A7,T:ATOD,A13 GET T:ATAB LENGTH . L * P SLL A7,1 RESERVE FOR MM-ADDRESS-TABLE .┆
0x8468…84b8 00 78 00 08 00 50 5c 58 49 46 01 2e 00 a6 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 01 2e 00 b2 00 30 00 50 5c 41 44 5c 41 37 2c 53 43 54 53 46 41 5c 54 4f 2d 41 44 44 52 45 53 53 20 28 41 46 54 45 52 20 53 48 41 44 4f 57 2d 54 ┆ x P XIF . P IFF CREDIT=0 . 0 P AD A7,SCTSFA TO-ADDRESS (AFTER SHADOW-T┆
0x84b8…8508 41 42 4c 45 01 2e 00 c8 00 0e 00 50 5c 41 44 4b 5c 41 37 2c 31 20 01 2e 00 fc 00 20 00 50 5c 41 4e 4b 4c 5c 41 37 2c 2f 46 46 46 45 5c 45 56 45 4e 20 41 44 44 52 45 53 53 20 01 2e 01 0e 00 04 00 50 01 2e 01 32 00 1a 00 50 2a 20 43 41 4c 43 ┆ABLE . P ADK A7,1 . P ANKL A7,/FFFE EVEN ADDRESS . P . 2 P* CALC┆
0x8508…8558 55 4c 41 54 45 20 52 45 4c 4f 43 41 54 49 4f 4e 01 2e 01 3a 00 04 00 50 01 2e 01 58 00 10 00 50 5c 4c 44 52 5c 41 32 2c 41 31 33 20 01 2e 01 60 00 24 00 50 5c 53 55 52 5c 41 32 2c 41 37 5c 4d 4f 56 45 2d 4c 45 4e 47 54 48 20 28 53 59 53 4c ┆ULATE RELOCATION . : P . X P LDR A2,A13 . ` $ P SUR A2,A7 MOVE-LENGTH (SYSL┆
0x8558…85a8 (87, 0, 400) 44 41 29 20 01 2e 01 74 00 0e 00 50 5c 4e 47 52 5c 41 32 2c 41 32 01 2f 00 0c 00 34 00 50 5c 53 54 5c 41 32 2c 53 41 56 45 30 34 2c 41 31 33 5c 53 41 56 45 20 4e 45 57 20 52 45 4c 4f 43 41 54 49 4f 4e 20 54 45 4d 50 4f 52 41 52 59 20 01 2f ┆DA) . t P NGR A2,A2 / 4 P ST A2,SAVE04,A13 SAVE NEW RELOCATION TEMPORARY /┆
0x85a8…85f8 00 1e 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 01 2f 00 56 00 26 00 50 2a 20 43 52 45 41 54 45 20 53 59 53 4c 44 41 20 26 20 44 44 49 56 20 4d 4d 2d 54 41 42 4c 45 20 2a 20 01 2f 00 72 00 04 00 50 01 2f 00 9c ┆ P IFT CREDIT+MMUPAG=2 / V & P* CREATE SYSLDA & DDIV MM-TABLE * / r P / ┆
0x85f8…8648 00 22 00 50 5c 4c 44 52 5c 41 32 2c 41 37 5c 54 4f 2d 41 44 44 52 45 53 53 20 28 53 59 53 4c 44 41 29 01 2f 00 a4 00 1e 00 50 5c 41 4e 4b 4c 5c 41 32 2c 2f 46 30 30 30 5c 46 49 52 53 54 20 50 41 47 45 20 01 2f 00 ca 00 28 00 50 5c 53 54 5c ┆ " P LDR A2,A7 TO-ADDRESS (SYSLDA) / P ANKL A2,/F000 FIRST PAGE / ( P ST ┆
0x8648…8698 41 32 2c 4d 4d 52 45 4c 31 2c 41 31 33 5c 53 41 56 45 20 50 48 59 53 49 43 41 4c 20 50 41 47 45 01 2f 00 ec 00 22 00 50 5c 53 52 4c 5c 41 32 2c 32 5c 53 48 49 46 54 20 46 4f 52 20 4d 4d 2d 50 41 47 49 4e 47 20 01 2f 01 18 00 14 00 50 5c 4c ┆A2,MMREL1,A13 SAVE PHYSICAL PAGE / " P SRL A2,2 SHIFT FOR MM-PAGING / P L┆
0x8698…86e8 44 4b 4c 5c 41 31 31 2c 4d 4d 44 44 49 56 01 2f 01 3e 00 2e 00 50 5c 41 44 52 5c 41 31 31 2c 41 31 33 5c 47 45 54 20 4d 4d 2d 54 41 42 4c 45 20 53 54 41 52 54 20 41 44 44 52 45 53 53 53 3d 20 01 2f 01 56 00 1a 00 50 5c 4c 44 4b 5c 41 33 2c ┆DKL A11,MMDDIV / > . P ADR A11,A13 GET MM-TABLE START ADDRESSS= / V P LDK A3,┆
0x86e8…8738 (88, 0, 400) 31 36 5c 53 45 54 20 43 4f 55 4e 54 45 52 01 2f 01 88 00 28 00 50 53 59 41 31 35 37 5c 53 54 52 5c 41 32 2c 41 31 31 5c 53 54 4f 52 45 20 50 41 47 45 2d 50 4f 49 4e 54 45 52 01 30 00 16 00 1a 00 50 5c 41 44 4b 4c 5c 41 31 31 2c 32 5c 4e 45 ┆16 SET COUNTER / ( PSYA157 STR A2,A11 STORE PAGE-POINTER 0 P ADKL A11,2 NE┆
0x8738…8788 58 54 20 45 4e 54 52 59 01 30 00 42 00 20 00 50 5c 41 44 4b 4c 5c 41 32 2c 2f 34 30 30 5c 50 41 47 45 20 49 4e 43 52 45 4d 45 4e 54 01 30 00 60 00 12 00 50 5c 53 55 4b 5c 41 33 2c 31 5c 41 4c 4c 3f 01 30 00 84 00 16 00 50 5c 52 42 28 4e 5a ┆XT ENTRY 0 B P ADKL A2,/400 PAGE INCREMENT 0 ` P SUK A3,1 ALL? 0 P RB(NZ┆
0x8788…87d8 29 5c 53 59 41 31 35 37 5c 4e 4f 21 01 30 00 9a 00 28 00 50 5c 41 4e 4b 4c 5c 41 37 2c 2f 46 46 46 5c 47 45 54 20 44 49 53 50 4c 41 43 45 4d 2e 20 49 4e 20 50 41 47 45 01 30 00 b4 00 08 00 50 5c 58 49 46 01 30 00 e0 00 12 00 50 5c 49 46 46 ┆) SYA157 NO! 0 ( P ANKL A7,/FFF GET DISPLACEM. IN PAGE 0 P XIF 0 P IFF┆
0x87d8…8828 20 43 52 45 44 49 54 3d 30 20 01 30 00 ec 00 30 00 50 5c 53 54 5c 41 37 2c 53 41 56 45 31 32 2c 41 31 33 5c 53 41 56 45 20 28 4c 4f 47 49 43 41 4c 29 20 54 4f 2d 41 44 44 52 45 53 53 20 01 30 01 02 00 2e 00 50 5c 41 44 4b 4c 5c 41 37 2c 4c ┆ CREDIT=0 0 0 P ST A7,SAVE12,A13 SAVE (LOGICAL) TO-ADDRESS 0 . P ADKL A7,L┆
0x8828…8878 45 4e 47 54 32 5c 41 44 44 20 4c 45 4e 2e 20 4f 46 20 53 59 53 4c 44 41 20 54 4f 20 4d 4f 56 45 01 30 01 36 00 2c 00 50 5c 53 54 5c 41 37 2c 53 41 56 45 30 33 2c 41 31 33 5c 53 41 56 45 20 4e 45 57 20 44 44 49 56 20 41 44 44 52 45 53 53 20 ┆ENGT2 ADD LEN. OF SYSLDA TO MOVE 0 6 , P ST A7,SAVE03,A13 SAVE NEW DDIV ADDRESS ┆
0x8878…88c8 (89, 0, 400) 01 30 01 68 00 10 00 50 5c 4c 44 52 5c 41 36 2c 41 37 5c 20 01 31 00 08 00 24 00 50 2a 20 43 41 4c 43 55 4c 41 54 45 20 44 44 49 56 20 46 52 4f 4d 2d 41 44 44 52 45 53 53 20 2a 20 01 31 00 1c 00 04 00 50 01 31 00 44 00 1c 00 50 5c 4c 44 5c ┆ 0 h P LDR A6,A7 1 $ P* CALCULATE DDIV FROM-ADDRESS * 1 P 1 D P LD ┆
0x88c8…8918 41 31 2c 53 43 54 4c 41 43 5c 47 45 54 20 53 3a 47 54 41 42 01 31 00 4c 00 2a 00 50 5c 53 54 5c 41 31 2c 53 41 56 45 31 33 2c 41 31 33 5c 53 41 56 45 20 53 3a 47 54 41 42 20 41 44 44 52 45 53 53 20 01 31 00 6c 00 26 00 50 5c 53 54 5c 41 39 ┆A1,SCTLAC GET S:GTAB 1 L * P ST A1,SAVE13,A13 SAVE S:GTAB ADDRESS 1 l & P ST A9┆
0x8918…8968 2c 53 43 54 4c 41 43 5c 53 41 56 45 20 53 54 41 52 54 20 4f 46 20 50 3a 4d 54 41 42 01 31 00 9a 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 01 31 00 c4 00 28 00 50 5c 4c 44 5c 41 33 2c 4e 55 4d 53 45 47 2c 41 31 ┆,SCTLAC SAVE START OF P:MTAB 1 P IFT CREDIT-MMUPAG=1 1 ( P LD A3,NUMSEG,A1┆
0x8968…89b8 5c 4e 55 4d 42 45 52 20 4f 46 20 53 45 47 4d 45 4e 54 53 20 01 31 00 e0 00 08 00 50 5c 58 49 46 01 31 01 0c 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 01 31 01 18 00 28 00 50 5c 45 4c 5c 41 33 2c 4e 55 4d 53 45 ┆ NUMBER OF SEGMENTS 1 P XIF 1 P IFT CREDIT+MMUPAG=2 1 ( P EL A3,NUMSE┆
0x89b8…8a08 47 2c 41 31 5c 4e 55 4d 42 45 52 20 4f 46 20 53 45 47 4d 45 4e 54 53 20 01 31 01 34 00 08 00 50 5c 58 49 46 01 31 01 60 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 01 31 01 6c 00 2e 00 50 5c 4c 44 4b 5c 41 32 2c 53 45 47 52 45 43 ┆G,A1 NUMBER OF SEGMENTS 1 4 P XIF 1 ` P IFF CREDIT=0 1 l . P LDK A2,SEGREC┆
0x8a08…8a58 (90, 0, 398) 5c 53 45 47 4d 45 4e 54 20 42 4c 4f 43 4b 20 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 01 31 01 82 00 0e 00 50 5c 43 41 4c 4c 5c 4d 55 4c 54 01 32 00 24 00 0e 00 50 5c 41 44 52 5c 41 31 2c 41 33 01 32 00 36 00 26 00 50 5c 41 44 4b 5c 41 31 2c ┆ SEGMENT BLOCK RECORD LENGTH 1 P CALL MULT 2 $ P ADR A1,A3 2 6 & P ADK A1,┆
0x8a58…8aa8 4e 55 4d 53 45 47 2b 32 5c 3d 3e 20 53 54 41 52 54 20 4f 46 20 44 44 49 56 20 01 32 00 48 00 32 00 50 5c 4c 44 5c 41 32 2c 53 41 56 45 30 34 2c 41 31 33 5c 47 45 54 20 4e 45 57 20 52 45 4c 4f 43 41 54 49 4f 4e 20 49 4e 43 52 45 4d 45 4e 54 ┆NUMSEG+2 => START OF DDIV 2 H 2 P LD A2,SAVE04,A13 GET NEW RELOCATION INCREMENT┆
0x8aa8…8af8 01 32 00 72 00 30 00 50 5c 41 44 53 5c 41 32 2c 4d 3a 52 45 4c 2c 41 31 33 5c 41 4e 44 20 41 44 4a 55 53 54 20 52 45 4c 4f 43 41 54 49 4f 4e 20 42 41 53 45 01 32 00 a8 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2b 4d 4d 55 50 41 47 3d 32 ┆ 2 r 0 P ADS A2,M:REL,A13 AND ADJUST RELOCATION BASE 2 P IFT CREDIT+MMUPAG=2┆
0x8af8…8b48 01 32 00 dc 00 04 00 50 01 32 00 f8 00 2e 00 50 5c 53 54 5c 41 31 2c 53 41 56 45 30 34 2c 41 31 33 5c 53 41 56 45 20 44 44 49 56 20 27 46 52 4f 4d 27 2d 41 44 44 52 45 53 53 01 32 01 00 00 08 00 50 5c 58 49 46 01 32 01 32 00 18 00 50 5c 49 ┆ 2 P 2 . P ST A1,SAVE04,A13 SAVE DDIV 'FROM'-ADDRESS 2 P XIF 2 2 P I┆
0x8b48…8b96 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 01 32 01 3e 00 2c 00 50 5c 53 54 5c 41 31 2c 53 41 56 45 30 34 2c 41 31 33 5c 53 41 56 45 20 44 44 49 56 20 46 52 4f 4d 2d 41 44 44 52 45 53 53 01 32 01 5a 00 08 00 50 5c 58 49 46 ┆FT CREDIT-MMUPAG=1 2 > , P ST A1,SAVE04,A13 SAVE DDIV FROM-ADDRESS 2 Z P XIF┆
0x8b96…8be6 (91, 0, 398) 01 32 01 8a 00 12 00 50 5c 49 46 46 20 43 52 45 44 49 54 3d 30 20 01 33 00 08 00 22 00 50 5c 53 55 52 5c 41 36 2c 41 31 5c 52 45 4c 4f 43 41 54 49 4f 4e 20 46 4f 52 20 44 44 49 56 01 33 00 1e 00 0a 00 50 5c 45 4a 45 43 54 01 33 00 44 00 04 ┆ 2 P IFF CREDIT=0 3 " P SUR A6,A1 RELOCATION FOR DDIV 3 P EJECT 3 D ┆
0x8be6…8c36 00 50 01 33 00 52 00 08 00 50 5c 5c 5c 5c 01 33 00 5a 00 08 00 50 5c 5c 5c 5c 01 33 00 66 00 30 00 50 2a 20 52 45 4c 4f 43 41 54 45 20 41 44 44 52 45 53 53 45 53 20 49 4e 20 54 3a 41 54 41 42 20 41 46 54 45 52 20 4d 4f 56 45 20 2a 20 01 33 ┆ P 3 R P 3 Z P 3 f 0 P* RELOCATE ADDRESSES IN T:ATAB AFTER MOVE * 3┆
0x8c36…8c86 00 72 00 2e 00 50 2a 20 43 41 4c 43 55 4c 41 54 45 20 54 4f 54 41 4c 20 28 3d 52 45 41 4c 29 20 4c 45 4e 47 54 48 20 20 20 20 20 20 20 20 2a 20 01 33 00 a6 00 2e 00 50 2a 20 52 45 4d 4f 56 45 20 4e 4f 54 20 55 53 45 44 20 45 4e 54 52 49 45 ┆ r . P* CALCULATE TOTAL (=REAL) LENGTH * 3 . P* REMOVE NOT USED ENTRIE┆
0x8c86…8cd6 53 20 49 4e 20 54 3a 41 54 41 42 20 20 20 20 20 2a 20 01 33 00 d8 00 2e 00 50 2a 20 41 39 3d 50 3a 4d 54 41 42 20 20 20 41 36 3d 4d 4f 56 45 2d 52 45 4c 4f 43 20 20 20 20 20 20 20 20 20 20 20 20 20 2a 20 01 33 01 0a 00 2e 00 50 2a 2a 2a 2a ┆S IN T:ATAB * 3 . P* A9=P:MTAB A6=MOVE-RELOC * 3 . P****┆
0x8cd6…8d24 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 01 33 01 3c 00 18 00 50 5c 49 46 54 20 43 52 45 44 49 54 2d 4d 4d 55 50 41 47 3d 31 01 33 01 6e 00 04 00 50 01 33 01 8a ┆************************************* 3 < P IFT CREDIT-MMUPAG=1 3 n P 3 ┆
0x8d24…8d74 (92, 0, 398) 00 18 00 50 2a 20 49 4e 49 54 49 41 54 45 20 50 4f 49 4e 54 45 52 53 20 01 34 00 04 00 04 00 50 01 34 00 20 00 28 00 50 5c 4c 44 5c 41 38 2c 54 3a 41 54 4f 44 2c 41 31 33 5c 47 45 54 20 54 3a 41 54 41 42 20 41 44 44 52 45 53 53 01 34 00 28 ┆ P* INITIATE POINTERS 4 P 4 ( P LD A8,T:ATOD,A13 GET T:ATAB ADDRESS 4 (┆
0x8d74…8dc4 00 1a 00 50 5c 4c 44 52 2a 5c 41 33 2c 41 38 5c 47 45 54 20 4c 45 4e 47 54 48 01 34 00 54 00 1c 00 50 5c 41 44 52 5c 41 33 2c 41 38 5c 45 4e 44 20 4f 46 20 54 3a 41 54 41 42 01 34 00 72 00 1a 00 50 5c 53 54 5c 41 33 2c 45 4e 44 41 44 44 2c ┆ P LDR* A3,A8 GET LENGTH 4 T P ADR A3,A8 END OF T:ATAB 4 r P ST A3,ENDADD,┆
0x8dc4…8e14 41 31 33 5c 53 41 56 45 01 34 00 92 00 30 00 50 5c 4c 44 5c 41 35 2c 53 43 54 53 46 41 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 54 3a 41 54 41 42 20 53 48 41 44 4f 57 2d 54 41 42 01 34 00 b0 00 1c 00 50 5c 4c 44 52 5c 41 34 2c 41 35 5c 32 ┆A13 SAVE 4 0 P LD A5,SCTSFA GET START OF T:ATAB SHADOW-TAB 4 P LDR A4,A5 2┆
0x8e14…8e64 3a 4e 44 20 50 4f 49 4e 54 45 52 20 01 34 00 e4 00 26 00 50 5c 4c 44 52 5c 41 32 2c 41 38 5c 32 3a 4e 44 20 50 4f 49 4e 54 45 52 20 49 4e 20 54 3a 41 54 41 42 20 01 34 01 04 00 26 00 50 5c 4c 44 4b 5c 41 33 2c 32 5c 53 45 54 20 27 4e 45 57 ┆:ND POINTER 4 & P LDR A2,A8 2:ND POINTER IN T:ATAB 4 & P LDK A3,2 SET 'NEW┆
0x8e64…8eb2 27 20 54 3a 41 54 41 42 20 43 4f 55 4e 54 45 52 01 34 01 2e 00 2e 00 50 5c 53 55 52 5c 41 31 31 2c 41 31 31 5c 43 4c 45 41 52 20 52 45 41 4c 20 4c 45 4e 47 54 48 20 41 43 43 55 4d 55 4c 41 54 4f 52 01 34 01 58 00 04 00 50 01 34 01 8a ┆' T:ATAB COUNTER 4 . . P SUR A11,A11 CLEAR REAL LENGTH ACCUMULATOR 4 X P 4 ┆