|
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: 36712 (0x8f68)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦48601905a⟧ Bits:30009668 Philips computer tape "600121"
└─⟦this⟧ »M:TU10/DRDY01.SC«
└─⟦d2a299635⟧ Bits:30009698 Philips computer tape "600415"
└─⟦this⟧ »M:TU10/DRDY01.SC«
IDENT DRDY01 REL 10.0 80-03-14 870105041000 =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE PRR 10.0 79-12-07 =6,CORRECTION OF SPECIAL CHARTACTER HANDLING REL 10.1 79-10-19 =5,ABORT ROUTINE REL 10.1 79-10-15 =4,CORRECTION OF ERASE REL 9.1 79-05-23 =3,STEADY CURSOR PROBLEM CORRECTED PRR 9.1 79-04-06 =2,ERASE ONLY TO LAST POS. OF SCREEN PRR 9.1 79-01-31 =1 DRIVER ADAPTAD TO HANDLE PTS 6385 PRR 9.1 79-01-12 * ************************************************** * * PHILIPS TERMINAL SYSTEM PTS * * DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY * * * * * * ************************************************** * * * THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS * PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 * AND PTS 6386 * THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM * VIA CHLT OR CHRT. * * THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS * WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN * ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE * GENERAL KEYBOARD DRIVER DRKB01. * * * THE DRIVER CONSISTS OF FOLLOWING PARTS: * * A C D Y ACTIVATION PART * * I H D Y INTERRUPT HANDLER * * R C D Y RECOVERY ROUTINE * * E C H O D Y ECHO FUNCTIONS * * * THE FOLLOWING ORDERS ARE TREATED: * * ORDER 00: TEST STATUS * 05: BASIC WRITE * 06: STANDARD WRITE * 07: WRITE GRAPHIC DISPLAY * 0B: CURSOR POSITIONING * 31: ERASE * * NORMAL REGISTER USAGE * * REGISTER A1 = RETURN CODE * A2 = OUTPUT CHARACTER * A3 = BUFFER INDEX * A4 = WORK REGISTER * A5 = STACK BASE * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS * EJECT * * * SYSTEM ADAPTATION * * DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. * * --------------------------------- * BIT: 10 11 * -------------- * 0 0 PTS 6344 * 0 1 PTS 6351 & 6342 * 1 0 PTS 6386 & 6385 * --------------------------------- * * BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: * -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT * -IS ADAPTED TO CONTROL ONLY PTS 6344 * -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7 * -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER * -CAN SUPPRESS TRAILING BLANKS * AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F) EJECT * * * * *********** * ENTRIES * *********** * * * ENTRY DYAD ADDRESS TO ADDRESSBLOCK ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE * * * * ***************************************** * EXTERNAL TOSS MODULE ENTRIES * ***************************************** * * EXTRN DISIOE I/O REQUEST ERROR EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER EXTRN TDISP DISPATCHER EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN EXTRN TENDIO END I/O EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER EJECT * ************************ * DWT PARAMETERS * ************************ * EXTRN DWTST STATUS EXTRN DWTBC BYTE COUNTER EXTRN DWTOR ORDER * EJECT ************* * CONSTANTS * ************* * FASTO EQU /14 FAST OUTPUT SCADD EQU /11 SET CURSOR ADDRESS ULSTAR EQU /12 UNDERLINE START ULSTOP EQU /13 UNDERLINE STOP LISTAR EQU /1E LOW INTENSITY START LISTOP EQU /1F LOW INTENSITY STOP BACKSP EQU /08 BACKSPACE LF EQU /0A LINE FEED HOME EQU /0B CURSOR HOME CLEHOM EQU /0C CLEAR AND CURSOR HOME CR EQU /0D CARRIAGE RETURN CURRIG EQU /10 CURSOR RIGHT SPACE EQU /20 SPACE STX EQU /82 START OF MESSAGE ETB EQU /97 END OF MESSAGE ETX EQU /03 LAST DUMMY RETURN EQU /12 RETURN TO ALPHANUMERIC MODE ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE POINT EQU /2E POINT CHARACTER EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT STILL EQU /18 CURSOR STEADY CTYCOD EQU /1B SET COUNTRY CODE * ******************** * RETURN CODES * ******************** * CCERR EQU /4 CODE CHECK ERROR OPERR EQU /1 NOT OPERABLE, POWER OFF * EJECT * * ***************************************** * CONDITIONAL ASSEMBLY * ***************************************** * * * BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 * X:A EQU 0 GRAFIC EQU 0 * * BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 * X:B EQU 1 WHATDY EQU 1 * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 0 LOWCHA EQU 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 0 * * 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,5 SET TABLE PONTER ADY110 CC A2,TABSPE,A1 CHARACTER FOUND RF(NE) ADY128 CCK A2,/1E1E LOW INTENSITY ? RF(NE) ADY122 NO LDK A4,/80 ADY120 ORRS A4,A6 SET LOW INTENSITY MODE LDK A4,0 RB ACDY50 ADY122 CCK A2,/1212 UNDERLINE ? RF(NE) ADY125 LDK A4,/40 SET UNDERLINE MODE RB ADY120 ADY125 CCK A2,/1414 FAST OUTPUT ? LDK A4,0 RB(NE) ACDY50 NO LDR A4,A2 CF A15,GETCHR GET OUTPUT CHARACTER LDR A1,A2 LDR A2,A4 LD A4,4,A8 REQ LENGTH SUR A4,A3 NUMBER OF CHARS RF(Z) ADY127 NONE * IFT WHATDY=0 LDR* A7,A6 GET CHANNEL PARAMETER ANK A7,/10 RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386? XIF LDR A3,A1 NO! CF A5,FASTER ADY127 EQU * LD A3,4,A8 REQ LENGTH ST A3,6,A8 EFF LENGTH ABL ADY405 ADY128 EQU * SUK A1,1 GET NEXT RB(NN) ADY110 NOT AT END LDR A1,A2 MOVE CHARACTER SUK A1,/11 TAB CHAR? (11) RF(E) ADY140 SUK A1,/F LESS THAN /20 ? RF(N) ADY130 CODE CHECK ERROR SUK A1,/3F GREATER THAN /5F RB(NP) ACDY70 IFT LOWCHA=0 SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F TO CHARACTER BETWEEN /40 TO /5F XIF RB ACDY70 * * IFT WHATDY=0 OTHER EQU * ************************ * A3 = INDEX * A1 = CHARACTER * A4 = NUMBER ************************ LC A2,DWTBC,A6 AD A2,DWTAP,A6 GET POSITION ANK A2,/FF ADR A2,A4 ADD LENGTH OF REQUEST LD A3,DWTPOS,A6 GET MAX-POS AND ANK A3,/FF ST A4,10,A8 SAVE LENGTH SUR A3,A2 COMPARE RF(NN) OT030 LENGTH OK ADR A4,A3 ST A4,10,A8 SAVE LENGTH ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS OT030 EQU * LDR A3,A1 SAVE CHARACTER TO SEND OT010 LDR A2,A3 CF A5,OUTPUT SENT CHAR (IN A2) SUK A4,1 DECREMENT COUNTER RB(P) OT010 LD A4,10,A8 GET ACT. LENGTH OT040 LDK A2,BACKSP CF A5,OUTPUT SENDBACKSPACE SUK A4,1 DECREMENT LENGTH RB(P) OT040 RB ADY127 XIF EJECT * * CODE CHECK ERROR * ADY130 EQU * LDK A1,CCERR ORS A1,8,A8 RETURN CODE RB ADY100 EJECT * * TABULATION * ADY140 EQU * CF A15,GETCHR GET FIRST ASCII CHARACTER LDR A4,A2 CF A15,GETCHR GET SECOND ASCII CHARACTER ANK A2,/F ANK A4,/F RF(E) ADY144 ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL SUK A4,1 RB(NE) ADY143 ADY144 LC A4,DWTAP+1,A6 SUR A2,A4 SUBTRACT HEAD POSITION POINTER LC A4,DWTBC,A6 SUR A2,A4 AND REQUESTS POSITION COUNTER TO GET NUMBER OF SPACES TO SEND RB(NP) ADY100 LDR A4,A2 ADY145 LDK A2,CURRIG CURSOR RIGHT ADY146 CF A5,OUTPUT CF A15,POSUPD POSITION COUNTER UPDATING SUK A4,1 READY ? RB(NE) ADY145 NO ABL ADY100 EJECT * * ERASE ORDER /31 * ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY? RF(NE) ADY166 YES =2 XIF CF A5,ERA GET LENGTH TO ERASE =2 LDK A3,/20 CF A5,FASTER FAST OUTPUT ADY165 LDK A2,ETB CF A5,OUTPUT ABL ADY410 END OF REQUEST IFT WHATDY=0 ADY166 EQU * YES =2 CF A5,ERA GET LENGTH TO ERASE =2 * ADY170 SUK A4,1 DECR NO OF CHAR RF(N) ADY180 ERASE READY LDK A2,/20 SPACE CF A5,OUTPUT SEND IT RB ADY170 ADY180 LD A4,10,A8 CF A5,ERA GET LENGTH TO ERASE =2 LDR A3,A3 OVER EDGE =4 RF(NN) ADY186 NO =4 SUK A4,1 ADJUST LENGTH =4 ADY186 EQU * SUK A4,1 DECREMENT =2 RB(N) ADY165 CURSOR IN ORIGIN POSITION LDK A2,BACKSP CURSOR LEFT CF A5,OUTPUT SEND IT RB ADY186 AGAIN XIF EJECT * * ORDER /B CURSOR POSITIONING PART * ADY200 EQU * * IFT WHATDY=0 LDR* A1,A6 CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY? RF(NE) ADY205 YES * IF VIDEO (6344) SET CURSOR ADDRESS DIRECT XIF LD A4,10,A8 GET REQUESTED CURSOR POS ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER CF A5,CURPOS SET CURSOR RF ADY380 IFT WHATDY=0 * GET LINE ADY205 LC A4,10,A8 GET REQUESTED LINE CC A4,DWTLIN,A6 OUTSIDE SCREEN? RF(NG) ADY207 NO! LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE ADY207 EQU * LC A3,DWTAP,A6 GET ACTUAL LINE ADY210 CWR A4,A3 RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL RF(E) ADY300 SAME LINE LDK A2,LF LINE FEED ADK A3,1 INCREMENT ACTUAL LINE NUMBER ADY230 CF A5,OUTPUT SEND LDR A4,A4 REQUESTED LINE RB(NZ) ADY210 NOT EQUAL ZERO LDK A4,1 RF ADY300 ADY250 LDK A2,HOME HOME LDK A3,1 RESET ACTUAL LINE NUMBER ST A3,DWTAP,A6 RESET POSITION RB ADY230 * * GET POSITION * ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER LC A4,11,A8 GET REQUESTED POSITION CC A4,DWTPOS,A6 OUTSIDE SCREEN? RF(NG) ADY303 NO! LC A4,DWTPOS,A6 SET LAST LINE ADY303 EQU * CWK A4,1 FIRST POSITION ? RF(NE) ADY305 NO CWR A4,A3 FIRST LINE ? RF(NE) ADY305 NO LDK A2,HOME CURSOR GO HOME RF ADY330 ADY305 RF(NL) ADY307 REQ. POS NOT ZERO LDK A4,1 ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION CC A3,DWTPOS,A6 MAX-POS? RF(NG) ADY310 NO! SUK A3,1 ADY310 CWR A4,A3 FORWARDS OR BACKWARDS RF(E) ADY370 POSITION FOUND RF(N) ADY340 BACK LDK A2,CURRIG CURSOR RIGHT ADK A3,1 UPDATE POSITION COUNTER ADY330 CF A5,OUTPUT SEND RB ADY310 ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS. CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY RF(L) ADY345 BACKSPACE WAY LDK A2,CR CARRIAGE RETURN LDK A3,1 INDICATE FIRST POSITION RB ADY330 ADY345 LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND SUK A3,1 LAST BACKSPACE ? RB(NE) ADY345 ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER XIF ADY380 LDK A3,2 START BUFFER INDEX ABL ACDY90 IFT WHATDY=0 * ADY400 LDK A2,/22 START CHARACTER CF A5,OUTPUT * XIF * EJECT * * * SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL * WORD, LOAD A1 WITH RETURN CODE AND END I/0. * ADY405 EQU * LDR* A1,A6 GET CHANNEL PARAMETER ANK A1,/30 6344 ? RF(NE) ADY407 NO LDR* A1,A6 LDR A4,A1 ANK A1,/40 UNDERLINE MODE ? RF(E) ADY406 NO LDK A2,ULSTOP UNDERLINE STOP CF A5,OUTPUT ADY406 ANK A4,/80 LOW INTENSITY MODE ? RF(E) ADY407 LDK A2,LISTOP LOW INTENSITY STOP CF A5,OUTPUT ADY407 EQU * LDK A2,ETB END OF TEXT MESSAGE CF A5,OUTPUT SEND CHARACTER CF A15,UPDAPP UPDATE HEAD POSITION COUNTER ADY410 LDK A2,ETX LAST DUMMY CF A5,OUTPUT SEND DUMMY SUK A7,/31 =7 RF(Z) ADY415 ORDER ERASE =7 LD A4,DWTAP,A6 GET CURSOR POSITION =4 ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 ADY415 EQU * ADK A7,/31-5 =7 RF(NE) ADY420 NOT ORDER BASIC WRITE LDKL A4,/101 HOME POSITION ST A4,DWTAP,A6 ADY420 EQU * ENDIO CF A15,TENDIO END I/O EXIT ABL TDISP GO TO DISPATCHER * IFT GRAFIC=1 * EJECT * * GRAPHIC PART * ADY500 EQU * LDK A2,/11 CF A5,OUTPUT SWITCH TO GRAFIC MODE ADY510 CF A15,GETCHR GET CHARACTER LDR A1,A1 BUFFER EMPTY RB(E) ADY400 LDR A4,A2 CF A15,GETCHR GET NEXT CHARACTER LDR A1,A4 ANK A4,/80 ADDRESS OR DATA RF(E) ADY530 DATA MESSAGE * * ADDRESS MESSAGE * * SET FIRST OUT PUT IN A2 * AND SECOND IN A4 * SLL A1,4 LDR A4,A2 SRL A4,4 ORR A4,A1 ANK A2,/F ANK A4,/7F ORK A2,/20 ADY515 CF A5,OUTPUT SEND FIRST CHARACTER LDR A2,A4 GET SECOND CHARACTER CF A5,OUTPUT SEND SECOND CHARACTER RB ADY510 EJECT * * DATA MESSAGE * * FIRST OUTPUT IS SET IN A2 * AND SECOND IN A4 * ADY530 SLL A1,13 LDR A4,A2 SLL A2,5 ORR A1,A2 LDK A7,10 LDK A2,0 ADY540 SLL A1,1 RF(NN) ADY550 ORKL A2,/200 ADY550 SUK A7,1 RF(E) ADY560 SRL A2,1 RB ADY540 ADY560 LDR A4,A2 SRL A4,4 ANK A4,/3F ANK A2,/F ORK A2,/60 RB ADY515 * XIF * EJECT * * UPDAPP = SUBROUTINE TO UPDATE HEAD * POSITION POINTER WHEN END * OF REQUEST IS REACHED UPDAPP EQU * LC A3,DWTBC,A6 GET POSITION COUNTER ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER LDK A3,0 SC A3,DWTBC,A6 RESET POSITION COUNTER RTN A15 * * POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION * POINTER WHEN REQUEST RUNNING. * A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE * POSUPD EQU * LC A2,DWTBC,A6 GET POSITION POINTER ANK A2,/FF AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER ANK A2,/FF CC A2,DWTPOS,A6 END OF ROW ? RF(P) POSU10 IM DWTST,A6 INCREMENT POSITION COUNTER POSU10 RTN A15 EJECT * * I H D Y * * INTERRUPT * IHDY EQU * LD A4,DWTST,A6 BUSY? RB(N) EXIT NO SLL A4,2 ECHO MODE ? RF(N) IHDY10 LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ? RB(NE) ADY420 YES IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 EJECT * * R C D Y * * RCDY = RECOVERY ROUTINE DISPLAY * * * RECOVERY IS CARRIED OUT ONLY IF * ORDER 6 IS RUNNING * * AT ENTRY: * * A6 = DWT-ADDRESS * A7 = ORDER * A8 = ECB-ADDRESS RCDY EQU * IFT CPU852=1 CF A15,SAVE8 SAVE A1-A8 ON STACK XIF * IFT CPU852=0 MSR 8,A15 SAVE A1-A8 ON STACK XIF * =3 LDKL A2,/7FFF ANS A2,DWTST,A6 SET BUSY =1 =1 =1 =1 =1 =1 =1 =1 * IFT WHATDY=0 * LDR* A2,A6 CHANNEL PARAMETER ANK A2,/10 GRAPHIC DISPLAY ? RF(E) RCDY10 NO LDK A2,RETURN RETURN TO ALPHANUMERIC MODE CF A5,OUTPUT * XIF * EJECT RCDY10 EQU * LDK A2,/00 DUMMY TO SEND CF A5,OUTPUT LDR A4,A4 LRC-ERROR IN BLOCK ? RF(NE) RCDY20 IFT WHATDY=0 =1 IFF STEADY+COUNTRY=0 =1 LDR* A2,A6 GET CHANNEL PARAMETERS =1 ANK A2,/20 PTS 6385/6386 ? =1 RF(Z) RCDY14 NO =3 LDK A3,100 SET UP TRANSFER COUNTER =3 RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 ADK A2,STEADY ADJUST TO STEADY IF SO =3 CF A5,OUTPUT SEND CURSOR INF =3 SUK A3,1 DEC TRANSFER COUNTER =3 RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3 LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 CF A5,OUTPUT =1 LDK A2,COUNTRY SEND 'COUNTRY CODE' =1 ORK A2,/30 =1 CF A5,OUTPUT =1 =3 =3 RCDY14 EQU * =3 XIF =1 LD A3,DWTST,A6 SAVE STATUS WORD =3 LDK A2,CLEHOM CLEAR AND HOME CF A5,OUTPUT SEND LDKL A2,/101 ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER LDR A3,A3 GET OLD STATUS RB(N) ENDIO NOT BUSY LDK A1,OPERR SET RETURN CODE RCDY15 ABL ADY420 EJECT * * LRC-ERROR IN BLOCK SENT REMOTE * RCDY20 EQU * SUK A7,5 ORDER 5 ? RF(NE) RCDY25 NO LDK A1,2 INDICATE THROUGHPUT ERROR RB RCDY15 RCDY25 LDK A2,STX START OF MESSAGE CF A5,OUTPUT LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK ANK A4,/FF RF(E) RCDY30 CF A5,BACCAN SEND BACKSPACES AND RUB OUT LDK A3,2 START BUFFER INDEX RCDY30 ABL ACDY90 EJECT * * E C H O D Y * * ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE * ECHODY EQU * LDR A7,A7 EOR? RF(N) ECDY17 YES LDR A3,A2 SAVE CHARACTER * IFT EORECH=0 * SUK A2,/80 RF(NN) ECDY20 NOT TO BE ECHOED ADK A2,/80 * XIF * SUK A3,/8 RF(E) ECDY40 BACKSPACE SUK A3,/10 RF(E) ECDY50 CLEAR ECDY10 CF A5,OUTPUT SEND CHARACTER CF A15,POSUPD POSITION COUNTER UPDATING RF ECDY20 ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER ECDY20 ABL ECHRTN RETURN TO KEYBOARD * * BACKSPACE * ECDY40 EQU * LC A4,DWTBC,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION LDK A4,1 INDICATE ONE BACKSTEP CF A5,BACCAN BACK RB ECDY20 EJECT * * CLEAR * ECDY50 EQU * LC A4,DWTBC,A6 GET POSITION COUNTER ANK A4,/FF RB(E) ECDY20 FIRST POSITION IFT WHATDY=0 LDR* A1,A6 GET CHANNEL PARAMETER ANK A1,/10 GRAFIC DISPLAY RF(E) ECDY60 N CF A5,BACCAN BACK RB ECDY20 XIF ECDY60 LDR A3,A4 SAVE POSITION COUNTER LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER CF A5,CURPOS SET CURSOR LDR A4,A3 GET POS COUNTER ADK A4,1 UPDATE POS COUNTER LDK A3,/20 CF A5,FASTER FAST OUTPUT LDK A2,0 SC A2,DWTBC,A6 RESET POSITION COUNTER RB ECDY20 EJECT * * * BACCAN = SUBROUTINE TO POSITION CURSOR * AT THE PLACE BEFORE REQUEST IF * CLEAR OR BACKWARDS ONE STEP IF * BACKSPACE. * BACCAN EQU * LDR A3,A4 LC A2,DWTBC,A6 GET POSITION COUNTER ANK A2,/FF AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER ANK A2,/FF CC A2,DWTPOS,A6 LAST POSITION RF(NP) BACA10 NO LDK A2,SPACE DESTRUCTIVE SPACE RF BACA20 BACA10 LDK A2,BACKSP BACKSPACE CF A5,OUTPUT SEND LDK A2,SPACE DESTRUCTIVE SPACE CF A5,OUTPUT SEND LDK A2,BACKSP BACKSPACE BACA20 CF A5,OUTPUT SEND SUK A4,1 RB(NE) BACA10 NGR A3,A3 NEGATE REGISTER ADS A3,DWTST,A6 UPDATE POSITION COUNTER RTN A5 EJECT *********************************************** * CHECK = SUBROUTIN TO CHECK USER BUFFER IN * * ORDER TO GET A REASON FOR USING * * 'FAST OUTPUT FACILITY' ON 6344 * * AND 6386 * *********************************************** CHECK EQU * * * LD A1,4,A8 SUR A1,A3 END OF BUFFER? ABL(NP) ACDY75 YES! LDR A7,A2 SAVE CHER TO SEND (AND CHECK) LDR A2,A4 SAVE BUFFER ADDRESS+INDEX LDK A4,1 RESET COUNTER NEXT ADK A4,1 INCREMENT COUNTER SUK A1,1 END OF BUFFER? RF(NP) OUT YES! ADK A2,1 INCREMENT POINTER CCR A7,A2 CHAR EQU TO PREVIUS? RB(E) NEXT YES! OUT EQU * CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? RF(L) NOFAST NO! ********************************** * UPDATE ACTUAL POSITION POINTER * FASTOK LC A2,DWTBC,A6 GET HEAD POSITION AD A2,DWTAP,A6 ANK A2,/FF ADR A3,A4 UPDATE BUFFER-INDEX ST A3,DWTBIN,A6 SAVE INDEX LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE SUR A3,A2 AND COMPARE SUR A3,A4 RF(NN) HIT ADR A4,A3 ADK A4,1 HIT ADS A4,DWTST,A6 UPDATE POSITION *********************** * EXECUTE FAST OUTPUT * LDR A3,A7 GET CHAR TO SEND CF A5,FASTER ************** * SET CURSOR * LD A4,DWTST,A6 GET ACTUAL POS ANK A4,/FF AD A4,DWTAP,A6 INC HEAD POS POINTER CF A5,CURPOS ***************************** * RESTORE A3 (BUFFER INDEX) * LD A3,DWTBIN,A6 RESTORE BUFFER INDEX SUK A3,1 ABL ACDY90 READ NEXT CHAR * NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER ABL ACDY75 EJECT * * * FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT * AT ENTRY A4 = NUMBER OF CHARACTERS * FASTER EQU * CWK A4,/60 RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG LDK A4,/59 FAS010 EQU * ADK A4,/20 ADD CONSTANT LDK A2,FASTO FAST OUTPUT CF A5,OUTPUT SEND LDR A2,A4 NO OF CHAR CF A5,OUTPUT SEND LDR A2,A3 CF A5,OUTPUT SEND RTN A5 EJECT * * * CURPOS = SUBROUTINE TO SET CURSOR * AT ENTRY A4 = CURSOR POS (POSITION AND LINE) * CURPOS EQU * ADKL A4,/1F1F CONVERT LDK A2,SCADD SET CURSOR CF A5,OUTPUT SEND ECR A2,A4 POS. X < /80? LDR A2,A2 RF(NN) CURR05 YES! LCK A4,/7F00 CURR05 EQU * LDR A2,A4 CF A5,OUTPUT OUTPUT POSITION (X) LDR A2,A4 RF(NN) CURR10 Y < /80! LDK A2,/7F RF CURR15 CURR10 EQU * SRL A2,8 SHIFT RIGHT CURR15 EQU * CF A5,OUTPUT OUTPUT LINE(Y) RTN A5 EJECT * =2 * =2 * =2 * ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2 * =2 * =2 * AT ENTRY A4 = CHAR TO ERASE FROM USER =2 * AT EXIT A4 = CHAR TO END OF SCREEN =2 * =2 ERA EQU * =2 LD A2,DWTPOS,A6 MAX CHAR. =2 ANK A2,/FF GET MAX CHAR. =2 LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 ANK A3,/FF =2 SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2 ADK A2,1 ADJUST LENGTH =2 CWR A4,A2 OUTSIDE SCREEN =2 RF(L) ERAEND NO =2 LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2 LDKL A3,/FFFF SET OVER =4 ERAEND EQU * END SUBROUTINE =2 RTN A5 RETURN =2 ABDY EQU * CF A15,UPDAPP UPDATE CURSOR POSITION =5 RTN A15 RETURN TO ABORT ROUTINE =5 END
0x0000…0036 (0, 0, 400) Head {h00=0x0032, h01=0x0050, text=» IDENT DRDY01 REL 10.0 80-03-14 870105041000 «, t00=0x0000, t01=0x0004}
0x0036…003e Head {h00=0x0004, h01=0x0050, t00=0x0000, t01=0x003a}
0x003e…0070 Head {h00=0x002e, h01=0x0050, text=» =7,CUR.POS FOR ALL ORDERS EXCEPT ERASE «, t00=0x0000, t01=0x0042}
0x0070…008c Head {h00=0x0018, h01=0x0050, text=» PRR 10.0 79-12-07«, t00=0x0000, t01=0x0074}
0x008c…00c4 Head {h00=0x0034, h01=0x0050, text=» =6,CORRECTION OF SPECIAL CHARTACTER HANDLING «, t00=0x0000, t01=0x0090}
0x00c4…00e0 Head {h00=0x0018, h01=0x0050, text=» REL 10.1 79-10-19«, t00=0x0000, t01=0x00c8}
0x00e0…00fc Head {h00=0x0018, h01=0x0050, text=» =5,ABORT ROUTINE «, t00=0x0000, t01=0x00e4}
0x00fc…0118 Head {h00=0x0018, h01=0x0050, text=» REL 10.1 79-10-15«, t00=0x0000, t01=0x0100}
0x0118…013a Head {h00=0x001e, h01=0x0050, text=» =4,CORRECTION OF ERASE «, t00=0x0000, t01=0x011c}
0x013a…0156 Head {h00=0x0018, h01=0x0050, text=» REL 9.1 79-05-23 «, t00=0x0000, t01=0x013e}
0x0156…0184 Head {h00=0x002a, h01=0x0050, text=» =3,STEADY CURSOR PROBLEM CORRECTED «, t00=0x0000, t01=0x015a}
0x0184…01a0 Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-04-06 «, t00=0x0000, t01=0x0188}
0x01a0…01d0 Head {h00=0x002c, h01=0x0050, text=» =2,ERASE ONLY TO LAST POS. OF SCREEN «, t00=0x0001, t01=0x0014}
0x01d0…01ec Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-31 «, t00=0x0001, t01=0x0044}
0x01ec…021e Head {h00=0x002e, h01=0x0050, text=» =1 DRIVER ADAPTAD TO HANDLE PTS 6385 «, t00=0x0001, t01=0x0060}
0x021e…023a Head {h00=0x0018, h01=0x0050, text=» PRR 9.1 79-01-12 «, t00=0x0001, t01=0x0092}
0x023a…0242 Head {h00=0x0004, h01=0x0050, t00=0x0001, t01=0x00ae}
0x0242…024c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00b6}
0x024c…0286 Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0001, t01=0x00c0}
0x0286…0290 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x00fa}
0x0290…02b8 Head {h00=0x0024, h01=0x0050, text=»* PHILIPS TERMINAL SYSTEM PTS «, t00=0x0001, t01=0x0104}
0x02b8…02c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x012c}
0x02c2…02f8 Head {h00=0x0032, h01=0x0050, text=»* DRDY01 = DRIVER VIDEO AND GRAPHIC DISPLAY «, t00=0x0001, t01=0x0136}
0x02f8…0302 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x016c}
0x0302…030c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0176}
0x030c…0316 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x0180}
0x0316…0320 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0001, t01=0x018a}
0x0320…032a (2, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0004}
0x032a…0334 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x000e}
0x0334…036e Head {h00=0x0036, h01=0x0050, text=»**************************************************«, t00=0x0002, t01=0x0018}
0x036e…0378 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x0052}
0x0378…0382 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x005c}
0x0382…03c0 Head {h00=0x003a, h01=0x0050, text=»* THIS DRIVER HANDLES OUTPUT TO THE VIDEO DISPLAYS «, t00=0x0002, t01=0x0066}
0x03c0…0404 Head {h00=0x0040, h01=0x0050, text=»* PTS 6344, PTS 6342 AND TO THE PLASMA DISPLAYS PTS 6351 «, t00=0x0002, t01=0x00a4}
0x0404…041e Head {h00=0x0016, h01=0x0050, text=»* AND PTS 6386 «, t00=0x0002, t01=0x00e8}
0x041e…0458 Head {h00=0x0036, h01=0x0050, text=»* THE DISPLAYS MUST BE CONNECTED TO THE SYSTEM «, t00=0x0002, t01=0x0102}
0x0458…0476 Head {h00=0x001a, h01=0x0050, text=»* VIA CHLT OR CHRT.«, t00=0x0002, t01=0x013c}
0x0476…0480 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0002, t01=0x015a}
0x0480…04c0 Head {h00=0x003c, h01=0x0050, text=»* THE DRIVER INCLUDES DEVICE DEPENDENT ECHO-FUNCTIONS«, t00=0x0002, t01=0x0164}
0x04c0…04fe Head {h00=0x003a, h01=0x0050, text=»* WHICH MAKES IT POSSIBLE TO USE THE DISPLAY AS AN «, t00=0x0003, t01=0x0014}
0x04fe…053c Head {h00=0x003a, h01=0x0050, text=»* ECHO-DEVICE TO ANY KEYBOARD, THAT RUNS UNDER THE «, t00=0x0003, t01=0x0052}
0x053c…0568 Head {h00=0x0028, h01=0x0050, text=»* GENERAL KEYBOARD DRIVER DRKB01.«, t00=0x0003, t01=0x0090}
0x0568…0572 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00bc}
0x0572…057c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x00c6}
0x057c…05b0 Head {h00=0x0030, h01=0x0050, text=»* THE DRIVER CONSISTS OF FOLLOWING PARTS:«, t00=0x0003, t01=0x00d0}
0x05b0…05ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0104}
0x05ba…05e4 Head {h00=0x0026, h01=0x0050, text=»* A C D Y ACTIVATION PART«, t00=0x0003, t01=0x010e}
0x05e4…05ee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x0138}
0x05ee…061a Head {h00=0x0028, h01=0x0050, text=»* I H D Y INTERRUPT HANDLER«, t00=0x0003, t01=0x0142}
0x061a…0624 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0003, t01=0x016e}
0x0624…0650 Head {h00=0x0028, h01=0x0050, text=»* R C D Y RECOVERY ROUTINE «, t00=0x0003, t01=0x0178}
0x0650…065a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0014}
0x065a…0684 Head {h00=0x0026, h01=0x0050, text=»* E C H O D Y ECHO FUNCTIONS «, t00=0x0004, t01=0x001e}
0x0684…068e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0048}
0x068e…0696 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0052}
0x0696…069e Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x005a}
0x069e…06a6 Head {h00=0x0004, h01=0x0050, t00=0x0004, t01=0x0062}
0x06a6…06b0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x006a}
0x06b0…06de Head {h00=0x002a, h01=0x0050, text=»* THE FOLLOWING ORDERS ARE TREATED:«, t00=0x0004, t01=0x0074}
0x06de…06e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x00a2}
0x06e8…070a Head {h00=0x001e, h01=0x0050, text=»* ORDER 00: TEST STATUS«, t00=0x0004, t01=0x00ac}
0x070a…072c Head {h00=0x001e, h01=0x0050, text=»* 05: BASIC WRITE«, t00=0x0004, t01=0x00ce}
0x072c…0752 Head {h00=0x0022, h01=0x0050, text=»* 06: STANDARD WRITE «, t00=0x0004, t01=0x00f0}
0x0752…077e Head {h00=0x0028, h01=0x0050, text=»* 07: WRITE GRAPHIC DISPLAY«, t00=0x0004, t01=0x0116}
0x077e…07a8 Head {h00=0x0026, h01=0x0050, text=»* 0B: CURSOR POSITIONING «, t00=0x0004, t01=0x0142}
0x07a8…07c4 Head {h00=0x0018, h01=0x0050, text=»* 31: ERASE«, t00=0x0004, t01=0x016c}
0x07c4…07ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0004, t01=0x0188}
0x07ce…07f0 (5, 0, 400) Head {h00=0x001e, h01=0x0050, text=»* NORMAL REGISTER USAGE«, t00=0x0005, t01=0x0004}
0x07f0…07fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0026}
0x07fa…0820 Head {h00=0x0022, h01=0x0050, text=»* REGISTER A1 = RETURN CODE«, t00=0x0005, t01=0x0030}
0x0820…084c Head {h00=0x0028, h01=0x0050, text=»* A2 = OUTPUT CHARACTER «, t00=0x0005, t01=0x0056}
0x084c…0874 Head {h00=0x0024, h01=0x0050, text=»* A3 = BUFFER INDEX «, t00=0x0005, t01=0x0082}
0x0874…089c Head {h00=0x0024, h01=0x0050, text=»* A4 = WORK REGISTER«, t00=0x0005, t01=0x00aa}
0x089c…08c2 Head {h00=0x0022, h01=0x0050, text=»* A5 = STACK BASE «, t00=0x0005, t01=0x00d2}
0x08c2…08e8 Head {h00=0x0022, h01=0x0050, text=»* A6 = DWT-ADDRESS«, t00=0x0005, t01=0x00f8}
0x08e8…0908 Head {h00=0x001c, h01=0x0050, text=»* A7 = ORDER«, t00=0x0005, t01=0x011e}
0x0908…092e Head {h00=0x0022, h01=0x0050, text=»* A8 = ECB-ADDRESS«, t00=0x0005, t01=0x013e}
0x092e…0938 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0164}
0x0938…0946 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0005, t01=0x016e}
0x0946…0950 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x017c}
0x0950…095a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0005, t01=0x0186}
0x095a…0978 Head {h00=0x001a, h01=0x0050, text=»* SYSTEM ADAPTATION«, t00=0x0005, t01=0x0190}
0x0978…0982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x001e}
0x0982…09c2 Head {h00=0x003c, h01=0x0050, text=»* DISPLAY TYPE MUST BE DEFINED IN FIRST WORD IN DWT. «, t00=0x0006, t01=0x0028}
0x09c2…09cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0068}
0x09cc…09fa Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x0072}
0x09fa…0a14 Head {h00=0x0016, h01=0x0050, text=»* BIT: 10 11«, t00=0x0006, t01=0x00a0}
0x0a14…0a2e Head {h00=0x0016, h01=0x0050, text=»* --------------«, t00=0x0006, t01=0x00ba}
0x0a2e…0a54 Head {h00=0x0022, h01=0x0050, text=»* 0 0 PTS 6344«, t00=0x0006, t01=0x00d4}
0x0a54…0a82 Head {h00=0x002a, h01=0x0050, text=»* 0 1 PTS 6351 & 6342 «, t00=0x0006, t01=0x00fa}
0x0a82…0ab0 Head {h00=0x002a, h01=0x0050, text=»* 1 0 PTS 6386 & 6385 «, t00=0x0006, t01=0x0128}
0x0ab0…0ade Head {h00=0x002a, h01=0x0050, text=»* --------------------------------- «, t00=0x0006, t01=0x0156}
0x0ade…0ae8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0006, t01=0x0184}
0x0ae8…0b22 Head {h00=0x0036, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY THE DRIVER: «, t00=0x0006, t01=0x018e}
0x0b22…0b5a Head {h00=0x0034, h01=0x0050, text=»* -CAN HANDLE GRAFIC MODE FOR PTS 6351 OR NOT «, t00=0x0007, t01=0x0038}
0x0b5a…0b8a Head {h00=0x002c, h01=0x0050, text=»* -IS ADAPTED TO CONTROL ONLY PTS 6344«, t00=0x0007, t01=0x0070}
0x0b8a…0bc8 Head {h00=0x003a, h01=0x0050, text=»* -CAN USE LOWER CASE CHAR. GENERATOR COLUMN 6 AND 7«, t00=0x0007, t01=0x00a0}
0x0bc8…0c04 Head {h00=0x0038, h01=0x0050, text=»* -CAN SUPPRESS ECHOING OF END OF RECORD CHARACTER«, t00=0x0007, t01=0x00de}
0x0c04…0c2e Head {h00=0x0026, h01=0x0050, text=»* -CAN SUPPRESS TRAILING BLANKS «, t00=0x0007, t01=0x011a}
0x0c2e…0c78 Head {h00=0x0046, h01=0x0050, text=»* AND ALSO UNDERLINE START (/12), LOW INT (/1E), HIGH INT (/1F)«, t00=0x0007, t01=0x0144}
0x0c78…0c86 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0007, t01=0x018e}
0x0c86…0c90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x000c}
0x0c90…0c9a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0016}
0x0c9a…0ca4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0020}
0x0ca4…0cae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x002a}
0x0cae…0cc2 Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x0034}
0x0cc2…0cd6 Head {h00=0x0010, h01=0x0050, text=»* ENTRIES * «, t00=0x0008, t01=0x0048}
0x0cd6…0cea Head {h00=0x0010, h01=0x0050, text=»*********** «, t00=0x0008, t01=0x005c}
0x0cea…0cf4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0070}
0x0cf4…0cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x007a}
0x0cfe…0d08 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0084}
0x0d08…0d34 Head {h00=0x0028, h01=0x0050, text=» ENTRY DYAD ADDRESS TO ADDRESSBLOCK «, t00=0x0008, t01=0x008e}
0x0d34…0d68 Head {h00=0x0030, h01=0x0050, text=» ENTRY ECHODY DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0008, t01=0x00ba}
0x0d68…0d72 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00ee}
0x0d72…0d7c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x00f8}
0x0d7c…0d86 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x0102}
0x0d86…0d90 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0008, t01=0x010c}
0x0d90…0dc2 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x0116}
0x0dc2…0df4 Head {h00=0x002e, h01=0x0050, text=»* EXTERNAL TOSS MODULE ENTRIES * «, t00=0x0008, t01=0x0148}
0x0df4…0e26 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x0008, t01=0x017a}
0x0e26…0e30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x001c}
0x0e30…0e3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0009, t01=0x0026}
0x0e3a…0e62 Head {h00=0x0024, h01=0x0050, text=» EXTRN DISIOE I/O REQUEST ERROR «, t00=0x0009, t01=0x0030}
0x0e62…0e94 Head {h00=0x002e, h01=0x0050, text=» EXTRN OUTPUT SUBROUTINE TO SEND CHARACTER«, t00=0x0009, t01=0x0058}
0x0e94…0eb4 Head {h00=0x001c, h01=0x0050, text=» EXTRN TDISP DISPATCHER «, t00=0x0009, t01=0x008a}
0x0eb4…0ef6 Head {h00=0x003e, h01=0x0050, text=» EXTRN LDREG LOAD REGISTERS A4, A3, A5, A7, A8 AND RETURN «, t00=0x0009, t01=0x00aa}
0x0ef6…0f14 Head {h00=0x001a, h01=0x0050, text=» EXTRN TENDIO END I/O «, t00=0x0009, t01=0x00ec}
0x0f14…0f46 Head {h00=0x002e, h01=0x0050, text=» EXTRN SAVE8 SAVE 8 REGISTERS ON A15 STACK«, t00=0x0009, t01=0x010a}
0x0f46…0f7a Head {h00=0x0030, h01=0x0050, text=» EXTRN ECHRTN RETURN TO KEYBOARD AFTER ECHO «, t00=0x0009, t01=0x013c}
0x0f7a…0fae Head {h00=0x0030, h01=0x0050, text=» EXTRN GETCHR GET CHARACTER FROM ECB-BUFFER «, t00=0x0009, t01=0x0170}
0x0fae…0fbc Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x0014}
0x0fbc…0fc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0022}
0x0fc6…0fe6 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x002c}
0x0fe6…1006 Head {h00=0x001c, h01=0x0050, text=»* DWT PARAMETERS *«, t00=0x000a, t01=0x004c}
0x1006…1026 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x000a, t01=0x006c}
0x1026…1030 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x008c}
0x1030…104c Head {h00=0x0018, h01=0x0050, text=» EXTRN DWTST STATUS «, t00=0x000a, t01=0x0096}
0x104c…106e Head {h00=0x001e, h01=0x0019, text=» EXTRN DWTBC BYTE COUNTER «, t00=0x000a, t01=0x00b2}
0x106e…1088 Head {h00=0x0016, h01=0x0050, text=» EXTRN DWTOR ORDER«, t00=0x000a, t01=0x00d4}
0x1088…1092 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x00ee}
0x1092…10a0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000a, t01=0x00f8}
0x10a0…10b6 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0106}
0x10b6…10cc Head {h00=0x0012, h01=0x0050, text=»* CONSTANTS * «, t00=0x000a, t01=0x011c}
0x10cc…10e2 Head {h00=0x0012, h01=0x0050, text=»************* «, t00=0x000a, t01=0x0132}
0x10e2…10ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000a, t01=0x0148}
0x10ec…110e Head {h00=0x001e, h01=0x0050, text=»FASTO EQU /14 FAST OUTPUT «, t00=0x000a, t01=0x0152}
0x110e…1136 Head {h00=0x0024, h01=0x0050, text=»SCADD EQU /11 SET CURSOR ADDRESS«, t00=0x000a, t01=0x0174}
0x1136…115c Head {h00=0x0022, h01=0x0050, text=»ULSTAR EQU /12 UNDERLINE START«, t00=0x000b, t01=0x000c}
0x115c…1182 Head {h00=0x0022, h01=0x0050, text=»ULSTOP EQU /13 UNDERLINE STOP «, t00=0x000b, t01=0x0032}
0x1182…11ac Head {h00=0x0026, h01=0x0050, text=»LISTAR EQU /1E LOW INTENSITY START«, t00=0x000b, t01=0x0058}
0x11ac…11d6 Head {h00=0x0026, h01=0x0050, text=»LISTOP EQU /1F LOW INTENSITY STOP «, t00=0x000b, t01=0x0082}
0x11d6…11f6 Head {h00=0x001c, h01=0x0050, text=»BACKSP EQU /08 BACKSPACE«, t00=0x000b, t01=0x00ac}
0x11f6…1212 Head {h00=0x0018, h01=0x0050, text=»LF EQU /0A LINE FEED«, t00=0x000b, t01=0x00cc}
0x1212…1232 Head {h00=0x001c, h01=0x0050, text=»HOME EQU /0B CURSOR HOME«, t00=0x000b, t01=0x00e8}
0x1232…125e Head {h00=0x0028, h01=0x0050, text=»CLEHOM EQU /0C CLEAR AND CURSOR HOME«, t00=0x000b, t01=0x0108}
0x125e…1280 Head {h00=0x001e, h01=0x0050, text=»CR EQU /0D CARRIAGE RETURN«, t00=0x000b, t01=0x0134}
0x1280…12a4 Head {h00=0x0020, h01=0x0050, text=»CURRIG EQU /10 CURSOR RIGHT «, t00=0x000b, t01=0x0156}
0x12a4…12c0 Head {h00=0x0018, h01=0x0050, text=»SPACE EQU /20 SPACE «, t00=0x000b, t01=0x017a}
0x12c0…12e4 Head {h00=0x0020, h01=0x0050, text=»STX EQU /82 START OF MESSAGE«, t00=0x000c, t01=0x0008}
0x12e4…1306 Head {h00=0x001e, h01=0x0050, text=»ETB EQU /97 END OF MESSAGE«, t00=0x000c, t01=0x002c}
0x1306…1324 Head {h00=0x001a, h01=0x0050, text=»ETX EQU /03 LAST DUMMY«, t00=0x000c, t01=0x004e}
0x1324…1356 Head {h00=0x002e, h01=0x0050, text=»RETURN EQU /12 RETURN TO ALPHANUMERIC MODE«, t00=0x000c, t01=0x006c}
0x1356…1384 Head {h00=0x002a, h01=0x0050, text=»ESCAPE EQU /11 ESCAPE TO GRAPHIC MODE «, t00=0x000c, t01=0x009e}
0x1384…13aa Head {h00=0x0022, h01=0x0050, text=»POINT EQU /2E POINT CHARACTER «, t00=0x000c, t01=0x00cc}
0x13aa…13e0 Head {h00=0x0032, h01=0x0050, text=»EQU EQU 6 THRESHOLD FOR AUTOMATIC FAST OUTPUT «, t00=0x000c, t01=0x00f2}
0x13e0…1404 Head {h00=0x0020, h01=0x0050, text=»STILL EQU /18 CURSOR STEADY «, t00=0x000c, t01=0x0128}
0x1404…142c Head {h00=0x0024, h01=0x0050, text=»CTYCOD EQU /1B SET COUNTRY CODE «, t00=0x000c, t01=0x014c}
0x142c…1436 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000c, t01=0x0174}
0x1436…1452 Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000c, t01=0x017e}
0x1452…146e Head {h00=0x0018, h01=0x0050, text=»* RETURN CODES *«, t00=0x000d, t01=0x000a}
0x146e…148a Head {h00=0x0018, h01=0x0050, text=»********************«, t00=0x000d, t01=0x0026}
0x148a…1494 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0042}
0x1494…14ba Head {h00=0x0022, h01=0x0050, text=»CCERR EQU /4 CODE CHECK ERROR «, t00=0x000d, t01=0x004c}
0x14ba…14e6 Head {h00=0x0028, h01=0x0050, text=»OPERR EQU /1 NOT OPERABLE, POWER OFF«, t00=0x000d, t01=0x0072}
0x14e6…14f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x009e}
0x14f0…14fe Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x000d, t01=0x00a8}
0x14fe…1508 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00b6}
0x1508…1512 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x00c0}
0x1512…1544 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x00ca}
0x1544…1576 Head {h00=0x002e, h01=0x0050, text=»* CONDITIONAL ASSEMBLY * «, t00=0x000d, t01=0x00fc}
0x1576…15a8 Head {h00=0x002e, h01=0x0050, text=»***************************************** «, t00=0x000d, t01=0x012e}
0x15a8…15b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x0160}
0x15b2…15bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000d, t01=0x016a}
0x15bc…1608 Head {h00=0x0048, h01=0x0050, text=»* BY SETTING X:A TO 1 DRIVER CAN HANDLE GRAFIC MODE FOR PTS 6351 «, t00=0x000d, t01=0x0174}
0x1608…1612 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0030}
0x1612…1624 Head {h00=0x000e, h01=0x0050, text=»X:A EQU 0 «, t00=0x000e, t01=0x003a}
0x1624…1638 Head {h00=0x0010, h01=0x0050, text=»GRAFIC EQU 0«, t00=0x000e, t01=0x004c}
0x1638…1642 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0060}
0x1642…1682 Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000e, t01=0x006a}
0x1682…168c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00aa}
0x168c…169e Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x00b4}
0x169e…16b2 Head {h00=0x0010, h01=0x0050, text=»WHATDY EQU 1«, 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 SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x00ee}
0x1702…172c Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x012a}
0x172c…173e Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x0154}
0x173e…1752 Head {h00=0x0010, h01=0x0050, text=»LOWCHA EQU 0«, t00=0x000e, t01=0x0166}
0x1752…175c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x017a}
0x175c…1766 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0184}
0x1766…17a2 Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000e, t01=0x018e}
0x17a2…17de Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000f, t01=0x003a}
0x17de…181a Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000f, t01=0x0076}
0x181a…1824 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b2}
0x1824…1836 Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x00bc}
0x1836…184a Head {h00=0x0010, h01=0x0050, text=»EORECH EQU 0«, t00=0x000f, t01=0x00ce}
0x184a…1854 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00e2}
0x1854…1888 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x00ec}
0x1888…18cc Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x0120}
0x18cc…18d6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x0164}
0x18d6…18e8 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x016e}
0x18e8…18fc Head {h00=0x0010, h01=0x0050, text=»TRASPA EQU 1«, t00=0x000f, t01=0x0180}
0x18fc…190a (16, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x0004}
0x190a…1914 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0012}
0x1914…194a Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x0010, t01=0x001c}
0x194a…196a Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x0010, t01=0x0052}
0x196a…197c Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x0010, t01=0x0072}
0x197c…1990 Head {h00=0x0010, h01=0x0050, text=»STEADY EQU 0«, t00=0x0010, t01=0x0084}
0x1990…199a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0098}
0x199a…19da Head {h00=0x003c, h01=0x0050, text=»* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT«, t00=0x0010, t01=0x00a2}
0x19da…19fc Head {h00=0x001e, h01=0x0050, text=»* BY SETTING MMUPAG = 1 «, t00=0x0010, t01=0x00e2}
0x19fc…1a06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0104}
0x1a06…1a1a Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0010, t01=0x010e}
0x1a1a…1a24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0122}
0x1a24…1a2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012c}
0x1a2e…1a68 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x0136}
0x1a68…1a9a Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x0170}
0x1a9a…1aa4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0012}
0x1aa4…1ab8 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0011, t01=0x001c}
0x1ab8…1ac2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x0030}
0x1ac2…1afe Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0011, t01=0x003a}
0x1afe…1b3e Head {h00=0x003c, h01=0x0050, text=»* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.«, t00=0x0011, t01=0x0076}
0x1b3e…1b46 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00b6}
0x1b46…1b4e Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00be}
0x1b4e…1b64 Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x0011, t01=0x00c6}
0x1b64…1b6c Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00dc}
0x1b6c…1b80 Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x0011, t01=0x00e4}
0x1b80…1b94 Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0011, t01=0x00f8}
0x1b94…1ba8 Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0011, t01=0x010c}
0x1ba8…1bb6 Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0011, t01=0x0120}
0x1bb6…1bc6 Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0011, t01=0x012e}
0x1bc6…1bd6 Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0011, t01=0x013e}
0x1bd6…1be6 Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0011, t01=0x014e}
0x1be6…1bf4 Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0011, t01=0x015e}
0x1bf4…1c02 Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0011, t01=0x016c}
0x1c02…1c10 Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0011, t01=0x017a}
0x1c10…1c22 Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0011, t01=0x0188}
0x1c22…1c38 Head {h00=0x0012, h01=0x0050, text=»COUNTRY EQU 0 «, t00=0x0012, t01=0x000a}
0x1c38…1c42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0020}
0x1c42…1c6c Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0012, t01=0x002a}
0x1c6c…1c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0054}
0x1c76…1c80 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x005e}
0x1c80…1c92 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 64«, t00=0x0012, t01=0x0068}
0x1c92…1ca8 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU 000«, t00=0x0012, t01=0x007a}
0x1ca8…1cb2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0090}
0x1cb2…1cc0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x009a}
0x1cc0…1cca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00a8}
0x1cca…1cd4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b2}
0x1cd4…1cfc Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x00bc}
0x1cfc…1d24 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0012, t01=0x00e4}
0x1d24…1d4c Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x010c}
0x1d4c…1d56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0134}
0x1d56…1d60 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x013e}
0x1d60…1d94 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x0148}
0x1d94…1d9e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x017c}
0x1d9e…1db4 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0012, t01=0x0186}
0x1db4…1dcc Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x000c}
0x1dcc…1dd8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0024}
0x1dd8…1de2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0030}
0x1de2…1df8 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x003a}
0x1df8…1e12 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x0050}
0x1e12…1e1e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x006a}
0x1e1e…1e28 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0076}
0x1e28…1e5a Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0013, t01=0x0080}
0x1e5a…1e80 Head {h00=0x0022, h01=0x0050, text=»DWTPOS EQU START+/15 POSITIONS«, t00=0x0013, t01=0x00b2}
0x1e80…1ea2 Head {h00=0x001e, h01=0x0050, text=»DWTLIN EQU START+/14 LINES«, t00=0x0013, t01=0x00d8}
0x1ea2…1ecc Head {h00=0x0026, h01=0x0050, text=»DWTBIN EQU START+/16 BUFFER INDEX «, t00=0x0013, t01=0x00fa}
0x1ecc…1ed6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0124}
0x1ed6…1ee4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x012e}
0x1ee4…1eee Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x013c}
0x1eee…1ef8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0146}
0x1ef8…1f0a Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0150}
0x1f0a…1f1c Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x0162}
0x1f1c…1f2e Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0174}
0x1f2e…1f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0186}
0x1f38…1f42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0190}
0x1f42…1f64 Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0014, t01=0x000a}
0x1f64…1f80 Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0014, t01=0x002c}
0x1f80…1fa0 Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0014, t01=0x0048}
0x1fa0…1fc4 Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0014, t01=0x0068}
0x1fc4…1fec Head {h00=0x0024, h01=0x0050, text=» DATA ABDY ABORT ROUTINE ADDRESS«, t00=0x0014, t01=0x008c}
0x1fec…2010 Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0014, t01=0x00b4}
0x2010…2034 Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0014, t01=0x00d8}
0x2034…2066 Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x00fc}
0x2066…2070 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x012e}
0x2070…207a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0138}
0x207a…20aa Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0014, t01=0x0142}
0x20aa…20ca Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0014, t01=0x0172}
0x20ca…20d8 (21, 0, 400) Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0004}
0x20d8…20e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0012}
0x20e2…20f6 Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0015, t01=0x001c}
0x20f6…2100 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0030}
0x2100…212e Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0015, t01=0x003a}
0x212e…2138 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0068}
0x2138…2184 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0015, t01=0x0072}
0x2184…21ba Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0015, t01=0x00be}
0x21ba…21c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00f4}
0x21c4…21ce Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x00fe}
0x21ce…2210 Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0015, t01=0x0108}
0x2210…224a Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0015, t01=0x014a}
0x224a…2254 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0184}
0x2254…229e Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0015, t01=0x018e}
0x229e…22de Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0016, t01=0x0048}
0x22de…22e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0088}
0x22e8…2338 Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0016, t01=0x0092}
0x2338…2386 Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0016, t01=0x00e2}
0x2386…23d0 Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0016, t01=0x0130}
0x23d0…23da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x017a}
0x23da…23f0 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0016, t01=0x0184}
0x23f0…2436 Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0017, t01=0x000a}
0x2436…247a Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0017, t01=0x0050}
0x247a…24a8 Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0017, t01=0x0094}
0x24a8…24b2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00c2}
0x24b2…24be Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00cc}
0x24be…24fc Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0017, t01=0x00d8}
0x24fc…253c Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0017, t01=0x0116}
0x253c…257e Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0017, t01=0x0156}
0x257e…25c2 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0018, t01=0x0008}
0x25c2…25e6 Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0018, t01=0x004c}
0x25e6…25f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x0070}
0x25f0…2630 Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0018, t01=0x007a}
0x2630…2670 Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0018, t01=0x00ba}
0x2670…26b4 Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0018, t01=0x00fa}
0x26b4…26f8 Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0018, t01=0x013e}
0x26f8…2736 Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0018, t01=0x0182}
0x2736…2764 Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0019, t01=0x0030}
0x2764…2776 Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0019, t01=0x005e}
0x2776…279a Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0019, t01=0x0070}
0x279a…27b4 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0019, t01=0x0094}
0x27b4…27d0 Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0019, t01=0x00ae}
0x27d0…27ea Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0019, t01=0x00ca}
0x27ea…280e Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0019, t01=0x00e4}
0x280e…2828 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0019, t01=0x0108}
0x2828…283e Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x0122}
0x283e…2864 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0019, t01=0x0138}
0x2864…2888 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x0019, t01=0x015e}
0x2888…28a0 Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x0019, t01=0x0182}
0x28a0…28b6 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x001a, t01=0x000a}
0x28b6…28d2 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x001a, t01=0x0020}
0x28d2…28e8 Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x001a, t01=0x003c}
0x28e8…28f4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x0052}
0x28f4…290a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001a, t01=0x005e}
0x290a…293c Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x001a, t01=0x0074}
0x293c…2952 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x00a6}
0x2952…295c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00bc}
0x295c…2968 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00c6}
0x2968…2972 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00d2}
0x2972…2986 Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x001a, t01=0x00dc}
0x2986…29a0 Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x001a, t01=0x00f0}
0x29a0…29ba Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x001a, t01=0x010a}
0x29ba…29d6 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x001a, t01=0x0124}
0x29d6…29f0 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x001a, t01=0x0140}
0x29f0…2a0c Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x001a, t01=0x015a}
0x2a0c…2a26 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x001a, t01=0x0176}
0x2a26…2a48 Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x001a, t01=0x0190}
0x2a48…2a62 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x001b, t01=0x0022}
0x2a62…2a6c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x003c}
0x2a6c…2a96 Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x001b, t01=0x0046}
0x2a96…2aa4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x0070}
0x2aa4…2ae2 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x001b, t01=0x007e}
0x2ae2…2b00 Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x001b, t01=0x00bc}
0x2b00…2b34 Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x001b, t01=0x00da}
0x2b34…2b5a Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x001b, t01=0x010e}
0x2b5a…2ba0 Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x001b, t01=0x0134}
0x2ba0…2bc2 Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x001b, t01=0x017a}
0x2bc2…2bcc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x000c}
0x2bcc…2be0 Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x001c, t01=0x0016}
0x2be0…2c08 Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x001c, t01=0x002a}
0x2c08…2c1e Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x001c, t01=0x0052}
0x2c1e…2c42 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001c, t01=0x0068}
0x2c42…2c68 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x001c, t01=0x008c}
0x2c68…2c92 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x00b2}
0x2c92…2ca6 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x00dc}
0x2ca6…2cba Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x001c, t01=0x00f0}
0x2cba…2ce8 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x001c, t01=0x0104}
0x2ce8…2cfe Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x001c, t01=0x0132}
0x2cfe…2d16 Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x001c, t01=0x0148}
0x2d16…2d2c Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x001c, t01=0x0160}
0x2d2c…2d50 Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x001c, t01=0x0176}
0x2d50…2d76 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x001d, t01=0x000a}
0x2d76…2d8c Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x001d, t01=0x0030}
0x2d8c…2db8 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x001d, t01=0x0046}
0x2db8…2dc0 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0072}
0x2dc0…2dc8 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x007a}
0x2dc8…2df0 Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x001d, t01=0x0082}
0x2df0…2e08 Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x001d, t01=0x00aa}
0x2e08…2e3e Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x001d, t01=0x00c2}
0x2e3e…2e7a Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x001d, t01=0x00f8}
0x2e7a…2e84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0134}
0x2e84…2e98 Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x001d, t01=0x013e}
0x2e98…2ebc Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001d, t01=0x0152}
0x2ebc…2ed4 Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x001d, t01=0x0176}
0x2ed4…2efe Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001d, t01=0x018e}
0x2efe…2f1c Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001e, t01=0x0028}
0x2f1c…2f40 Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001e, t01=0x0046}
0x2f40…2f56 Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001e, t01=0x006a}
0x2f56…2f82 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001e, t01=0x0080}
0x2f82…2f9a Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001e, t01=0x00ac}
0x2f9a…2fc4 Head {h00=0x0026, h01=0x0050, text=»ACDY55 LDK A2,LF LINE FEED TO SEND«, t00=0x001e, t01=0x00c4}
0x2fc4…2fd6 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001e, t01=0x00ee}
0x2fd6…3002 Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001e, t01=0x0100}
0x3002…3014 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x012c}
0x3014…303e Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001e, t01=0x013e}
0x303e…3050 Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001e, t01=0x0168}
0x3050…305e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x017a}
0x305e…3068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001e, t01=0x0188}
0x3068…3092 (31, 0, 398) Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001f, t01=0x0004}
0x3092…30b4 Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001f, t01=0x002e}
0x30b4…30be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0050}
0x30be…30d2 Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001f, t01=0x005a}
0x30d2…30e8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001f, t01=0x006e}
0x30e8…3112 Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001f, t01=0x0084}
0x3112…3126 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001f, t01=0x00ae}
0x3126…314e Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001f, t01=0x00c2}
0x314e…315a Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00ea}
0x315a…316e Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001f, t01=0x00f6}
0x316e…31a4 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x001f, t01=0x010a}
0x31a4…31cc Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x001f, t01=0x0140}
0x31cc…31e6 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x001f, t01=0x0168}
0x31e6…31fa Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x001f, t01=0x0182}
0x31fa…3210 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0020, t01=0x0008}
0x3210…3246 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0020, t01=0x001e}
0x3246…325c Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0020, t01=0x0054}
0x325c…3288 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0020, t01=0x006a}
0x3288…32b4 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0020, t01=0x0096}
0x32b4…32dc Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x00c2}
0x32dc…32f4 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0020, t01=0x00ea}
0x32f4…3312 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0020, t01=0x0102}
0x3312…332c Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0020, t01=0x0120}
0x332c…3348 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0020, t01=0x013a}
0x3348…3366 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0020, t01=0x0156}
0x3366…3380 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0020, t01=0x0174}
0x3380…33a0 Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0020, t01=0x018e}
0x33a0…33bc Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0021, t01=0x001e}
0x33bc…33d4 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0021, t01=0x003a}
0x33d4…33f2 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0021, t01=0x0052}
0x33f2…3410 Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0021, t01=0x0070}
0x3410…3438 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0021, t01=0x008e}
0x3438…3452 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x0021, t01=0x00b6}
0x3452…346c Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0021, t01=0x00d0}
0x346c…3486 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0021, t01=0x00ea}
0x3486…34a2 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0021, t01=0x0104}
0x34a2…34ce Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x0021, t01=0x0120}
0x34ce…34e2 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0021, t01=0x014c}
0x34e2…3508 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x0021, t01=0x0160}
0x3508…352c Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x0021, t01=0x0186}
0x352c…354e Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x0022, t01=0x001a}
0x354e…3568 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x003c}
0x3568…3588 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x0022, t01=0x0056}
0x3588…35a2 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x0076}
0x35a2…35ac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x0090}
0x35ac…35d2 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0022, t01=0x009a}
0x35d2…35de Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00c0}
0x35de…35f6 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x0022, t01=0x00cc}
0x35f6…3630 Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0022, t01=0x00e4}
0x3630…3652 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0022, t01=0x011e}
0x3652…366a Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x0022, t01=0x0140}
0x366a…3684 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0022, t01=0x0158}
0x3684…369a Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x0022, t01=0x0172}
0x369a…36ae Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0022, t01=0x0188}
0x36ae…36d2 Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x0023, t01=0x000c}
0x36d2…36f8 Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x0023, t01=0x0030}
0x36f8…370e Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x0023, t01=0x0056}
0x370e…3724 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x0023, t01=0x006c}
0x3724…374a Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0023, t01=0x0082}
0x374a…376e Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x0023, t01=0x00a8}
0x376e…3786 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x0023, t01=0x00cc}
0x3786…37a8 Head {h00=0x001e, h01=0x0050, text=» LDK A1,5 SET TABLE PONTER«, t00=0x0023, t01=0x00e4}
0x37a8…37d6 Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x0023, t01=0x0106}
0x37d6…37ec Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x0023, t01=0x0134}
0x37ec…3812 Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x0023, t01=0x014a}
0x3812…382c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x0023, t01=0x0170}
0x382c…3840 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0023, t01=0x018a}
0x3840…3870 Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0024, t01=0x000e}
0x3870…3882 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x003e}
0x3882…3894 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0024, t01=0x0050}
0x3894…38bc Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0024, t01=0x0062}
0x38bc…38d2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0024, t01=0x008a}
0x38d2…38f8 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0024, t01=0x00a0}
0x38f8…390a Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0024, t01=0x00c6}
0x390a…3934 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0024, t01=0x00d8}
0x3934…3946 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x0102}
0x3946…3960 Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0024, t01=0x0114}
0x3960…3972 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0024, t01=0x012e}
0x3972…399e Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0024, t01=0x0140}
0x399e…39b0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x016c}
0x39b0…39c2 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0024, t01=0x017e}
0x39c2…39e0 Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0024, t01=0x0190}
0x39e0…3a02 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0025, t01=0x001e}
0x3a02…3a1c Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0025, t01=0x0040}
0x3a1c…3a26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x005a}
0x3a26…3a3c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0025, t01=0x0064}
0x3a3c…3a66 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0025, t01=0x007a}
0x3a66…3a7a Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0025, t01=0x00a4}
0x3a7a…3ab0 Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0025, t01=0x00b8}
0x3ab0…3abc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00ee}
0x3abc…3ad2 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0025, t01=0x00fa}
0x3ad2…3ae8 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0025, t01=0x0110}
0x3ae8…3afc Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0025, t01=0x0126}
0x3afc…3b1a Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0025, t01=0x013a}
0x3b1a…3b38 Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0025, t01=0x0158}
0x3b38…3b4c Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0025, t01=0x0176}
0x3b4c…3b60 Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0025, t01=0x018a}
0x3b60…3b7a Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0026, t01=0x000e}
0x3b7a…3b9c Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0026, t01=0x0028}
0x3b9c…3bbe Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0026, t01=0x004a}
0x3bbe…3be2 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0026, t01=0x006c}
0x3be2…3bf8 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0026, t01=0x0090}
0x3bf8…3c1a Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0026, t01=0x00a6}
0x3c1a…3c40 Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0026, t01=0x00c8}
0x3c40…3c64 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0026, t01=0x00ee}
0x3c64…3c7a Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0026, t01=0x0112}
0x3c7a…3c90 Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0026, t01=0x0128}
0x3c90…3cca Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0026, t01=0x013e}
0x3cca…3cf4 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0026, t01=0x0178}
0x3cf4…3d00 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0012}
0x3d00…3d12 Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0027, t01=0x001e}
0x3d12…3d1c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0030}
0x3d1c…3d26 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003a}
0x3d26…3d3c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0027, t01=0x0044}
0x3d3c…3d50 Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0027, t01=0x005a}
0x3d50…3d70 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x006e}
0x3d70…3d84 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0027, t01=0x008e}
0x3d84…3d9c Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0027, t01=0x00a2}
0x3d9c…3db2 Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0027, t01=0x00ba}
0x3db2…3dd2 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x00d0}
0x3dd2…3dea Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0027, t01=0x00f0}
0x3dea…3e0e Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0027, t01=0x0108}
0x3e0e…3e22 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x012c}
0x3e22…3e4a Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0027, t01=0x0140}
0x3e4a…3e72 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0027, t01=0x0168}
0x3e72…3e86 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0027, t01=0x0190}
0x3e86…3ea6 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x0014}
0x3ea6…3ec0 Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0028, t01=0x0034}
0x3ec0…3ee0 Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0028, t01=0x004e}
0x3ee0…3ef2 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0028, t01=0x006e}
0x3ef2…3f12 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x0080}
0x3f12…3f46 Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0028, t01=0x00a0}
0x3f46…3f5a Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0028, t01=0x00d4}
0x3f5a…3f84 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0028, t01=0x00e8}
0x3f84…3f9c Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0028, t01=0x0112}
0x3f9c…3fc4 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0028, t01=0x012a}
0x3fc4…3fe8 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0028, t01=0x0152}
0x3fe8…3ffc Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0028, t01=0x0176}
0x3ffc…4020 Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0028, t01=0x018a}
0x4020…403c Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0029, t01=0x001e}
0x403c…4060 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0029, t01=0x003a}
0x4060…4082 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0029, t01=0x005e}
0x4082…4096 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0029, t01=0x0080}
0x4096…40a8 Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0029, t01=0x0094}
0x40a8…40b4 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00a6}
0x40b4…40c2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00b2}
0x40c2…40cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00c0}
0x40cc…40ea Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0029, t01=0x00ca}
0x40ea…40f4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00e8}
0x40f4…4108 Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0029, t01=0x00f2}
0x4108…411e Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0029, t01=0x0106}
0x411e…413e Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0029, t01=0x011c}
0x413e…4150 Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x0029, t01=0x013c}
0x4150…415e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x014e}
0x415e…4168 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x015c}
0x4168…4180 Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x0029, t01=0x0166}
0x4180…418a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x017e}
0x418a…419e Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x0029, t01=0x0188}
0x419e…41ce Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x002a, t01=0x000c}
0x41ce…41e0 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002a, t01=0x003c}
0x41e0…4212 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x002a, t01=0x004e}
0x4212…4224 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x002a, t01=0x0080}
0x4224…4236 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002a, t01=0x0092}
0x4236…424c Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002a, t01=0x00a4}
0x424c…4280 Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002a, t01=0x00ba}
0x4280…4292 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x00ee}
0x4292…42a8 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002a, t01=0x0100}
0x42a8…42c8 Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x002a, t01=0x0116}
0x42c8…42fa Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002a, t01=0x0136}
0x42fa…4312 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x002a, t01=0x0168}
0x4312…4342 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002a, t01=0x0180}
0x4342…436c Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002b, t01=0x0020}
0x436c…4382 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x002b, t01=0x004a}
0x4382…4394 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002b, t01=0x0060}
0x4394…43be Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002b, t01=0x0072}
0x43be…43da Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x002b, t01=0x009c}
0x43da…440a Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002b, t01=0x00b8}
0x440a…4424 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002b, t01=0x00e8}
0x4424…443e Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002b, t01=0x0102}
0x443e…4452 Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x002b, t01=0x011c}
0x4452…4460 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0130}
0x4460…446a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x013e}
0x446a…4488 Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x002b, t01=0x0148}
0x4488…4492 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0166}
0x4492…44c8 Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x002b, t01=0x0170}
0x44c8…44de Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x0016}
0x44de…4504 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002c, t01=0x002c}
0x4504…4528 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002c, t01=0x0052}
0x4528…4546 Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY166 YES =2 «, t00=0x002c, t01=0x0076}
0x4546…4552 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x0094}
0x4552…457c Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x00a0}
0x457c…4590 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x002c, t01=0x00ca}
0x4590…45b2 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x002c, t01=0x00de}
0x45b2…45cc Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x002c, t01=0x0100}
0x45cc…45e2 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002c, t01=0x011a}
0x45e2…4604 Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x002c, t01=0x0130}
0x4604…461a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x0152}
0x461a…4636 Head {h00=0x0018, h01=0x0050, text=»ADY166 EQU * YES =2 «, t00=0x002c, t01=0x0168}
0x4636…4660 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x0184}
0x4660…466a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x001e}
0x466a…4692 Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x002d, t01=0x0028}
0x4692…46b4 Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x002d, t01=0x0050}
0x46b4…46ce Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x002d, t01=0x0072}
0x46ce…46ec Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x008c}
0x46ec…46fe Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x002d, t01=0x00aa}
0x46fe…4718 Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x002d, t01=0x00bc}
0x4718…4742 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x00d6}
0x4742…4762 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 OVER EDGE =4 «, t00=0x002d, t01=0x0100}
0x4762…477e Head {h00=0x0018, h01=0x0050, text=» RF(NN) ADY186 NO =4«, t00=0x002d, t01=0x0120}
0x477e…47a0 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ADJUST LENGTH =4«, t00=0x002d, t01=0x013c}
0x47a0…47b4 Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x002d, t01=0x015e}
0x47b4…47d2 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 DECREMENT =2«, t00=0x002d, t01=0x0172}
0x47d2…4802 Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002d, t01=0x0190}
0x4802…4824 Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002e, t01=0x0030}
0x4824…4842 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002e, t01=0x0052}
0x4842…485a Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002e, t01=0x0070}
0x485a…4866 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0088}
0x4866…4874 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x0094}
0x4874…487e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00a2}
0x487e…48ac Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002e, t01=0x00ac}
0x48ac…48b6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00da}
0x48b6…48ca Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002e, t01=0x00e4}
0x48ca…48d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00f8}
0x48d4…48ea Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002e, t01=0x0102}
0x48ea…4910 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002e, t01=0x0118}
0x4910…4934 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002e, t01=0x013e}
0x4934…494e Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002e, t01=0x0162}
0x494e…4984 Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002e, t01=0x017c}
0x4984…4990 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0022}
0x4990…49be Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002f, t01=0x002e}
0x49be…49f0 Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002f, t01=0x005c}
0x49f0…4a10 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002f, t01=0x008e}
0x4a10…4a22 Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002f, t01=0x00ae}
0x4a22…4a38 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x00c0}
0x4a38…4a4e Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x002f, t01=0x00d6}
0x4a4e…4a7c Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002f, t01=0x00ec}
0x4a7c…4aa4 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x002f, t01=0x011a}
0x4aa4…4abe Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x002f, t01=0x0142}
0x4abe…4af6 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x002f, t01=0x015c}
0x4af6…4b0a (48, 0, 400) Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x0030, t01=0x0004}
0x4b0a…4b32 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x0030, t01=0x0018}
0x4b32…4b4a Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x0030, t01=0x0040}
0x4b4a…4b7c Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x0030, t01=0x0058}
0x4b7c…4b9c Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x0030, t01=0x008a}
0x4b9c…4bb8 Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0030, t01=0x00aa}
0x4bb8…4be6 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0030, t01=0x00c6}
0x4be6…4c06 Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0030, t01=0x00f4}
0x4c06…4c28 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0030, t01=0x0114}
0x4c28…4c4e Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0030, t01=0x0136}
0x4c4e…4c60 Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0030, t01=0x015c}
0x4c60…4c72 Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0030, t01=0x016e}
0x4c72…4c92 Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0030, t01=0x0180}
0x4c92…4cbc Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0031, t01=0x0010}
0x4cbc…4ce2 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x0031, t01=0x003a}
0x4ce2…4cf4 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0031, t01=0x0060}
0x4cf4…4cfe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0072}
0x4cfe…4d18 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0031, t01=0x007c}
0x4d18…4d22 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0096}
0x4d22…4d58 Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x0031, t01=0x00a0}
0x4d58…4d84 Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x0031, t01=0x00d6}
0x4d84…4dac Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x0031, t01=0x0102}
0x4dac…4dc6 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0031, t01=0x012a}
0x4dc6…4dec Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x0031, t01=0x0144}
0x4dec…4e00 Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0031, t01=0x016a}
0x4e00…4e22 Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0031, t01=0x017e}
0x4e22…4e3c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x0010}
0x4e3c…4e5c Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0032, t01=0x002a}
0x4e5c…4e76 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x004a}
0x4e76…4e9a Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0032, t01=0x0064}
0x4e9a…4eac Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0032, t01=0x0088}
0x4eac…4eda Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0032, t01=0x009a}
0x4eda…4eec Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0032, t01=0x00c8}
0x4eec…4f20 Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x0032, t01=0x00da}
0x4f20…4f42 Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x0032, t01=0x010e}
0x4f42…4f5c Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0032, t01=0x0130}
0x4f5c…4f6e Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0032, t01=0x014a}
0x4f6e…4f9c Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0032, t01=0x015c}
0x4f9c…4fc0 Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0032, t01=0x018a}
0x4fc0…4fda Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0033, t01=0x001e}
0x4fda…4ffe Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0033, t01=0x0038}
0x4ffe…5028 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0033, t01=0x005c}
0x5028…5048 Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0033, t01=0x0086}
0x5048…505a Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0033, t01=0x00a6}
0x505a…508c Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0033, t01=0x00b8}
0x508c…50bc Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0033, t01=0x00ea}
0x50bc…50e0 Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0033, t01=0x011a}
0x50e0…5102 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0033, t01=0x013e}
0x5102…512c Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0033, t01=0x0160}
0x512c…513e Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0033, t01=0x018a}
0x513e…5164 Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0034, t01=0x000c}
0x5164…517e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0034, t01=0x0032}
0x517e…51a0 Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0034, t01=0x004c}
0x51a0…51b6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0034, t01=0x006e}
0x51b6…51f2 Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0034, t01=0x0084}
0x51f2…51fe Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00c0}
0x51fe…5228 Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0034, t01=0x00cc}
0x5228…523c Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0034, t01=0x00f6}
0x523c…5252 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0034, t01=0x010a}
0x5252…525c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0120}
0x525c…5286 Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0034, t01=0x012a}
0x5286…529c Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0034, t01=0x0154}
0x529c…52a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x016a}
0x52a6…52b2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0174}
0x52b2…52bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0180}
0x52bc…52ca Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0034, t01=0x018a}
0x52ca…52d4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0008}
0x52d4…52de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0012}
0x52de…531a Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0035, t01=0x001c}
0x531a…5352 Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0035, t01=0x0058}
0x5352…535c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0090}
0x535c…5370 Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0035, t01=0x009a}
0x5370…539a Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0035, t01=0x00ae}
0x539a…53b4 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0035, t01=0x00d8}
0x53b4…53ce Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0035, t01=0x00f2}
0x53ce…53e2 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0035, t01=0x010c}
0x53e2…53f4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0035, t01=0x0120}
0x53f4…5418 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0035, t01=0x0132}
0x5418…5430 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0035, t01=0x0156}
0x5430…5456 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0035, t01=0x016e}
0x5456…546c (54, 0, 400) Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x0004}
0x546c…549a Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0036, t01=0x001a}
0x549a…54b0 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0036, t01=0x0048}
0x54b0…54da Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0036, t01=0x005e}
0x54da…54f0 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x0088}
0x54f0…5504 Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0036, t01=0x009e}
0x5504…552c Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0036, t01=0x00b2}
0x552c…5550 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x00da}
0x5550…5584 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0036, t01=0x00fe}
0x5584…55a8 Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0036, t01=0x0132}
0x55a8…55c8 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0036, t01=0x0156}
0x55c8…55e0 Head {h00=0x0014, h01=0x0050, text=» SUK A7,/31 =7 «, t00=0x0036, t01=0x0176}
0x55e0…5604 Head {h00=0x0020, h01=0x0050, text=» RF(Z) ADY415 ORDER ERASE =7«, t00=0x0036, t01=0x018e}
0x5604…5632 Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTAP,A6 GET CURSOR POSITION =4«, t00=0x0037, t01=0x0022}
0x5632…5662 Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 «, t00=0x0037, t01=0x0050}
0x5662…5676 Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0037, t01=0x0080}
0x5676…5690 Head {h00=0x0016, h01=0x0050, text=» ADK A7,/31-5 =7 «, t00=0x0037, t01=0x0094}
0x5690…56bc Head {h00=0x0028, h01=0x0050, text=» RF(NE) ADY420 NOT ORDER BASIC WRITE«, t00=0x0037, t01=0x00ae}
0x56bc…56e0 Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0037, t01=0x00da}
0x56e0…56f8 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0037, t01=0x00fe}
0x56f8…570c Head {h00=0x0010, h01=0x0050, text=»ADY420 EQU *«, t00=0x0037, t01=0x0116}
0x570c…5730 Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0037, t01=0x012a}
0x5730…5758 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0037, t01=0x014e}
0x5758…5762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0176}
0x5762…5778 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0037, t01=0x0180}
0x5778…5782 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0008}
0x5782…5790 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0012}
0x5790…579a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0020}
0x579a…57b4 Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0038, t01=0x002a}
0x57b4…57be Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0044}
0x57be…57d2 Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0038, t01=0x004e}
0x57d2…57e6 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0038, t01=0x0062}
0x57e6…5812 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0038, t01=0x0076}
0x5812…583c Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0038, t01=0x00a2}
0x583c…585c Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0038, t01=0x00cc}
0x585c…5872 Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0038, t01=0x00ec}
0x5872…5884 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0038, t01=0x0102}
0x5884…58ae Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0038, t01=0x0114}
0x58ae…58c0 Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0038, t01=0x013e}
0x58c0…58e4 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0038, t01=0x0150}
0x58e4…5906 Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0038, t01=0x0174}
0x5906…5910 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0008}
0x5910…592c Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x0039, t01=0x0012}
0x592c…5936 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x002e}
0x5936…595a Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x0039, t01=0x0038}
0x595a…5978 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0039, t01=0x005c}
0x5978…5982 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x007a}
0x5982…5994 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0039, t01=0x0084}
0x5994…59a6 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0039, t01=0x0096}
0x59a6…59b8 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0039, t01=0x00a8}
0x59b8…59ca Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0039, t01=0x00ba}
0x59ca…59dc Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0039, t01=0x00cc}
0x59dc…59f0 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0039, t01=0x00de}
0x59f0…5a04 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0039, t01=0x00f2}
0x5a04…5a34 Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x0039, t01=0x0106}
0x5a34…5a5c Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x0039, t01=0x0136}
0x5a5c…5a88 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x0039, t01=0x015e}
0x5a88…5a9a Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x0039, t01=0x018a}
0x5a9a…5aa8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x000c}
0x5aa8…5ab2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x001a}
0x5ab2…5acc Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x003a, t01=0x0024}
0x5acc…5ad6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x003e}
0x5ad6…5afc Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x003a, t01=0x0048}
0x5afc…5b1a Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x003a, t01=0x006e}
0x5b1a…5b24 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x008c}
0x5b24…5b3c Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x003a, t01=0x0096}
0x5b3c…5b4e Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003a, t01=0x00ae}
0x5b4e…5b60 Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x003a, t01=0x00c0}
0x5b60…5b72 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x003a, t01=0x00d2}
0x5b72…5b84 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x003a, t01=0x00e4}
0x5b84…5b96 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x00f6}
0x5b96…5bae Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x003a, t01=0x0108}
0x5bae…5bc4 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x003a, t01=0x0120}
0x5bc4…5bda Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x003a, t01=0x0136}
0x5bda…5bf2 Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x003a, t01=0x014c}
0x5bf2…5c08 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x003a, t01=0x0164}
0x5c08…5c1a Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x003a, t01=0x017a}
0x5c1a…5c2c Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x003a, t01=0x018c}
0x5c2c…5c44 Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x003b, t01=0x000e}
0x5c44…5c56 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003b, t01=0x0026}
0x5c56…5c6a Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x003b, t01=0x0038}
0x5c6a…5c7c Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003b, t01=0x004c}
0x5c7c…5c90 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x003b, t01=0x005e}
0x5c90…5ca2 Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x003b, t01=0x0072}
0x5ca2…5cac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0084}
0x5cac…5cb8 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x008e}
0x5cb8…5cc2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x009a}
0x5cc2…5cd0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00a4}
0x5cd0…5cda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00b2}
0x5cda…5d0a Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x003b, t01=0x00bc}
0x5d0a…5d3a Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x003b, t01=0x00ec}
0x5d3a…5d66 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x003b, t01=0x011c}
0x5d66…5d7a Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x003b, t01=0x0148}
0x5d7a…5da6 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x003b, t01=0x015c}
0x5da6…5ddc Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x003b, t01=0x0188}
0x5ddc…5dee Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003c, t01=0x002e}
0x5dee…5e1e Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x003c, t01=0x0040}
0x5e1e…5e2e Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003c, t01=0x0070}
0x5e2e…5e38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0080}
0x5e38…5e72 Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x003c, t01=0x008a}
0x5e72…5ea6 Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x003c, t01=0x00c4}
0x5ea6…5ee8 Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x003c, t01=0x00f8}
0x5ee8…5ef2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x013a}
0x5ef2…5f06 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x003c, t01=0x0144}
0x5f06…5f32 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x003c, t01=0x0158}
0x5f32…5f46 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003c, t01=0x0184}
0x5f46…5f7c Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x003d, t01=0x0008}
0x5f7c…5f90 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x003e}
0x5f90…5fb6 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x003d, t01=0x0052}
0x5fb6…5fcc Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x003d, t01=0x0078}
0x5fcc…5ffc Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x003d, t01=0x008e}
0x5ffc…6012 Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x003d, t01=0x00be}
0x6012…6020 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00d4}
0x6020…602a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00e2}
0x602a…603e Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x003d, t01=0x00ec}
0x603e…6048 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0100}
0x6048…605e Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x003d, t01=0x010a}
0x605e…6068 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0120}
0x6068…607a Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x003d, t01=0x012a}
0x607a…6098 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x003d, t01=0x013c}
0x6098…60ae Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x003d, t01=0x015a}
0x60ae…60cc Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x003d, t01=0x0170}
0x60cc…60e2 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003d, t01=0x018e}
0x60e2…6114 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003e, t01=0x0014}
0x6114…612e Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003e, t01=0x0046}
0x612e…6166 Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003e, t01=0x0060}
0x6166…6174 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x0098}
0x6174…617e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00a6}
0x617e…6192 Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x003e, t01=0x00b0}
0x6192…619c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00c4}
0x619c…61c8 Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003e, t01=0x00ce}
0x61c8…61d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00fa}
0x61d2…61dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0104}
0x61dc…6208 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003e, t01=0x010e}
0x6208…6228 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x003e, t01=0x013a}
0x6228…6232 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x015a}
0x6232…6248 Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x003e, t01=0x0164}
0x6248…6252 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x017a}
0x6252…6270 Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003e, t01=0x0184}
0x6270…6288 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x003f, t01=0x0012}
0x6288…62a6 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003f, t01=0x002a}
0x62a6…62b8 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003f, t01=0x0048}
0x62b8…62ce Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003f, t01=0x005a}
0x62ce…62f8 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003f, t01=0x0070}
0x62f8…6304 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x009a}
0x6304…630e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00a6}
0x630e…6324 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003f, t01=0x00b0}
0x6324…634a Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x003f, t01=0x00c6}
0x634a…6356 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x00ec}
0x6356…6360 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00f8}
0x6360…636e Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x003f, t01=0x0102}
0x636e…6384 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x003f, t01=0x0110}
0x6384…63a6 Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x003f, t01=0x0126}
0x63a6…63b4 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0148}
0x63b4…63c2 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0156}
0x63c2…63d0 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0164}
0x63d0…63de Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0172}
0x63de…63ec Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0180}
0x63ec…63fa Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x018e}
0x63fa…6408 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x000c}
0x6408…6416 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x001a}
0x6416…6420 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0028}
0x6420…6436 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0040, t01=0x0032}
0x6436…6440 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0048}
0x6440…6466 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x0040, t01=0x0052}
0x6466…648c Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x0040, t01=0x0078}
0x648c…64a4 Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x0040, t01=0x009e}
0x64a4…64d6 Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x0040, t01=0x00b6}
0x64d6…64ec Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x00e8}
0x64ec…64f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x00fe}
0x64f6…6502 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0108}
0x6502…650c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0114}
0x650c…651a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x011e}
0x651a…652e Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x0040, t01=0x012c}
0x652e…6550 Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x0040, t01=0x0140}
0x6550…6566 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x0162}
0x6566…658e Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x0040, t01=0x0178}
0x658e…65a4 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x0041, t01=0x0010}
0x65a4…65be Head {h00=0x0016, h01=0x0050, text=» IFT WHATDY=0 =1 «, t00=0x0041, t01=0x0026}
0x65be…65e0 Head {h00=0x001e, h01=0x0050, text=» IFF STEADY+COUNTRY=0 =1 «, t00=0x0041, t01=0x0040}
0x65e0…660e Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAMETERS =1 «, t00=0x0041, t01=0x0062}
0x660e…6634 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 PTS 6385/6386 ? =1«, t00=0x0041, t01=0x0090}
0x6634…6650 Head {h00=0x0018, h01=0x0050, text=» RF(Z) RCDY14 NO =3 «, t00=0x0041, t01=0x00b6}
0x6650…667e Head {h00=0x002a, h01=0x0050, text=» LDK A3,100 SET UP TRANSFER COUNTER =3«, t00=0x0041, t01=0x00d2}
0x667e…66b6 Head {h00=0x0034, h01=0x0050, text=»RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 «, t00=0x0041, t01=0x0100}
0x66b6…66e6 Head {h00=0x002c, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO =3«, t00=0x0041, t01=0x0138}
0x66e6…670e Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INF =3«, t00=0x0041, t01=0x0168}
0x670e…6738 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC TRANSFER COUNTER =3 «, t00=0x0041, t01=0x0190}
0x6738…6768 Head {h00=0x002c, h01=0x0050, text=» RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3«, t00=0x0042, t01=0x002a}
0x6768…679a Head {h00=0x002e, h01=0x0050, text=» LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 «, t00=0x0042, t01=0x005a}
0x679a…67b4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x008c}
0x67b4…67e2 Head {h00=0x002a, h01=0x0050, text=» LDK A2,COUNTRY SEND 'COUNTRY CODE' =1«, t00=0x0042, t01=0x00a6}
0x67e2…67fa Head {h00=0x0014, h01=0x0050, text=» ORK A2,/30 =1 «, t00=0x0042, t01=0x00d4}
0x67fa…6814 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x00ec}
0x6814…6822 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0106}
0x6822…6830 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0114}
0x6830…6848 Head {h00=0x0014, h01=0x0050, text=»RCDY14 EQU * =3«, t00=0x0042, t01=0x0122}
0x6848…685a Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0042, t01=0x013a}
0x685a…6886 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD =3 «, t00=0x0042, t01=0x014c}
0x6886…68ac Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x0042, t01=0x0178}
0x68ac…68c6 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0043, t01=0x000e}
0x68c6…68dc Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x0043, t01=0x0028}
0x68dc…6916 Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x0043, t01=0x003e}
0x6916…6938 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x0043, t01=0x0078}
0x6938…6956 Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x0043, t01=0x009a}
0x6956…697c Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x0043, t01=0x00b8}
0x697c…6996 Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x0043, t01=0x00de}
0x6996…69a4 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x00f8}
0x69a4…69ae Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0106}
0x69ae…69da Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x0043, t01=0x0110}
0x69da…69e4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x013c}
0x69e4…69f8 Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0043, t01=0x0146}
0x69f8…6a14 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0043, t01=0x015a}
0x6a14…6a2e Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x0043, t01=0x0176}
0x6a2e…6a5a Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x0043, t01=0x0190}
0x6a5a…6a6c Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x0044, t01=0x002c}
0x6a6c…6a96 Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x0044, t01=0x003e}
0x6a96…6aac Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0044, t01=0x0068}
0x6aac…6ae4 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x0044, t01=0x007e}
0x6ae4…6af8 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0044, t01=0x00b6}
0x6af8…6b0e Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x0044, t01=0x00ca}
0x6b0e…6b40 Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0044, t01=0x00e0}
0x6b40…6b64 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0044, t01=0x0112}
0x6b64…6b7e Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x0044, t01=0x0136}
0x6b7e…6b8c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0150}
0x6b8c…6b96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x015e}
0x6b96…6bae Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x0044, t01=0x0168}
0x6bae…6bb8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0180}
0x6bb8…6bec Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0044, t01=0x018a}
0x6bec…6bf6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x002e}
0x6bf6…6c0a Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0045, t01=0x0038}
0x6c0a…6c22 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0045, t01=0x004c}
0x6c22…6c3c Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x0045, t01=0x0064}
0x6c3c…6c5e Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0045, t01=0x007e}
0x6c5e…6c68 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00a0}
0x6c68…6c7e Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0045, t01=0x00aa}
0x6c7e…6c88 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00c0}
0x6c88…6c9c Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0045, t01=0x00ca}
0x6c9c…6cc4 Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x0045, t01=0x00de}
0x6cc4…6cd8 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0045, t01=0x0106}
0x6cd8…6ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x011a}
0x6ce2…6cee Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0124}
0x6cee…6cf8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0130}
0x6cf8…6d0a Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x0045, t01=0x013a}
0x6d0a…6d2a Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0045, t01=0x014c}
0x6d2a…6d3e Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0045, t01=0x016c}
0x6d3e…6d5a Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0045, t01=0x0180}
0x6d5a…6d84 Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0046, t01=0x000c}
0x6d84…6db4 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0046, t01=0x0036}
0x6db4…6dc6 Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0046, t01=0x0066}
0x6dc6…6dfe Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0046, t01=0x0078}
0x6dfe…6e2a Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0046, t01=0x00b0}
0x6e2a…6e34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00dc}
0x6e34…6e4a Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0046, t01=0x00e6}
0x6e4a…6e54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00fc}
0x6e54…6e68 Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0046, t01=0x0106}
0x6e68…6e94 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0046, t01=0x011a}
0x6e94…6ea8 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0046, t01=0x0146}
0x6ea8…6ecc Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0046, t01=0x015a}
0x6ecc…6ef4 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0046, t01=0x017e}
0x6ef4…6f0e Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x0016}
0x6f0e…6f20 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x0030}
0x6f20…6f2e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0042}
0x6f2e…6f38 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0050}
0x6f38…6f4a Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0047, t01=0x005a}
0x6f4a…6f54 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x006c}
0x6f54…6f68 Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0047, t01=0x0076}
0x6f68…6f94 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0047, t01=0x008a}
0x6f94…6fa8 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0047, t01=0x00b6}
0x6fa8…6fcc Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0047, t01=0x00ca}
0x6fcc…6fe2 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0047, t01=0x00ee}
0x6fe2…700c Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0047, t01=0x0104}
0x700c…702e Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0047, t01=0x012e}
0x702e…7046 Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0047, t01=0x0150}
0x7046…7060 Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x0168}
0x7060…7072 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x0182}
0x7072…707e (72, 0, 400) Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0004}
0x707e…70ac Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0048, t01=0x0010}
0x70ac…70e6 Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0048, t01=0x003e}
0x70e6…7106 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0048, t01=0x0078}
0x7106…7128 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0048, t01=0x0098}
0x7128…714c Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0048, t01=0x00ba}
0x714c…7160 Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0048, t01=0x00de}
0x7160…7182 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0048, t01=0x00f2}
0x7182…7194 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0048, t01=0x0114}
0x7194…71c2 Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0048, t01=0x0126}
0x71c2…71d4 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0048, t01=0x0154}
0x71d4…71e2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0166}
0x71e2…71ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0174}
0x71ec…71f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x017e}
0x71f6…722a Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0048, t01=0x0188}
0x722a…725e Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x0049, t01=0x002c}
0x725e…7292 Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0049, t01=0x0060}
0x7292…72b2 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x0049, t01=0x0094}
0x72b2…72bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00b4}
0x72bc…72d0 Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x0049, t01=0x00be}
0x72d0…72e2 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0049, t01=0x00d2}
0x72e2…730e Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x0049, t01=0x00e4}
0x730e…7322 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x0110}
0x7322…7354 Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x0049, t01=0x0124}
0x7354…7368 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x0156}
0x7368…738e Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x0049, t01=0x016a}
0x738e…73a8 Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x0049, t01=0x0190}
0x73a8…73d0 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x001a}
0x73d0…73e2 Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x004a, t01=0x0042}
0x73e2…7408 Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x0054}
0x7408…7422 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x007a}
0x7422…744a Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x0094}
0x744a…7464 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x00bc}
0x7464…7484 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x00d6}
0x7484…74a4 Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004a, t01=0x00f6}
0x74a4…74b6 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004a, t01=0x0116}
0x74b6…74cc Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004a, t01=0x0128}
0x74cc…74ee Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004a, t01=0x013e}
0x74ee…751e Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x004a, t01=0x0160}
0x751e…752e Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004a, t01=0x0190}
0x752e…753c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0010}
0x753c…7574 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x001e}
0x7574…75ac Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x004b, t01=0x0056}
0x75ac…75e4 Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x004b, t01=0x008e}
0x75e4…761c Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x004b, t01=0x00c6}
0x761c…7654 Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x004b, t01=0x00fe}
0x7654…768c Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x0136}
0x768c…76a0 Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x004b, t01=0x016e}
0x76a0…76aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x0182}
0x76aa…76b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004b, t01=0x018c}
0x76b4…76c8 Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x004c, t01=0x0008}
0x76c8…76ea Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x004c, t01=0x001c}
0x76ea…7706 Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x004c, t01=0x003e}
0x7706…7736 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x004c, t01=0x005a}
0x7736…7762 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x004c, t01=0x008a}
0x7762…7782 Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x004c, t01=0x00b6}
0x7782…77aa Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x004c, t01=0x00d6}
0x77aa…77ca Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x004c, t01=0x00fe}
0x77ca…77e2 Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x004c, t01=0x011e}
0x77e2…7806 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x004c, t01=0x0136}
0x7806…782e Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x004c, t01=0x015a}
0x782e…7846 Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x004c, t01=0x0182}
0x7846…7858 Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004d, t01=0x000a}
0x7858…7892 Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x004d, t01=0x001c}
0x7892…78ac Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x004d, t01=0x0056}
0x78ac…78d6 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x004d, t01=0x0070}
0x78d6…7900 Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x004d, t01=0x009a}
0x7900…7930 Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x004d, t01=0x00c4}
0x7930…7948 Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x004d, t01=0x00f4}
0x7948…795c Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x010c}
0x795c…7982 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x004d, t01=0x0120}
0x7982…79a6 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTBIN,A6 SAVE INDEX «, t00=0x004d, t01=0x0146}
0x79a6…79da Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x004d, t01=0x016a}
0x79da…79f8 Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x004e, t01=0x000e}
0x79f8…7a0a Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x004e, t01=0x002c}
0x7a0a…7a1e Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x004e, t01=0x003e}
0x7a1e…7a30 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x004e, t01=0x0052}
0x7a30…7a42 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x0064}
0x7a42…7a6e Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x004e, t01=0x0076}
0x7a6e…7a8e Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004e, t01=0x00a2}
0x7a8e…7aae Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x004e, t01=0x00c2}
0x7aae…7ad2 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x004e, t01=0x00e2}
0x7ad2…7ae8 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x004e, t01=0x0106}
0x7ae8…7afe Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004e, t01=0x011c}
0x7afe…7b14 Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x004e, t01=0x0132}
0x7b14…7b3a Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x004e, t01=0x0148}
0x7b3a…7b4e Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004e, t01=0x016e}
0x7b4e…7b7a Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x004e, t01=0x0182}
0x7b7a…7b90 Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x004f, t01=0x001e}
0x7b90…7bb6 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x004f, t01=0x0034}
0x7bb6…7bdc Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x004f, t01=0x005a}
0x7bdc…7c0a Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTBIN,A6 RESTORE BUFFER INDEX «, t00=0x004f, t01=0x0080}
0x7c0a…7c1c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004f, t01=0x00ae}
0x7c1c…7c3e Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x004f, t01=0x00c0}
0x7c3e…7c48 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00e2}
0x7c48…7c7a Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x004f, t01=0x00ec}
0x7c7a…7c8e Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x004f, t01=0x011e}
0x7c8e…7c9c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0132}
0x7c9c…7ca6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0140}
0x7ca6…7cb0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x014a}
0x7cb0…7cf0 Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x004f, t01=0x0154}
0x7cf0…7d28 (80, 0, 400) Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x0050, t01=0x0004}
0x7d28…7d32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x003c}
0x7d32…7d46 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x0050, t01=0x0046}
0x7d46…7d5a Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x0050, t01=0x005a}
0x7d5a…7d8c Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x0050, t01=0x006e}
0x7d8c…7da0 Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x0050, t01=0x00a0}
0x7da0…7db4 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0050, t01=0x00b4}
0x7db4…7dd4 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0050, t01=0x00c8}
0x7dd4…7df6 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x0050, t01=0x00e8}
0x7df6…7e10 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x010a}
0x7e10…7e2e Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0050, t01=0x0124}
0x7e2e…7e48 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x0142}
0x7e48…7e5a Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0050, t01=0x015c}
0x7e5a…7e74 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x016e}
0x7e74…7e84 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0050, t01=0x0188}
0x7e84…7e92 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x0008}
0x7e92…7e9c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0016}
0x7e9c…7ea6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0020}
0x7ea6…7ed4 Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x0051, t01=0x002a}
0x7ed4…7f16 Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x0051, t01=0x0058}
0x7f16…7f20 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x009a}
0x7f20…7f34 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x0051, t01=0x00a4}
0x7f34…7f52 Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x0051, t01=0x00b8}
0x7f52…7f72 Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x0051, t01=0x00d6}
0x7f72…7f8c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x00f6}
0x7f8c…7fac Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x0051, t01=0x0110}
0x7fac…7fbe Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0051, t01=0x0130}
0x7fbe…7fda Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x0051, t01=0x0142}
0x7fda…7ff0 Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x0051, t01=0x015e}
0x7ff0…8004 Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x0051, t01=0x0174}
0x8004…8016 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0051, t01=0x0188}
0x8016…8040 Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x0052, t01=0x000a}
0x8040…8052 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0052, t01=0x0034}
0x8052…8072 Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x0052, t01=0x0046}
0x8072…8086 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x0052, t01=0x0066}
0x8086…8098 Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x0052, t01=0x007a}
0x8098…80ac Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x0052, t01=0x008c}
0x80ac…80ca Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x0052, t01=0x00a0}
0x80ca…80de Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x0052, t01=0x00be}
0x80de…8102 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x0052, t01=0x00d2}
0x8102…8112 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x00f6}
0x8112…8120 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0106}
0x8120…812e Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0114}
0x812e…813c Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0122}
0x813c…814a Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0130}
0x814a…8186 Head {h00=0x0038, h01=0x0050, text=»* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2«, t00=0x0052, t01=0x013e}
0x8186…8194 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x017a}
0x8194…81a2 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0188}
0x81a2…81d6 Head {h00=0x0030, h01=0x0050, text=»* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 «, t00=0x0053, t01=0x0008}
0x81d6…8208 Head {h00=0x002e, h01=0x0050, text=»* AT EXIT A4 = CHAR TO END OF SCREEN =2 «, t00=0x0053, t01=0x003c}
0x8208…8216 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x006e}
0x8216…822c Head {h00=0x0012, h01=0x0050, text=»ERA EQU * =2 «, t00=0x0053, t01=0x007c}
0x822c…8252 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTPOS,A6 MAX CHAR. =2 «, t00=0x0053, t01=0x0092}
0x8252…8276 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF GET MAX CHAR. =2«, t00=0x0053, t01=0x00b8}
0x8276…82aa Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 «, t00=0x0053, t01=0x00dc}
0x82aa…82c2 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =2 «, t00=0x0053, t01=0x0110}
0x82c2…82f8 Head {h00=0x0032, h01=0x0050, text=» SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2«, t00=0x0053, t01=0x0128}
0x82f8…831c Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH =2 «, t00=0x0053, t01=0x015e}
0x831c…8340 Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN =2«, t00=0x0053, t01=0x0182}
0x8340…835c Head {h00=0x0018, h01=0x0050, text=» RF(L) ERAEND NO =2 «, t00=0x0054, t01=0x0016}
0x835c…838e Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2«, t00=0x0054, t01=0x0032}
0x838e…83b0 Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/FFFF SET OVER =4«, t00=0x0054, t01=0x0064}
0x83b0…83d6 Head {h00=0x0022, h01=0x0050, text=»ERAEND EQU * END SUBROUTINE =2«, t00=0x0054, t01=0x0086}
0x83d6…83f0 Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0054, t01=0x00ac}
0x83f0…8402 Head {h00=0x000e, h01=0x0050, text=»ABDY EQU *«, t00=0x0054, t01=0x00c6}
0x8402…8432 Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE CURSOR POSITION =5«, t00=0x0054, t01=0x00d8}
0x8432…845e Head {h00=0x0028, h01=0x0050, text=» RTN A15 RETURN TO ABORT ROUTINE =5 «, t00=0x0054, t01=0x0108}
0x845e…846a Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0054, t01=0x0134}
0x846a…846e Head {h00=0x4004, h01=0x0000}
0x846e…8472 00 54 01 40 ┆ T @┆
0x8472…847a (85, 1, 8) 20 04 00 00 00 55 00 04 ┆ U ┆
0x847a…84ca (86, 0, 400) 41 31 31 2c 30 5c 56 4f 4c 55 4d 45 20 4c 41 42 45 4c 00 ad 01 8a 00 24 00 1f 5c 43 46 5c 41 31 34 2c 52 45 41 44 56 4c 5c 47 45 54 20 56 4f 4c 55 4d 45 20 4c 41 42 45 4c 20 00 ae 00 1a 00 12 00 0e 52 45 41 44 56 4c 5c 45 51 55 5c 2a 2d 32 ┆A11,0 VOLUME LABEL $ CF A14,READVL GET VOLUME LABEL READVL EQU *-2┆
0x84ca…851a 00 ae 00 42 00 20 00 1b 5c 4c 44 5c 41 31 30 2c 31 30 2c 41 39 5c 47 45 54 20 56 54 4f 43 20 42 41 53 45 20 00 ae 00 58 00 16 00 11 5c 4c 44 52 5c 41 31 31 2c 41 31 30 5c 53 41 56 45 20 00 ae 00 7c 00 22 00 1d 5c 41 44 5c 41 31 30 2c 36 2c ┆ B LD A10,10,A9 GET VTOC BASE X LDR A11,A10 SAVE | " AD A10,6,┆
0x851a…856a 41 39 5c 4c 41 53 54 20 56 54 4f 43 20 53 45 43 54 4f 52 20 00 ae 00 96 00 28 00 23 5c 4c 44 5c 41 38 2c 31 32 2c 41 39 5c 47 45 54 20 56 54 4f 43 20 52 45 43 4f 52 44 20 4c 45 4e 47 54 48 20 00 ae 00 bc 00 2a 00 25 5c 41 44 4b 4c 5c 41 31 ┆A9 LAST VTOC SECTOR ( # LD A8,12,A9 GET VTOC RECORD LENGTH * % ADKL A1┆
0x856a…85ba 31 2c 31 5c 46 49 52 53 54 20 46 49 4c 45 20 53 45 43 54 4f 52 20 49 4e 20 56 54 4f 43 20 00 ae 00 e8 00 10 00 0c 47 45 54 3a 31 30 5c 45 51 55 5c 2a 00 ae 01 16 00 1e 00 1a 5c 43 46 5c 41 31 34 2c 52 45 41 44 43 46 5c 52 45 41 44 20 53 45 ┆1,1 FIRST FILE SECTOR IN VTOC GET:10 EQU * CF A14,READCF READ SE┆
0x85ba…860a 43 54 4f 52 00 ae 01 2a 00 12 00 0e 52 45 41 44 43 46 5c 45 51 55 5c 2a 2d 32 00 ae 01 4c 00 22 00 1e 5c 4c 44 4b 5c 41 37 2c 51 42 4c 46 41 43 5c 42 4c 4f 43 4b 49 4e 47 20 46 41 43 54 4f 52 00 ae 01 62 00 22 00 1e 5c 4c 44 52 5c 41 36 2c ┆CTOR * READCF EQU *-2 L " LDK A7,QBLFAC BLOCKING FACTOR b " LDR A6,┆
0x860a…865a (87, 0, 400) 41 39 5c 47 45 54 20 53 54 41 52 54 20 4f 46 20 42 55 46 46 45 52 00 ae 01 88 00 10 00 0c 47 45 54 3a 32 30 5c 45 51 55 5c 2a 00 af 00 1e 00 1a 00 50 5c 4c 44 4b 5c 41 35 2c 2f 32 30 5c 4c 4f 41 44 20 53 50 41 43 45 00 af 00 32 00 1c 00 50 ┆A9 GET START OF BUFFER GET:20 EQU * P LDK A5,/20 LOAD SPACE 2 P┆
0x865a…86aa 5c 43 43 52 5c 41 35 2c 41 36 5c 55 4e 55 53 45 44 20 46 49 4c 45 3f 20 00 af 00 50 00 16 00 50 5c 52 46 28 45 29 5c 47 45 54 3a 35 30 5c 59 45 53 21 00 af 00 70 00 1e 00 1a 5c 4c 44 52 5c 41 34 2c 41 36 5c 53 54 41 52 54 20 4f 46 20 52 45 ┆ CCR A5,A6 UNUSED FILE? P P RF(E) GET:50 YES! p LDR A4,A6 START OF RE┆
0x86aa…86fa 43 4f 52 44 00 af 00 8a 00 28 00 50 5c 4c 44 4b 5c 41 35 2c 27 53 27 5c 53 54 41 4e 44 41 52 44 20 46 49 4c 45 20 43 48 41 52 41 43 54 45 52 20 00 af 00 ac 00 20 00 1b 5c 43 43 5c 41 35 2c 32 37 2c 41 36 5c 53 54 41 4e 44 41 52 44 20 46 49 ┆CORD ( P LDK A5,'S' STANDARD FILE CHARACTER CC A5,27,A6 STANDARD FI┆
0x86fa…874a 4c 45 3f 20 00 af 00 d8 00 16 00 12 5c 52 46 28 4e 45 29 5c 47 45 54 3a 35 30 5c 4e 4f 21 00 af 00 fc 00 2a 00 50 5c 4c 44 4b 5c 41 35 2c 27 24 27 5c 4c 45 41 44 49 4e 47 20 43 48 41 52 20 49 4e 20 43 4f 4e 46 2e 20 46 49 4c 45 00 af 01 16 ┆LE? RF(NE) GET:50 NO! * P LDK A5,'$' LEADING CHAR IN CONF. FILE ┆
0x874a…879a 00 22 00 1e 5c 43 43 52 5c 41 35 2c 41 34 5c 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 3f 00 af 01 44 00 16 00 12 5c 52 46 28 4e 45 29 5c 47 45 54 3a 35 30 5c 4e 4f 21 00 af 01 6a 00 32 00 50 47 45 54 3a 32 35 5c 4c 44 4b 5c 41 ┆ " CCR A5,A4 CONFIGURATION FILE? D RF(NE) GET:50 NO! j 2 PGET:25 LDK A┆
0x879a…87ea (88, 0, 400) 33 2c 27 43 27 5c 54 48 49 53 20 49 4e 53 54 52 55 43 54 49 4f 4e 20 49 53 20 4d 4f 44 49 46 49 45 44 00 af 01 84 00 28 00 50 5c 43 43 4b 5c 41 33 2c 27 43 43 27 5c 4c 4f 4f 4b 49 4e 47 20 46 4f 52 20 43 4f 4e 46 2e 20 46 49 4c 45 3f 00 b0 ┆3,'C' THIS INSTRUCTION IS MODIFIED ( P CCK A3,'CC' LOOKING FOR CONF. FILE? ┆
0x87ea…883a 00 2a 00 16 00 50 5c 52 46 28 4e 45 29 5c 47 45 54 3a 38 35 5c 4e 4f 21 00 b0 00 56 00 1e 00 19 5c 41 44 4b 5c 41 34 2c 35 5c 53 49 58 54 48 20 43 48 41 52 41 43 54 45 52 20 00 b0 00 70 00 2c 00 50 5c 4c 44 4b 5c 41 35 2c 27 3a 27 5c 43 48 ┆ * P RF(NE) GET:85 NO! V ADK A4,5 SIXTH CHARACTER p , P LDK A5,':' CH┆
0x883a…888a 41 52 41 43 54 45 52 20 54 4f 20 50 52 45 43 45 45 44 20 4e 55 4d 42 45 52 20 00 b0 00 92 00 28 00 24 47 45 54 3a 33 30 5c 43 43 52 5c 41 35 2c 41 34 5c 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 3f 00 b0 00 c2 00 16 00 12 5c 52 ┆ARACTER TO PRECEED NUMBER ( $GET:30 CCR A5,A4 CONFIGURATION FILE? R┆
0x888a…88da 46 28 45 29 5c 47 45 54 3a 34 30 5c 59 45 53 21 00 b0 00 ee 00 20 00 1c 5c 53 55 4b 5c 41 34 2c 31 5c 54 52 59 20 4e 45 58 54 20 43 48 41 52 41 43 54 45 52 00 b0 01 08 00 1e 00 19 5c 43 57 52 5c 41 34 2c 41 36 5c 46 49 52 53 54 20 49 4e 20 ┆F(E) GET:40 YES! SUK A4,1 TRY NEXT CHARACTER CWR A4,A6 FIRST IN ┆
0x88da…892a 4e 41 4d 45 3f 20 00 b0 01 2c 00 16 00 12 5c 52 46 28 45 29 5c 47 45 54 3a 35 30 5c 59 45 53 21 00 b0 01 4e 00 0e 00 0a 5c 52 42 5c 47 45 54 3a 33 30 00 b0 01 68 00 10 00 0c 47 45 54 3a 34 30 5c 45 51 55 5c 2a 00 b0 01 7a 00 06 00 03 2a 20 ┆NAME? , RF(E) GET:50 YES! N RB GET:30 h GET:40 EQU * z * ┆
0x892a…897a (89, 0, 400) 00 b0 01 8e 00 20 00 1b 2a 20 20 43 48 45 43 4b 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 20 00 b1 00 08 00 06 00 03 2a 20 00 b1 00 2c 00 1e 00 1a 5c 4c 43 5c 41 35 2c 31 2c 41 34 5c 47 45 54 20 4c 45 46 54 20 44 49 47 49 54 ┆ * CHECK APPLICATION NUMBER * , LC A5,1,A4 GET LEFT DIGIT┆
0x897a…89ca 00 b1 00 36 00 20 00 1c 5c 53 4c 4c 5c 41 35 2c 38 5c 53 48 49 46 54 20 54 4f 20 4c 45 46 54 20 42 59 54 45 00 b1 00 58 00 20 00 1b 5c 4c 43 5c 41 35 2c 32 2c 41 34 5c 47 45 54 20 52 49 47 48 54 20 44 49 47 49 54 20 00 b1 00 7c 00 22 00 1e ┆ 6 SLL A5,8 SHIFT TO LEFT BYTE X LC A5,2,A4 GET RIGHT DIGIT | " ┆
0x89ca…8a1a 5c 43 41 4c 4c 5c 43 4f 4e 56 52 54 5c 43 4f 4e 56 45 52 54 20 54 4f 20 42 49 4e 41 52 59 00 b1 00 a0 00 2c 00 28 5c 43 57 5c 41 31 2c 53 43 54 41 4e 4f 5c 53 41 4d 45 20 41 53 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 4e 55 4d 42 45 52 00 b1 ┆ CALL CONVRT CONVERT TO BINARY , ( CW A1,SCTANO SAME AS APPLICATION NUMBER ┆
0x8a1a…8a6a 00 c6 00 12 00 0e 5c 52 46 28 4e 45 29 5c 47 45 54 3a 35 30 00 b1 00 f6 00 06 00 03 2a 20 00 b1 01 0c 00 20 00 1b 2a 20 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 20 46 4f 55 4e 44 20 00 b1 01 16 00 06 00 03 2a 20 00 b1 01 3a ┆ RF(NE) GET:50 * * CONFIGURATION FILE FOUND * :┆
0x8a6a…8aba 00 24 00 1f 5c 4c 44 5c 41 31 2c 32 32 2c 41 36 5c 4c 41 53 54 20 52 45 43 4f 52 44 20 4e 55 4d 42 45 52 20 00 b1 01 44 00 1a 00 16 5c 53 54 5c 41 31 2c 53 41 56 45 32 30 2c 41 31 33 5c 53 41 56 45 00 b1 01 6c 00 20 00 1c 5c 4c 44 5c 41 31 ┆ $ LD A1,22,A6 LAST RECORD NUMBER D ST A1,SAVE20,A13 SAVE l LD A1┆
0x8aba…8b0a (90, 0, 398) 31 2c 31 38 2c 41 36 5c 53 45 43 54 4f 52 20 41 44 44 52 45 53 53 00 b1 01 8a 00 0c 00 08 5c 52 54 4e 5c 41 31 34 00 b2 00 1e 00 10 00 0c 47 45 54 3a 35 30 5c 45 51 55 5c 2a 00 b2 00 2e 00 20 00 1b 5c 41 44 52 5c 41 36 2c 41 38 5c 4e 45 58 ┆1,18,A6 SECTOR ADDRESS RTN A14 GET:50 EQU * . ADR A6,A8 NEX┆
0x8b0a…8b5a 54 20 56 54 4f 43 20 52 45 43 4f 52 44 20 00 b2 00 42 00 26 00 21 5c 41 44 4b 5c 41 36 2c 31 5c 42 59 50 41 53 53 20 53 54 41 54 55 53 20 43 48 41 52 41 43 54 45 52 20 00 b2 00 66 00 2c 00 27 5c 53 55 4b 5c 41 37 2c 31 5c 4d 4f 4f 52 45 20 ┆T VTOC RECORD B & ! ADK A6,1 BYPASS STATUS CHARACTER f , ' SUK A7,1 MOORE ┆
0x8b5a…8baa 52 45 43 4f 52 44 53 20 49 4e 20 54 48 49 53 20 53 45 43 54 4f 52 3f 20 00 b2 00 90 00 16 00 12 5c 52 42 28 50 29 5c 47 45 54 3a 32 30 5c 59 45 53 21 00 b2 00 c0 00 22 00 1e 5c 43 57 52 5c 41 31 31 2c 41 31 30 5c 4c 41 53 54 20 56 54 4f 43 ┆RECORDS IN THIS SECTOR? RB(P) GET:20 YES! " CWR A11,A10 LAST VTOC┆
0x8baa…8bfa 20 53 45 43 54 4f 52 3f 00 b2 00 da 00 16 00 12 5c 52 42 28 4e 45 29 5c 47 45 54 3a 31 30 5c 4e 4f 21 00 b2 01 00 00 32 00 50 47 45 54 3a 36 30 5c 4c 44 4b 5c 41 33 2c 27 43 27 5c 54 48 49 53 20 49 4e 53 54 52 55 43 54 49 4f 4e 20 49 53 20 ┆ SECTOR? RB(NE) GET:10 NO! 2 PGET:60 LDK A3,'C' THIS INSTRUCTION IS ┆
0x8bfa…8c48 4d 4f 44 49 46 49 45 44 00 b2 01 1a 00 28 00 50 5c 43 43 4b 5c 41 33 2c 27 43 43 27 5c 4c 4f 4f 4b 49 4e 47 20 46 4f 52 20 43 4f 4e 46 2e 20 46 49 4c 45 3f 00 b2 01 50 00 16 00 50 5c 52 46 28 4e 45 29 5c 47 45 54 3a 39 39 5c 4e 4f 21 ┆MODIFIED ( P CCK A3,'CC' LOOKING FOR CONF. FILE? P P RF(NE) GET:99 NO!┆
0x8c48…8c98 (91, 0, 400) 00 b2 01 7c 00 06 00 03 2a 20 00 b3 00 08 00 3a 00 36 2a 20 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 20 4e 4f 54 20 46 4f 55 4e 44 20 2d 20 52 45 41 44 20 53 4f 50 20 41 4e 44 20 53 45 4c 45 43 54 20 00 b3 00 12 00 2a 00 25 ┆ | * : 6* CONFIGURATION FILE NOT FOUND - READ SOP AND SELECT * %┆
0x8c98…8ce8 2a 20 20 4c 4f 41 44 20 4d 45 44 49 55 4d 20 46 4f 52 20 43 4f 4e 46 49 47 55 52 41 54 49 4f 4e 20 46 49 4c 45 20 00 b3 00 50 00 06 00 03 2a 20 00 b3 00 7e 00 10 00 50 5c 4c 44 4b 5c 41 32 2c 2f 37 38 20 00 b3 00 88 00 26 00 21 5c 4f 54 52 ┆* LOAD MEDIUM FOR CONFIGURATION FILE P * ~ P LDK A2,/78 & ! OTR┆
0x8ce8…8d38 5c 41 32 2c 30 2c 53 4f 50 5c 53 57 49 54 43 48 20 4f 4e 20 53 4f 50 20 4c 41 4d 50 53 20 00 b3 00 9c 00 10 00 0c 47 45 54 3a 37 30 5c 45 51 55 5c 2a 00 b3 00 c6 00 12 00 0d 5c 43 46 5c 41 31 34 2c 53 4f 50 49 4e 20 00 b3 00 da 00 22 00 50 ┆ A2,0,SOP SWITCH ON SOP LAMPS GET:70 EQU * CF A14,SOPIN " P┆
0x8d38…8d88 5c 41 4e 4b 4c 5c 41 31 2c 2f 30 30 33 43 5c 41 4c 4c 4f 57 45 44 20 53 57 49 54 43 48 20 00 b3 00 f0 00 16 00 11 5c 52 42 28 5a 29 5c 47 45 54 3a 37 30 5c 4e 4f 21 20 00 b3 01 16 00 12 00 0d 5c 4c 44 4b 4c 5c 41 32 2c 4c 4d 50 31 20 00 b3 ┆ ANKL A1,/003C ALLOWED SWITCH RB(Z) GET:70 NO! LDKL A2,LMP1 ┆
0x8d88…8dd8 01 30 00 26 00 21 5c 4f 54 52 5c 41 32 2c 30 2c 53 4f 50 5c 53 57 49 54 43 48 20 4f 4e 20 4c 4f 41 44 20 4c 41 4d 50 20 00 b3 01 46 00 0e 00 0a 5c 53 52 4e 5c 41 31 2c 41 32 00 b3 01 70 00 28 00 23 5c 4c 44 5c 41 31 2c 44 45 56 54 41 42 2c ┆ 0 & ! OTR A2,0,SOP SWITCH ON LOAD LAMP F SRN A1,A2 p ( # LD A1,DEVTAB,┆
0x8dd8…8e28 (92, 0, 400) 41 32 5c 47 45 54 20 44 45 56 49 43 45 20 41 44 44 52 45 53 53 20 00 b3 01 82 00 14 00 0f 5c 43 57 4b 5c 41 32 2c 35 5c 44 49 53 43 3f 20 00 b4 00 1e 00 16 00 12 5c 52 46 28 47 29 5c 47 45 54 3a 38 30 5c 59 45 53 21 00 b4 00 36 00 12 00 50 ┆A2 GET DEVICE ADDRESS CWK A2,5 DISC? RF(G) GET:80 YES! 6 P┆
0x8e28…8e78 5c 49 46 54 5c 46 4c 44 49 53 43 3d 31 20 00 b4 00 50 00 26 00 21 5c 43 46 5c 41 31 34 2c 46 44 49 4e 49 54 5c 49 4e 49 54 20 46 4c 45 58 49 42 4c 45 20 44 49 53 43 20 00 b4 00 66 00 0e 00 0a 5c 52 42 5c 47 45 54 46 49 4c 00 b4 00 90 00 08 ┆ IFT FLDISC=1 P & ! CF A14,FDINIT INIT FLEXIBLE DISC f RB GETFIL ┆
0x8e78…8ec8 00 50 5c 58 49 46 00 b4 00 a2 00 12 00 50 5c 49 46 46 5c 46 4c 44 49 53 43 3d 31 20 00 b4 00 ae 00 12 00 50 5c 4c 44 4b 4c 5c 41 31 2c 4c 4d 50 39 20 00 b4 00 c4 00 26 00 50 5c 43 41 4c 4c 5c 45 52 52 4f 52 5c 49 4c 4c 45 47 41 4c 20 4d 4f ┆ P XIF P IFF FLDISC=1 P LDKL A1,LMP9 & P CALL ERROR ILLEGAL MO┆
0x8ec8…8f18 4e 49 54 4f 52 20 4f 50 54 49 4f 4e 00 b4 00 da 00 08 00 50 5c 58 49 46 00 b4 01 04 00 10 00 0c 47 45 54 3a 38 30 5c 45 51 55 5c 2a 00 b4 01 10 00 10 00 50 5c 49 46 54 5c 44 49 53 43 3d 31 20 00 b4 01 24 00 1c 00 18 5c 43 46 5c 41 31 34 2c ┆NITOR OPTION P XIF GET:80 EQU * P IFT DISC=1 $ CF A14,┆
0x8f18…8f68 44 55 49 4e 49 54 5c 49 4e 49 54 20 44 49 53 43 00 b4 01 38 00 0e 00 0a 5c 52 42 5c 47 45 54 46 49 4c 00 b4 01 58 00 08 00 50 5c 58 49 46 00 b4 01 6a 00 10 00 50 5c 49 46 46 5c 44 49 53 43 3d 31 20 00 b4 01 76 00 12 00 50 5c 4c 44 4b 4c 5c ┆DUINIT INIT DISC 8 RB GETFIL X P XIF j P IFF DISC=1 v P LDKL ┆