|
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: 36724 (0x8f74)
Notes: pts_type(SC)
Names: »DRDY01.SC«
└─⟦173d42e04⟧ Bits:30009663 Philips computer tape "600105"
└─⟦this⟧ »TOSSWORK/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 X:A * * BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344 * X:B EQU 1 WHATDY EQU X:B * * * BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR * (COLUMNS 6 AND 7) CAN BE USED X:C EQU 0 LOWCHA EQU X:C * * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO SUPPRESS ECHOING OF END OF RECORD CHARACTER. * THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 * X:D EQU 0 EORECH EQU X:D * * BY SETTING THE CONSTANT TRASPA = 1 IT IS * POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. * X:E EQU 0 TRASPA EQU X:E EJECT * * BY SETTING X:F = 1, CURSOR WILL BE STEADY * INSTEAD OF BLINKING X:F EQU 0 STEADY EQU X:F * * THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT * BY SETTING MMUPAG = 1 * MMUPAG EQU 0 * * * A PROGRAM VERSION USING THE EXTENDED INSTRUCTION * SET IS OBTAINED BY SETTING CPU852 EQU 0. * CPU852 EQU 1 * * BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE * TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS. * CODE COUNTRY * 0 GB/NL/B * 1 D/A/L/CH * 2 F/CH/B/L * 3 E * 4 I/CH * 5 S/SF * 6 DK/N * 7 P * 8 YU * 9 US X:G EQU 0 COUNTRY EQU X:G * * MEMORY MANAGEMENT BUFFER SIZE * * X:H EQU 64 DVBLEN EQU X:H * EJECT * * ******************************** * DWT-DISPLACEMENT * ******************************** * * DWTDRD EQU /10 START OF DRIVER DEFINED PART * IFT MMUPAG=0 START EQU DWTDRD XIF * IFT MMUPAG=1 START EQU DWTDRD+4 XIF * DWTAP EQU 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…163a Head {h00=0x0012, h01=0x0050, text=»GRAFIC EQU X:A«, t00=0x000e, t01=0x004c}
0x163a…1644 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0062}
0x1644…1684 Head {h00=0x003c, h01=0x0050, text=»* BY SETTING X:B = 1 THE DRIVER HANDLES ONLY PTS 6344«, t00=0x000e, t01=0x006c}
0x1684…168e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00ac}
0x168e…16a0 Head {h00=0x000e, h01=0x0050, text=»X:B EQU 1 «, t00=0x000e, t01=0x00b6}
0x16a0…16b6 Head {h00=0x0012, h01=0x0050, text=»WHATDY EQU X:B«, t00=0x000e, t01=0x00c8}
0x16b6…16c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00de}
0x16c0…16ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x00e8}
0x16ca…1706 Head {h00=0x0038, h01=0x0050, text=»* BY SETTING X:C TO 1 LOWER CASE CHAR. GENERATOR «, t00=0x000e, t01=0x00f2}
0x1706…1730 Head {h00=0x0026, h01=0x0050, text=»* (COLUMNS 6 AND 7) CAN BE USED«, t00=0x000e, t01=0x012e}
0x1730…1742 Head {h00=0x000e, h01=0x0050, text=»X:C EQU 0 «, t00=0x000e, t01=0x0158}
0x1742…1758 Head {h00=0x0012, h01=0x0050, text=»LOWCHA EQU X:C«, t00=0x000e, t01=0x016a}
0x1758…1762 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x0180}
0x1762…176c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000e, t01=0x018a}
0x176c…17a8 (15, 0, 400) Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE«, t00=0x000f, t01=0x0004}
0x17a8…17e4 Head {h00=0x0038, h01=0x0050, text=»* TO SUPPRESS ECHOING OF END OF RECORD CHARACTER.«, t00=0x000f, t01=0x0040}
0x17e4…1820 Head {h00=0x0038, h01=0x0050, text=»* THIS IS ATTAINED BY SETTING THE CONSTANT X:G=0 «, t00=0x000f, t01=0x007c}
0x1820…182a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00b8}
0x182a…183c Head {h00=0x000e, h01=0x0050, text=»X:D EQU 0 «, t00=0x000f, t01=0x00c2}
0x183c…1852 Head {h00=0x0012, h01=0x0050, text=»EORECH EQU X:D«, t00=0x000f, t01=0x00d4}
0x1852…185c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x00ea}
0x185c…1890 Head {h00=0x0030, h01=0x0050, text=»* BY SETTING THE CONSTANT TRASPA = 1 IT IS«, t00=0x000f, t01=0x00f4}
0x1890…18d4 Head {h00=0x0040, h01=0x0050, text=»* POSSIBLE TO SUPPRESS TRAILING BLANKS, /12, /1E AND /1F. «, t00=0x000f, t01=0x0128}
0x18d4…18de Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x000f, t01=0x016c}
0x18de…18f0 Head {h00=0x000e, h01=0x0050, text=»X:E EQU 0 «, t00=0x000f, t01=0x0176}
0x18f0…1906 Head {h00=0x0012, h01=0x0050, text=»TRASPA EQU X:E«, t00=0x000f, t01=0x0188}
0x1906…1914 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0010, t01=0x000e}
0x1914…191e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x001c}
0x191e…1954 Head {h00=0x0032, h01=0x0050, text=»* BY SETTING X:F = 1, CURSOR WILL BE STEADY «, t00=0x0010, t01=0x0026}
0x1954…1974 Head {h00=0x001c, h01=0x0050, text=»* INSTEAD OF BLINKING «, t00=0x0010, t01=0x005c}
0x1974…1986 Head {h00=0x000e, h01=0x0050, text=»X:F EQU 0 «, t00=0x0010, t01=0x007c}
0x1986…199c Head {h00=0x0012, h01=0x0050, text=»STEADY EQU X:F«, t00=0x0010, t01=0x008e}
0x199c…19a6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x00a4}
0x19a6…19e6 Head {h00=0x003c, h01=0x0050, text=»* THIS DRIVER CAN BE ADAPTED TO MEMORY MANAGEMENT UNIT«, t00=0x0010, t01=0x00ae}
0x19e6…1a08 Head {h00=0x001e, h01=0x0050, text=»* BY SETTING MMUPAG = 1 «, t00=0x0010, t01=0x00ee}
0x1a08…1a12 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0110}
0x1a12…1a26 Head {h00=0x0010, h01=0x0050, text=»MMUPAG EQU 0«, t00=0x0010, t01=0x011a}
0x1a26…1a30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x012e}
0x1a30…1a3a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0010, t01=0x0138}
0x1a3a…1a74 Head {h00=0x0036, h01=0x0050, text=»* A PROGRAM VERSION USING THE EXTENDED INSTRUCTION«, t00=0x0010, t01=0x0142}
0x1a74…1aa6 Head {h00=0x002e, h01=0x0050, text=»* SET IS OBTAINED BY SETTING CPU852 EQU 0.«, t00=0x0010, t01=0x017c}
0x1aa6…1ab0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x001e}
0x1ab0…1ac4 Head {h00=0x0010, h01=0x0050, text=»CPU852 EQU 1«, t00=0x0011, t01=0x0028}
0x1ac4…1ace Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0011, t01=0x003c}
0x1ace…1b0a Head {h00=0x0038, h01=0x0050, text=»* BY MEANS OF CONDITIONAL ASSEMBLY IT IS POSSIBLE «, t00=0x0011, t01=0x0046}
0x1b0a…1b4a Head {h00=0x003c, h01=0x0050, text=»* TO CHOOSE BETWEEN NINE (9) DIFFERENT CHARACTER SETS.«, t00=0x0011, t01=0x0082}
0x1b4a…1b52 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00c2}
0x1b52…1b5a Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00ca}
0x1b5a…1b70 Head {h00=0x0012, h01=0x0050, text=»* CODE COUNTRY«, t00=0x0011, t01=0x00d2}
0x1b70…1b78 Head {h00=0x0004, h01=0x0050, t00=0x0011, t01=0x00e8}
0x1b78…1b8c Head {h00=0x0010, h01=0x0050, text=»* 0 GB/NL/B «, t00=0x0011, t01=0x00f0}
0x1b8c…1ba0 Head {h00=0x0010, h01=0x0050, text=»* 1 D/A/L/CH«, t00=0x0011, t01=0x0104}
0x1ba0…1bb4 Head {h00=0x0010, h01=0x0050, text=»* 2 F/CH/B/L«, t00=0x0011, t01=0x0118}
0x1bb4…1bc2 Head {h00=0x000a, h01=0x0050, text=»* 3 E «, t00=0x0011, t01=0x012c}
0x1bc2…1bd2 Head {h00=0x000c, h01=0x0050, text=»* 4 I/CH«, t00=0x0011, t01=0x013a}
0x1bd2…1be2 Head {h00=0x000c, h01=0x0050, text=»* 5 S/SF«, t00=0x0011, t01=0x014a}
0x1be2…1bf2 Head {h00=0x000c, h01=0x0050, text=»* 6 DK/N«, t00=0x0011, t01=0x015a}
0x1bf2…1c00 Head {h00=0x000a, h01=0x0050, text=»* 7 P «, t00=0x0011, t01=0x016a}
0x1c00…1c0e Head {h00=0x000a, h01=0x0050, text=»* 8 YU«, t00=0x0011, t01=0x0178}
0x1c0e…1c1c Head {h00=0x000a, h01=0x0050, text=»* 9 US«, t00=0x0011, t01=0x0186}
0x1c1c…1c2e (18, 0, 400) Head {h00=0x000e, h01=0x0050, text=»X:G EQU 0 «, t00=0x0012, t01=0x0004}
0x1c2e…1c46 Head {h00=0x0014, h01=0x0050, text=»COUNTRY EQU X:G «, t00=0x0012, t01=0x0016}
0x1c46…1c50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x002e}
0x1c50…1c7a Head {h00=0x0026, h01=0x0050, text=»* MEMORY MANAGEMENT BUFFER SIZE «, t00=0x0012, t01=0x0038}
0x1c7a…1c84 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0062}
0x1c84…1c8e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x006c}
0x1c8e…1ca0 Head {h00=0x000e, h01=0x0050, text=»X:H EQU 64«, t00=0x0012, t01=0x0076}
0x1ca0…1cb6 Head {h00=0x0012, h01=0x0050, text=»DVBLEN EQU X:H«, t00=0x0012, t01=0x0088}
0x1cb6…1cc0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x009e}
0x1cc0…1cce Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0012, t01=0x00a8}
0x1cce…1cd8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00b6}
0x1cd8…1ce2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x00c0}
0x1ce2…1d0a Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x00ca}
0x1d0a…1d32 Head {h00=0x0024, h01=0x0050, text=»* DWT-DISPLACEMENT *«, t00=0x0012, t01=0x00f2}
0x1d32…1d5a Head {h00=0x0024, h01=0x0050, text=»********************************«, t00=0x0012, t01=0x011a}
0x1d5a…1d64 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x0142}
0x1d64…1d6e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x014c}
0x1d6e…1da2 Head {h00=0x0030, h01=0x0050, text=»DWTDRD EQU /10 START OF DRIVER DEFINED PART «, t00=0x0012, t01=0x0156}
0x1da2…1dac Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0012, t01=0x018a}
0x1dac…1dc2 (19, 0, 400) Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=0 «, t00=0x0013, t01=0x0004}
0x1dc2…1dda Head {h00=0x0014, h01=0x0050, text=»START EQU DWTDRD«, t00=0x0013, t01=0x001a}
0x1dda…1de6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0032}
0x1de6…1df0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x003e}
0x1df0…1e06 Head {h00=0x0012, h01=0x0050, text=» IFT MMUPAG=1 «, t00=0x0013, t01=0x0048}
0x1e06…1e20 Head {h00=0x0016, h01=0x0050, text=»START EQU DWTDRD+4«, t00=0x0013, t01=0x005e}
0x1e20…1e2c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0013, t01=0x0078}
0x1e2c…1e36 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0084}
0x1e36…1e68 Head {h00=0x002e, h01=0x0050, text=»DWTAP EQU START+/12 HEAD POSITION POINTER «, t00=0x0013, t01=0x008e}
0x1e68…1e8e Head {h00=0x0022, h01=0x0050, text=»DWTPOS EQU START+/15 POSITIONS«, t00=0x0013, t01=0x00c0}
0x1e8e…1eb0 Head {h00=0x001e, h01=0x0050, text=»DWTLIN EQU START+/14 LINES«, t00=0x0013, t01=0x00e6}
0x1eb0…1eda Head {h00=0x0026, h01=0x0050, text=»DWTBIN EQU START+/16 BUFFER INDEX «, t00=0x0013, t01=0x0108}
0x1eda…1ee4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0132}
0x1ee4…1ef2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0013, t01=0x013c}
0x1ef2…1efc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x014a}
0x1efc…1f06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0013, t01=0x0154}
0x1f06…1f18 Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x015e}
0x1f18…1f2a Head {h00=0x000e, h01=0x0050, text=»* TABLES *«, t00=0x0013, t01=0x0170}
0x1f2a…1f3c Head {h00=0x000e, h01=0x0050, text=»**********«, t00=0x0013, t01=0x0182}
0x1f3c…1f46 (20, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0004}
0x1f46…1f50 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x000e}
0x1f50…1f72 Head {h00=0x001e, h01=0x0050, text=» DATA DVBLEN BUFFER LENGTH«, t00=0x0014, t01=0x0018}
0x1f72…1f8e Head {h00=0x0018, h01=0x0050, text=» DATA 2 DEVICE INDEX«, t00=0x0014, t01=0x003a}
0x1f8e…1fae Head {h00=0x001c, h01=0x0050, text=»DYAD EQU * ADDRESS BLOCK«, t00=0x0014, t01=0x0056}
0x1fae…1fd2 Head {h00=0x0020, h01=0x0050, text=» DATA ACDY ACTIVATION DRIVER«, t00=0x0014, t01=0x0076}
0x1fd2…1ffa Head {h00=0x0024, h01=0x0050, text=» DATA ABDY ABORT ROUTINE ADDRESS«, t00=0x0014, t01=0x009a}
0x1ffa…201e Head {h00=0x0020, h01=0x0050, text=» DATA IHDY INTERRUPT HANDLER«, t00=0x0014, t01=0x00c2}
0x201e…2042 Head {h00=0x0020, h01=0x0050, text=» DATA RCDY RECOVERY ROUTINE «, t00=0x0014, t01=0x00e6}
0x2042…2074 Head {h00=0x002e, h01=0x0050, text=» DATA ECHODY DEVICE-DEPENDENT ECHO-ROUTINE«, t00=0x0014, t01=0x010a}
0x2074…207e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x013c}
0x207e…2088 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0014, t01=0x0146}
0x2088…20b8 Head {h00=0x002c, h01=0x0050, text=»TABSPE EQU * TABLE OF SPECIAL CHARACTERS«, t00=0x0014, t01=0x0150}
0x20b8…20d8 Head {h00=0x001c, h01=0x0050, text=» DATA /0712,/131E,/1F14 «, t00=0x0014, t01=0x0180}
0x20d8…20e6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0015, t01=0x0010}
0x20e6…20f0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x001e}
0x20f0…2104 Head {h00=0x0010, h01=0x0050, text=»* A C D Y«, t00=0x0015, t01=0x0028}
0x2104…210e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x003c}
0x210e…213c Head {h00=0x002a, h01=0x0050, text=»* ACDY = ACTIVATION DRIVER DISPLAY «, t00=0x0015, t01=0x0046}
0x213c…2146 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0074}
0x2146…2192 Head {h00=0x0048, h01=0x0050, text=»* ORDER 00: TEST STATUS. DUMMY IS SENT TO DISPLAY AND RETURN CODE«, t00=0x0015, t01=0x007e}
0x2192…21c8 Head {h00=0x0032, h01=0x0050, text=»* IS SET IF DISPLAY NOT OPERABLE «, t00=0x0015, t01=0x00ca}
0x21c8…21d2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0100}
0x21d2…21dc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x010a}
0x21dc…221e Head {h00=0x003e, h01=0x0050, text=»* ORDER 05: BASIC WRITE. CHARACTER ARE SENT TO DISPLAY «, t00=0x0015, t01=0x0114}
0x221e…2258 Head {h00=0x0036, h01=0x0050, text=»* FROM ECB-BUFFER WITHOUT ANY CHECK. «, t00=0x0015, t01=0x0156}
0x2258…2262 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0015, t01=0x0190}
0x2262…22ac Head {h00=0x0046, h01=0x0050, text=»* ORDER 06: STANDARD WRITE. CHARACTERS ARE SENT TO DISPLAY FROM«, t00=0x0016, t01=0x000a}
0x22ac…22ec Head {h00=0x003c, h01=0x0050, text=»* ECB-BUFFER AFTER INDIVIDUAL CODE CHECK. «, t00=0x0016, t01=0x0054}
0x22ec…22f6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0094}
0x22f6…2346 Head {h00=0x004c, h01=0x0050, text=»* IF A PREDEFINED NUMBER OF CHARACTERS (SEE CONSTANT 'EQU')«, t00=0x0016, t01=0x009e}
0x2346…2394 Head {h00=0x004a, h01=0x0050, text=»* ARE FOUND EQUAL, FAST OUTPUT IS EXECUTED FOR THE NUMBER«, t00=0x0016, t01=0x00ee}
0x2394…23de Head {h00=0x0046, h01=0x0050, text=»* OF CHARACTERS FOUND EQUAL (> 'EQU') ON 6344 & 6386>«, t00=0x0016, t01=0x013c}
0x23de…23e8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0016, t01=0x0186}
0x23e8…23fe Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0016, t01=0x0190}
0x23fe…2444 Head {h00=0x0042, h01=0x0050, text=»* ORDER 07: WRITE GRAPHIC DISPLAY. THE DISPLAY IS SWITCHED «, t00=0x0017, t01=0x0016}
0x2444…2488 Head {h00=0x0040, h01=0x0050, text=»* TO GRAPHIC MODE AND INFORMATION IN ECB-BUFFER«, t00=0x0017, t01=0x005c}
0x2488…24b6 Head {h00=0x002a, h01=0x0050, text=»* IS SENT TO THE DISPLAY.«, t00=0x0017, t01=0x00a0}
0x24b6…24c0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0017, t01=0x00ce}
0x24c0…24cc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0017, t01=0x00d8}
0x24cc…250a Head {h00=0x003a, h01=0x0050, text=»* ORDER /B: CURSOR POSITIONING AND STANDARD WRITE. «, t00=0x0017, t01=0x00e4}
0x250a…254a Head {h00=0x003c, h01=0x0050, text=»* THE CURSOR IS SENT TO THE POSITION GIVEN «, t00=0x0017, t01=0x0122}
0x254a…258c Head {h00=0x003e, h01=0x0050, text=»* IN CONTROL WORD. NO INFORMATION ON DISPLAY «, t00=0x0017, t01=0x0162}
0x258c…25d0 Head {h00=0x0040, h01=0x0050, text=»* IS ERASED. THEN STANDARD WRITE (SEE ORDER 6) «, t00=0x0018, t01=0x0014}
0x25d0…25f4 Head {h00=0x0020, h01=0x0050, text=»* IS EXECUTED. «, t00=0x0018, t01=0x0058}
0x25f4…25fe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0018, t01=0x007c}
0x25fe…263e Head {h00=0x003c, h01=0x0050, text=»* ORDER 31: ERASE. THE DISPLAY IS ERASED ON THE LINE «, t00=0x0018, t01=0x0086}
0x263e…267e Head {h00=0x003c, h01=0x0050, text=»* WHERE THE CURSOR IS POSITIONED THE NUMBER«, t00=0x0018, t01=0x00c6}
0x267e…26c2 Head {h00=0x0040, h01=0x0050, text=»* OF CHARACTERS THAT ARE DEFINED IN THE CONTROL«, t00=0x0018, t01=0x0106}
0x26c2…2706 Head {h00=0x0040, h01=0x0050, text=»* WORD OF ECB. 0-80 CHARACTERS. ERASING STARTS «, t00=0x0018, t01=0x014a}
0x2706…2744 Head {h00=0x003a, h01=0x0050, text=»* IN THE CURSOR POSITION. THE CURSOR RE- «, t00=0x0018, t01=0x018e}
0x2744…2772 Head {h00=0x002a, h01=0x0050, text=»* MAINS IN THAT POSITION.«, t00=0x0019, t01=0x003c}
0x2772…2784 Head {h00=0x000e, h01=0x0050, text=»ACDY EQU *«, t00=0x0019, t01=0x006a}
0x2784…27a8 Head {h00=0x0020, h01=0x0050, text=» LDK A3,0 START BUFFER INDEX«, t00=0x0019, t01=0x007c}
0x27a8…27c2 Head {h00=0x0016, h01=0x0050, text=» LDK A4,0 COUNTER «, t00=0x0019, t01=0x00a0}
0x27c2…27de Head {h00=0x0018, h01=0x0050, text=» LDR A7,A7 ORDER 0 ?«, t00=0x0019, t01=0x00ba}
0x27de…27f8 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY410 YES«, t00=0x0019, t01=0x00d6}
0x27f8…281c Head {h00=0x0020, h01=0x0050, text=» LDK A2,STX START OF MESSAGE«, t00=0x0019, t01=0x00f0}
0x281c…2836 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0019, t01=0x0114}
0x2836…284c Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0019, t01=0x012e}
0x284c…2872 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x0019, t01=0x0144}
0x2872…2896 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAPHIC DISPLAY «, t00=0x0019, t01=0x016a}
0x2896…28ae Head {h00=0x0014, h01=0x0050, text=» RF(E) ACDY02 NO«, t00=0x0019, t01=0x018e}
0x28ae…28c4 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x001a, t01=0x0016}
0x28c4…28e0 Head {h00=0x0018, h01=0x0050, text=» CWK A7,7 ORDER ' ? «, t00=0x001a, t01=0x002c}
0x28e0…28f6 Head {h00=0x0012, h01=0x0050, text=» ABL(E) ADY500«, t00=0x001a, t01=0x0048}
0x28f6…2902 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x005e}
0x2902…2918 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001a, t01=0x006a}
0x2918…294a Head {h00=0x002e, h01=0x0050, text=» LDK A2,/12 INDICATE SWITCH TO ALPHA MODE «, t00=0x001a, t01=0x0080}
0x294a…2960 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x001a, t01=0x00b2}
0x2960…296a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00c8}
0x296a…2976 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001a, t01=0x00d2}
0x2976…2980 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001a, t01=0x00de}
0x2980…2994 Head {h00=0x0010, h01=0x0050, text=»ACDY02 EQU *«, t00=0x001a, t01=0x00e8}
0x2994…29ae Head {h00=0x0016, h01=0x0050, text=» CWK A7,5 ORDER 5 «, t00=0x001a, t01=0x00fc}
0x29ae…29c8 Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY90 YES «, t00=0x001a, t01=0x0116}
0x29c8…29e4 Head {h00=0x0018, h01=0x0050, text=» SUK A7,6 ORDER 6 ? «, t00=0x001a, t01=0x0130}
0x29e4…29fe Head {h00=0x0016, h01=0x0050, text=» RF(E) ACDY20 YES «, t00=0x001a, t01=0x014c}
0x29fe…2a1a Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER /B ?«, t00=0x001a, t01=0x0166}
0x2a1a…2a34 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY200 YES«, t00=0x001a, t01=0x0182}
0x2a34…2a56 Head {h00=0x001e, h01=0x0050, text=» SUK A7,/26 ORDER ERASE ? «, t00=0x001b, t01=0x000c}
0x2a56…2a70 Head {h00=0x0016, h01=0x0050, text=» ABL(E) ADY160 YES«, t00=0x001b, t01=0x002e}
0x2a70…2a7a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001b, t01=0x0048}
0x2a7a…2aa4 Head {h00=0x0026, h01=0x0050, text=»DYERR ABL DISIOE I/O REQUEST ERROR«, t00=0x001b, t01=0x0052}
0x2aa4…2ab2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001b, t01=0x007c}
0x2ab2…2af0 Head {h00=0x003a, h01=0x0050, text=»* ACTIONS SPECIFIED BY USER IN RIGHT BYTE IN BUFFER«, t00=0x001b, t01=0x008a}
0x2af0…2b0e Head {h00=0x001a, h01=0x0050, text=»* ARE CARRIED OUT. «, t00=0x001b, t01=0x00c8}
0x2b0e…2b42 Head {h00=0x0030, h01=0x0050, text=»* /2B NO MOVING OF PRINT HEAD «, t00=0x001b, t01=0x00e6}
0x2b42…2b68 Head {h00=0x0022, h01=0x0050, text=»* /30 CR, LF, LF«, t00=0x001b, t01=0x011a}
0x2b68…2bae Head {h00=0x0042, h01=0x0050, text=»* /31 ERASE DISPLAY AND WRITE FROM HOME POSITION«, t00=0x001b, t01=0x0140}
0x2bae…2bd0 Head {h00=0x001e, h01=0x0050, text=»* OTHER VALUE CR, LF«, t00=0x001b, t01=0x0186}
0x2bd0…2bda Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001c, t01=0x0018}
0x2bda…2bee Head {h00=0x0010, h01=0x0050, text=»ACDY20 EQU *«, t00=0x001c, t01=0x0022}
0x2bee…2c16 Head {h00=0x0024, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH«, t00=0x001c, t01=0x0036}
0x2c16…2c2c Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY25 «, t00=0x001c, t01=0x005e}
0x2c2c…2c50 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x001c, t01=0x0074}
0x2c50…2c76 Head {h00=0x0022, h01=0x0050, text=» LD A2,2,A8 GET BUFFER ADDRESS«, t00=0x001c, t01=0x0098}
0x2c76…2ca0 Head {h00=0x0026, h01=0x0050, text=» LC A2,1,A2 GET CONTROL CHARACTER «, t00=0x001c, t01=0x00be}
0x2ca0…2cb4 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x001c, t01=0x00e8}
0x2cb4…2cc8 Head {h00=0x0010, h01=0x0050, text=»ACDY25 EQU *«, t00=0x001c, t01=0x00fc}
0x2cc8…2cf6 Head {h00=0x002a, h01=0x0050, text=» SUK A2,/2B POSITIONING BEFORE WRITE ?«, t00=0x001c, t01=0x0110}
0x2cf6…2d0c Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY90 «, t00=0x001c, t01=0x013e}
0x2d0c…2d24 Head {h00=0x0014, h01=0x0050, text=» SUK A2,6 /31 ? «, t00=0x001c, t01=0x0154}
0x2d24…2d3a Head {h00=0x0012, h01=0x0050, text=» RF(E) ACDY65 «, t00=0x001c, t01=0x016c}
0x2d3a…2d5e Head {h00=0x0020, h01=0x0050, text=» LDK A4,1 INDICATE LINE FEED«, t00=0x001c, t01=0x0182}
0x2d5e…2d84 Head {h00=0x0022, h01=0x0050, text=» ADK A2,1 DOUBLE LINE FEEED ? «, t00=0x001d, t01=0x0016}
0x2d84…2d9a Head {h00=0x0012, h01=0x0050, text=» RF(NE) ACDY30«, t00=0x001d, t01=0x003c}
0x2d9a…2dc6 Head {h00=0x0028, h01=0x0050, text=» ADK A4,1 INDICATE DOUBLE LINE FEED «, t00=0x001d, t01=0x0052}
0x2dc6…2dce Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x007e}
0x2dce…2dd6 Head {h00=0x0004, h01=0x0050, t00=0x001d, t01=0x0086}
0x2dd6…2dfe Head {h00=0x0024, h01=0x0050, text=»ACDY30 LDK A2,CR CARRIAGE RETURN«, t00=0x001d, t01=0x008e}
0x2dfe…2e16 Head {h00=0x0014, h01=0x0050, text=»ACDY35 LDK A1,1 «, t00=0x001d, t01=0x00b6}
0x2e16…2e4c Head {h00=0x0032, h01=0x0050, text=» SC A1,DWTAP+1,A6 RESET HEAD POSITION COUNTER «, t00=0x001d, t01=0x00ce}
0x2e4c…2e88 Head {h00=0x0038, h01=0x0050, text=»* SEND CARRIAGE RETURN AND ONE OR TWO LINE FEEDS «, t00=0x001d, t01=0x0104}
0x2e88…2e92 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001d, t01=0x0140}
0x2e92…2ea6 Head {h00=0x0010, h01=0x0050, text=»ACDY50 EQU *«, t00=0x001d, t01=0x014a}
0x2ea6…2eca Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x001d, t01=0x015e}
0x2eca…2ee2 Head {h00=0x0014, h01=0x0050, text=»ACDY52 SUK A4,1 «, t00=0x001d, t01=0x0182}
0x2ee2…2f0c Head {h00=0x0026, h01=0x0050, text=» RF(N) ACDY90 START SECTION ENDED?«, t00=0x001e, t01=0x000a}
0x2f0c…2f2a Head {h00=0x001a, h01=0x0050, text=» LC A1,DWTLIN,A6 LINES«, t00=0x001e, t01=0x0034}
0x2f2a…2f4e Head {h00=0x0020, h01=0x0050, text=» CC A1,DWTAP,A6 LAST LINE ? «, t00=0x001e, t01=0x0052}
0x2f4e…2f64 Head {h00=0x0012, h01=0x0050, text=» RF(L) ACDY55 «, t00=0x001e, t01=0x0076}
0x2f64…2f90 Head {h00=0x0028, h01=0x0050, text=» LDKL A2,/100 INCREMENT LINE COUNTER«, t00=0x001e, t01=0x008c}
0x2f90…2fa8 Head {h00=0x0014, h01=0x0050, text=» ADS A2,DWTAP,A6«, t00=0x001e, t01=0x00b8}
0x2fa8…2fd2 Head {h00=0x0026, h01=0x0050, text=»ACDY55 LDK A2,LF LINE FEED TO SEND«, t00=0x001e, t01=0x00d0}
0x2fd2…2fe4 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x001e, t01=0x00fa}
0x2fe4…3010 Head {h00=0x0028, h01=0x0050, text=»ACDY65 LDK A2,CLEHOM CLEAR AND HOME «, t00=0x001e, t01=0x010c}
0x3010…3022 Head {h00=0x000e, h01=0x0050, text=» LDK A1,1 «, t00=0x001e, t01=0x0138}
0x3022…304c Head {h00=0x0026, h01=0x0050, text=» SC A1,DWTAP,A6 RESET LINE COUNTER«, t00=0x001e, t01=0x014a}
0x304c…305e Head {h00=0x000e, h01=0x0050, text=» RB ACDY35«, t00=0x001e, t01=0x0174}
0x305e…306c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x001e, t01=0x0186}
0x306c…3076 (31, 0, 400) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x0004}
0x3076…30a0 Head {h00=0x0026, h01=0x0050, text=»* GET, CHECK AND SEND CHARACTER«, t00=0x001f, t01=0x000e}
0x30a0…30c2 Head {h00=0x001e, h01=0x0050, text=»* (IF ORDER 5 NO CHECK)«, t00=0x001f, t01=0x0038}
0x30c2…30cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x001f, t01=0x005a}
0x30cc…30e0 Head {h00=0x0010, h01=0x0050, text=»ACDY70 EQU *«, t00=0x001f, t01=0x0064}
0x30e0…30f6 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x001f, t01=0x0078}
0x30f6…3120 Head {h00=0x0026, h01=0x0050, text=» LDR* A4,A6 GET CHANNEL PARAMETER «, t00=0x001f, t01=0x008e}
0x3120…3134 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/10 «, t00=0x001f, t01=0x00b8}
0x3134…315c Head {h00=0x0024, h01=0x0050, text=» RF(NZ) ACDY75 NOT 6344 OR 6386 «, t00=0x001f, t01=0x00cc}
0x315c…3168 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x001f, t01=0x00f4}
0x3168…317c Head {h00=0x0010, h01=0x0050, text=» LD A4,2,A8 «, t00=0x001f, t01=0x0100}
0x317c…31b2 Head {h00=0x0032, h01=0x0050, text=» ADR A4,A3 GET ADDRESS TO NEXT CHAR IN BUFFER «, t00=0x001f, t01=0x0114}
0x31b2…31da Head {h00=0x0024, h01=0x0050, text=» CCR A2,A4 CHAR EQU TO CURRENT? «, t00=0x001f, t01=0x014a}
0x31da…31f4 Head {h00=0x0016, h01=0x0050, text=» ABL(E) CHECK YES!«, t00=0x001f, t01=0x0172}
0x31f4…3208 Head {h00=0x0010, h01=0x0050, text=»ACDY75 EQU *«, t00=0x001f, t01=0x018c}
0x3208…321e Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0020, t01=0x0010}
0x321e…3254 Head {h00=0x0032, h01=0x0050, text=»ACDY80 CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0020, t01=0x0026}
0x3254…326a Head {h00=0x0012, h01=0x0050, text=» IFT TRASPA=1 «, t00=0x0020, t01=0x005c}
0x326a…3296 Head {h00=0x0028, h01=0x0050, text=» LD A1,2,A8 GET BUFFER ADDRESS (BA) «, t00=0x0020, t01=0x0072}
0x3296…32c2 Head {h00=0x0028, h01=0x0050, text=» LD A2,4,A8 GET REQUESTED LENGTH(RL)«, t00=0x0020, t01=0x009e}
0x32c2…32ea Head {h00=0x0024, h01=0x0050, text=» ADR A1,A2 GET ADD END OF BUFFER«, t00=0x0020, t01=0x00ca}
0x32ea…3302 Head {h00=0x0014, h01=0x0050, text=»SKIP05 CWK A2,2 «, t00=0x0020, t01=0x00f2}
0x3302…3320 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 3 «, t00=0x0020, t01=0x010a}
0x3320…333a Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 DECR. BA«, t00=0x0020, t01=0x0128}
0x333a…3356 Head {h00=0x0018, h01=0x0050, text=» LCR A4,A1 GET CHAR «, t00=0x0020, t01=0x0142}
0x3356…3374 Head {h00=0x001a, h01=0x0050, text=» CCK A4,/2020 SPACE ? «, t00=0x0020, t01=0x015e}
0x3374…338e Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP20 NO «, t00=0x0020, t01=0x017c}
0x338e…33ae Head {h00=0x001c, h01=0x0050, text=»SKIP07 SUK A2,1 DECR RL «, t00=0x0021, t01=0x0008}
0x33ae…33ca Head {h00=0x0018, h01=0x0050, text=» RB SKIP05 GET NEXT «, t00=0x0021, t01=0x0028}
0x33ca…33e2 Head {h00=0x0014, h01=0x0050, text=»SKIP20 CWK A2,4 «, t00=0x0021, t01=0x0044}
0x33e2…3400 Head {h00=0x001a, h01=0x0050, text=» RF(NG) SKIP30 RL < 5 «, t00=0x0021, t01=0x005c}
0x3400…341e Head {h00=0x001a, h01=0x0050, text=» LC A4,-2,A1 GET CHAR «, t00=0x0021, t01=0x007a}
0x341e…3446 Head {h00=0x0024, h01=0x0050, text=» CCK A4,/1111 TABULATION CHAR ? «, t00=0x0021, t01=0x0098}
0x3446…3460 Head {h00=0x0016, h01=0x0050, text=» RF(NE) SKIP25 NO!«, t00=0x0021, t01=0x00c0}
0x3460…347a Head {h00=0x0016, h01=0x0050, text=» SUK A1,2 DECR BA «, t00=0x0021, t01=0x00da}
0x347a…3494 Head {h00=0x0016, h01=0x0050, text=» SUK A2,2 DECR RL «, t00=0x0021, t01=0x00f4}
0x3494…34b0 Head {h00=0x0018, h01=0x0050, text=» RB SKIP07 GET NEXT «, t00=0x0021, t01=0x010e}
0x34b0…34dc Head {h00=0x0028, h01=0x0050, text=»SKIP25 LCR A4,A1 GET CHARACTER AGAIN«, t00=0x0021, t01=0x012a}
0x34dc…34f0 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0021, t01=0x0156}
0x34f0…3516 Head {h00=0x0022, h01=0x0050, text=» SUK A4,/12 UNDER LINE START? «, t00=0x0021, t01=0x016a}
0x3516…353a Head {h00=0x0020, h01=0x0050, text=» RB(Z) SKIP07 YES! SKIP IT! «, t00=0x0021, t01=0x0190}
0x353a…355c Head {h00=0x001e, h01=0x0050, text=» SUK A4,/C LOW INT. START?«, t00=0x0022, t01=0x0024}
0x355c…3576 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x0046}
0x3576…3596 Head {h00=0x001c, h01=0x0050, text=» SUK A4,1 LOW INT. STOP?«, t00=0x0022, t01=0x0060}
0x3596…35b0 Head {h00=0x0016, h01=0x0050, text=» RB(Z) SKIP07 YES!«, t00=0x0022, t01=0x0080}
0x35b0…35ba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0022, t01=0x009a}
0x35ba…35e0 Head {h00=0x0022, h01=0x0050, text=»SKIP30 ST A2,4,A8 STORE NEW RL«, t00=0x0022, t01=0x00a4}
0x35e0…35ec Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0022, t01=0x00ca}
0x35ec…3604 Head {h00=0x0014, h01=0x0050, text=»ACDY90 LDK A4,0 «, t00=0x0022, t01=0x00d6}
0x3604…363e Head {h00=0x0036, h01=0x0050, text=»ADY100 CF A15,GETCHR GET CHARACTER FROM ECB-BUFFER«, t00=0x0022, t01=0x00ee}
0x363e…3660 Head {h00=0x001e, h01=0x0050, text=» LDR A1,A1 LAST CHARACTER?«, t00=0x0022, t01=0x0128}
0x3660…3678 Head {h00=0x0014, h01=0x0050, text=» ABL(NP) ADY405 «, t00=0x0022, t01=0x014a}
0x3678…3692 Head {h00=0x0016, h01=0x0050, text=» SUK A7,5 ORDER 5?«, t00=0x0022, t01=0x0162}
0x3692…36a8 Head {h00=0x0012, h01=0x0050, text=» RB(E) ACDY75 «, t00=0x0022, t01=0x017c}
0x36a8…36bc (35, 0, 398) Head {h00=0x0010, h01=0x0050, text=» ANK A2,/7F «, t00=0x0023, t01=0x0004}
0x36bc…36e0 Head {h00=0x0020, h01=0x0050, text=» LDK A1,5 SET TABLE POINTER «, t00=0x0023, t01=0x0018}
0x36e0…3706 Head {h00=0x0022, h01=0x0050, text=» CC A2,TABSPE,A1 FAST OUTPUT? «, t00=0x0023, t01=0x003c}
0x3706…371c Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY125 «, t00=0x0023, t01=0x0062}
0x371c…3732 Head {h00=0x0012, h01=0x0050, text=» SUK A1,1 NO! «, t00=0x0023, t01=0x0078}
0x3732…3758 Head {h00=0x0022, h01=0x0050, text=» LDR* A7,A6 CHANNEL PARAMETER «, t00=0x0023, t01=0x008e}
0x3758…377c Head {h00=0x0020, h01=0x0050, text=» ANK A7,/30 GRAFIC DISPLAY ?«, t00=0x0023, t01=0x00b4}
0x377c…3794 Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY110 NO«, t00=0x0023, t01=0x00d8}
0x3794…37b6 Head {h00=0x001e, h01=0x0050, text=» LDK A1,5 SET TABLE PONTER«, t00=0x0023, t01=0x00f0}
0x37b6…37e4 Head {h00=0x002a, h01=0x0050, text=»ADY110 CC A2,TABSPE,A1 CHARACTER FOUND«, t00=0x0023, t01=0x0112}
0x37e4…37fa Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY128«, t00=0x0023, t01=0x0140}
0x37fa…3820 Head {h00=0x0022, h01=0x0050, text=» CCK A2,/1E1E LOW INTENSITY ? «, t00=0x0023, t01=0x0156}
0x3820…383a Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY122 NO «, t00=0x0023, t01=0x017c}
0x383a…384e Head {h00=0x0010, h01=0x0050, text=» LDK A4,/80 «, t00=0x0024, t01=0x0008}
0x384e…387e Head {h00=0x002c, h01=0x0050, text=»ADY120 ORRS A4,A6 SET LOW INTENSITY MODE«, t00=0x0024, t01=0x001c}
0x387e…3890 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x004c}
0x3890…38a2 Head {h00=0x000e, h01=0x0050, text=» RB ACDY50«, t00=0x0024, t01=0x005e}
0x38a2…38ca Head {h00=0x0024, h01=0x0050, text=»ADY122 CCK A2,/1212 UNDERLINE ? «, t00=0x0024, t01=0x0070}
0x38ca…38e0 Head {h00=0x0012, h01=0x0050, text=» RF(NE) ADY125«, t00=0x0024, t01=0x0098}
0x38e0…3906 Head {h00=0x0022, h01=0x0050, text=» LDK A4,/40 SET UNDERLINE MODE«, t00=0x0024, t01=0x00ae}
0x3906…3918 Head {h00=0x000e, h01=0x0050, text=» RB ADY120«, t00=0x0024, t01=0x00d4}
0x3918…3942 Head {h00=0x0026, h01=0x0050, text=»ADY125 CCK A2,/1414 FAST OUTPUT ? «, t00=0x0024, t01=0x00e6}
0x3942…3954 Head {h00=0x000e, h01=0x0050, text=» LDK A4,0 «, t00=0x0024, t01=0x0110}
0x3954…396e Head {h00=0x0016, h01=0x0050, text=» RB(NE) ACDY50 NO «, t00=0x0024, t01=0x0122}
0x396e…3980 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0024, t01=0x013c}
0x3980…39ac Head {h00=0x0028, h01=0x0050, text=» CF A15,GETCHR GET OUTPUT CHARACTER «, t00=0x0024, t01=0x014e}
0x39ac…39be Head {h00=0x000e, h01=0x0050, text=» LDR A1,A2«, t00=0x0024, t01=0x017a}
0x39be…39d0 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0024, t01=0x018c}
0x39d0…39ee Head {h00=0x001a, h01=0x0050, text=» LD A4,4,A8 REQ LENGTH«, t00=0x0025, t01=0x000e}
0x39ee…3a10 Head {h00=0x001e, h01=0x0050, text=» SUR A4,A3 NUMBER OF CHARS«, t00=0x0025, t01=0x002c}
0x3a10…3a2a Head {h00=0x0016, h01=0x0050, text=» RF(Z) ADY127 NONE«, t00=0x0025, t01=0x004e}
0x3a2a…3a34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0025, t01=0x0068}
0x3a34…3a4a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0025, t01=0x0072}
0x3a4a…3a74 Head {h00=0x0026, h01=0x0050, text=» LDR* A7,A6 GET CHANNEL PARAMETER «, t00=0x0025, t01=0x0088}
0x3a74…3a88 Head {h00=0x0010, h01=0x0050, text=» ANK A7,/10 «, t00=0x0025, t01=0x00b2}
0x3a88…3abe Head {h00=0x0032, h01=0x0050, text=» RF(NZ) OTHER OTHER DISPLAY THAN 6344 OR 6386?«, t00=0x0025, t01=0x00c6}
0x3abe…3aca Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0025, t01=0x00fc}
0x3aca…3ae0 Head {h00=0x0012, h01=0x0050, text=» LDR A3,A1 NO!«, t00=0x0025, t01=0x0108}
0x3ae0…3af6 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x0025, t01=0x011e}
0x3af6…3b0a Head {h00=0x0010, h01=0x0050, text=»ADY127 EQU *«, t00=0x0025, t01=0x0134}
0x3b0a…3b28 Head {h00=0x001a, h01=0x0050, text=» LD A3,4,A8 REQ LENGTH«, t00=0x0025, t01=0x0148}
0x3b28…3b46 Head {h00=0x001a, h01=0x0050, text=» ST A3,6,A8 EFF LENGTH«, t00=0x0025, t01=0x0166}
0x3b46…3b5a Head {h00=0x0010, h01=0x0050, text=» ABL ADY405 «, t00=0x0025, t01=0x0184}
0x3b5a…3b6e Head {h00=0x0010, h01=0x0050, text=»ADY128 EQU *«, t00=0x0026, t01=0x0008}
0x3b6e…3b88 Head {h00=0x0016, h01=0x0050, text=» SUK A1,1 GET NEXT«, t00=0x0026, t01=0x001c}
0x3b88…3baa Head {h00=0x001e, h01=0x0050, text=» RB(NN) ADY110 NOT AT END «, t00=0x0026, t01=0x0036}
0x3baa…3bcc Head {h00=0x001e, h01=0x0050, text=» LDR A1,A2 MOVE CHARACTER «, t00=0x0026, t01=0x0058}
0x3bcc…3bf0 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/11 TAB CHAR? (11) «, t00=0x0026, t01=0x007a}
0x3bf0…3c06 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY140 «, t00=0x0026, t01=0x009e}
0x3c06…3c28 Head {h00=0x001e, h01=0x0050, text=» SUK A1,/F LESS THAN /20 ?«, t00=0x0026, t01=0x00b4}
0x3c28…3c4e Head {h00=0x0022, h01=0x0050, text=» RF(N) ADY130 CODE CHECK ERROR«, t00=0x0026, t01=0x00d6}
0x3c4e…3c72 Head {h00=0x0020, h01=0x0050, text=» SUK A1,/3F GREATER THAN /5F«, t00=0x0026, t01=0x00fc}
0x3c72…3c88 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ACDY70«, t00=0x0026, t01=0x0120}
0x3c88…3c9e Head {h00=0x0012, h01=0x0050, text=» IFT LOWCHA=0 «, t00=0x0026, t01=0x0136}
0x3c9e…3cd8 Head {h00=0x0036, h01=0x0050, text=» SUK A2,/20 TRANSFORM CHARACTER BETWEEN /60 TO /7F«, t00=0x0026, t01=0x014c}
0x3cd8…3d02 Head {h00=0x0026, h01=0x0050, text=» TO CHARACTER BETWEEN /40 TO /5F«, t00=0x0026, t01=0x0186}
0x3d02…3d0e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0027, t01=0x0020}
0x3d0e…3d20 Head {h00=0x000e, h01=0x0050, text=» RB ACDY70«, t00=0x0027, t01=0x002c}
0x3d20…3d2a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x003e}
0x3d2a…3d34 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0027, t01=0x0048}
0x3d34…3d4a Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0027, t01=0x0052}
0x3d4a…3d5e Head {h00=0x0010, h01=0x0050, text=»OTHER EQU * «, t00=0x0027, t01=0x0068}
0x3d5e…3d7e Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x007c}
0x3d7e…3d92 Head {h00=0x0010, h01=0x0050, text=»* A3 = INDEX«, t00=0x0027, t01=0x009c}
0x3d92…3daa Head {h00=0x0014, h01=0x0050, text=»* A1 = CHARACTER«, t00=0x0027, t01=0x00b0}
0x3daa…3dc0 Head {h00=0x0012, h01=0x0050, text=»* A4 = NUMBER «, t00=0x0027, t01=0x00c8}
0x3dc0…3de0 Head {h00=0x001c, h01=0x0050, text=»************************«, t00=0x0027, t01=0x00de}
0x3de0…3df8 Head {h00=0x0014, h01=0x0050, text=» LC A2,DWTBC,A6 «, t00=0x0027, t01=0x00fe}
0x3df8…3e1c Head {h00=0x0020, h01=0x0050, text=» AD A2,DWTAP,A6 GET POSITION«, t00=0x0027, t01=0x0116}
0x3e1c…3e30 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0027, t01=0x013a}
0x3e30…3e58 Head {h00=0x0024, h01=0x0050, text=» ADR A2,A4 ADD LENGTH OF REQUEST«, t00=0x0027, t01=0x014e}
0x3e58…3e80 Head {h00=0x0024, h01=0x0050, text=» LD A3,DWTPOS,A6 GET MAX-POS AND«, t00=0x0027, t01=0x0176}
0x3e80…3e94 Head {h00=0x0010, h01=0x0050, text=» ANK A3,/FF «, t00=0x0028, t01=0x000e}
0x3e94…3eb4 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x0022}
0x3eb4…3ece Head {h00=0x0016, h01=0x0050, text=» SUR A3,A2 COMPARE«, t00=0x0028, t01=0x0042}
0x3ece…3eee Head {h00=0x001c, h01=0x0050, text=» RF(NN) OT030 LENGTH OK «, t00=0x0028, t01=0x005c}
0x3eee…3f00 Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x0028, t01=0x007c}
0x3f00…3f20 Head {h00=0x001c, h01=0x0050, text=» ST A4,10,A8 SAVE LENGTH«, t00=0x0028, t01=0x008e}
0x3f20…3f54 Head {h00=0x0030, h01=0x0050, text=» ADK A4,1 ADJUST NUMBER OF OUTPUT CHARACTERS«, t00=0x0028, t01=0x00ae}
0x3f54…3f68 Head {h00=0x0010, h01=0x0050, text=»OT030 EQU * «, t00=0x0028, t01=0x00e2}
0x3f68…3f92 Head {h00=0x0026, h01=0x0050, text=» LDR A3,A1 SAVE CHARACTER TO SEND «, t00=0x0028, t01=0x00f6}
0x3f92…3faa Head {h00=0x0014, h01=0x0050, text=»OT010 LDR A2,A3 «, t00=0x0028, t01=0x0120}
0x3faa…3fd2 Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SENT CHAR (IN A2) «, t00=0x0028, t01=0x0138}
0x3fd2…3ff6 Head {h00=0x0020, h01=0x0050, text=» SUK A4,1 DECREMENT COUNTER «, t00=0x0028, t01=0x0160}
0x3ff6…400a Head {h00=0x0010, h01=0x0050, text=» RB(P) OT010«, t00=0x0028, t01=0x0184}
0x400a…402e Head {h00=0x0020, h01=0x0050, text=» LD A4,10,A8 GET ACT. LENGTH«, t00=0x0029, t01=0x0008}
0x402e…404a Head {h00=0x0018, h01=0x0050, text=»OT040 LDK A2,BACKSP «, t00=0x0029, t01=0x002c}
0x404a…406e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SENDBACKSPACE «, t00=0x0029, t01=0x0048}
0x406e…4090 Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 DECREMENT LENGTH«, t00=0x0029, t01=0x006c}
0x4090…40a4 Head {h00=0x0010, h01=0x0050, text=» RB(P) OT040«, t00=0x0029, t01=0x008e}
0x40a4…40b6 Head {h00=0x000e, h01=0x0050, text=» RB ADY127«, t00=0x0029, t01=0x00a2}
0x40b6…40c2 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0029, t01=0x00b4}
0x40c2…40d0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x00c0}
0x40d0…40da Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00ce}
0x40da…40f8 Head {h00=0x001a, h01=0x0050, text=»* CODE CHECK ERROR «, t00=0x0029, t01=0x00d8}
0x40f8…4102 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x00f6}
0x4102…4116 Head {h00=0x0010, h01=0x0050, text=»ADY130 EQU *«, t00=0x0029, t01=0x0100}
0x4116…412c Head {h00=0x0012, h01=0x0050, text=» LDK A1,CCERR «, t00=0x0029, t01=0x0114}
0x412c…414c Head {h00=0x001c, h01=0x0050, text=» ORS A1,8,A8 RETURN CODE«, t00=0x0029, t01=0x012a}
0x414c…415e Head {h00=0x000e, h01=0x0050, text=» RB ADY100«, t00=0x0029, t01=0x014a}
0x415e…416c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0029, t01=0x015c}
0x416c…4176 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x016a}
0x4176…418e Head {h00=0x0014, h01=0x0050, text=»* TABULATION «, t00=0x0029, t01=0x0174}
0x418e…4198 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0029, t01=0x018c}
0x4198…41ac Head {h00=0x0010, h01=0x0050, text=»ADY140 EQU *«, t00=0x002a, t01=0x0008}
0x41ac…41dc Head {h00=0x002c, h01=0x0050, text=» CF A15,GETCHR GET FIRST ASCII CHARACTER«, t00=0x002a, t01=0x001c}
0x41dc…41ee Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002a, t01=0x004c}
0x41ee…4220 Head {h00=0x002e, h01=0x0050, text=» CF A15,GETCHR GET SECOND ASCII CHARACTER «, t00=0x002a, t01=0x005e}
0x4220…4232 Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x002a, t01=0x0090}
0x4232…4244 Head {h00=0x000e, h01=0x0050, text=» ANK A4,/F«, t00=0x002a, t01=0x00a2}
0x4244…425a Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY144 «, t00=0x002a, t01=0x00b4}
0x425a…428e Head {h00=0x0030, h01=0x0050, text=»ADY143 ADK A2,/A FROM DECIMAL TO HEXADECIMAL«, t00=0x002a, t01=0x00ca}
0x428e…42a0 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x002a, t01=0x00fe}
0x42a0…42b6 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY143«, t00=0x002a, t01=0x0110}
0x42b6…42d6 Head {h00=0x001c, h01=0x0050, text=»ADY144 LC A4,DWTAP+1,A6 «, t00=0x002a, t01=0x0126}
0x42d6…4308 Head {h00=0x002e, h01=0x0050, text=» SUR A2,A4 SUBTRACT HEAD POSITION POINTER «, t00=0x002a, t01=0x0146}
0x4308…4320 Head {h00=0x0014, h01=0x0050, text=» LC A4,DWTBC,A6 «, t00=0x002a, t01=0x0178}
0x4320…4350 Head {h00=0x002c, h01=0x0050, text=» SUR A2,A4 AND REQUESTS POSITION COUNTER«, t00=0x002a, t01=0x0190}
0x4350…437a Head {h00=0x0026, h01=0x0050, text=» TO GET NUMBER OF SPACES TO SEND«, t00=0x002b, t01=0x0030}
0x437a…4390 Head {h00=0x0012, h01=0x0050, text=» RB(NP) ADY100«, t00=0x002b, t01=0x005a}
0x4390…43a2 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x002b, t01=0x0070}
0x43a2…43cc Head {h00=0x0026, h01=0x0050, text=»ADY145 LDK A2,CURRIG CURSOR RIGHT «, t00=0x002b, t01=0x0082}
0x43cc…43e8 Head {h00=0x0018, h01=0x0050, text=»ADY146 CF A5,OUTPUT «, t00=0x002b, t01=0x00ac}
0x43e8…4418 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x002b, t01=0x00c8}
0x4418…4432 Head {h00=0x0016, h01=0x0050, text=» SUK A4,1 READY ? «, t00=0x002b, t01=0x00f8}
0x4432…444c Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY145 NO «, t00=0x002b, t01=0x0112}
0x444c…4460 Head {h00=0x0010, h01=0x0050, text=» ABL ADY100 «, t00=0x002b, t01=0x012c}
0x4460…446e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002b, t01=0x0140}
0x446e…4478 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x014e}
0x4478…4496 Head {h00=0x001a, h01=0x0050, text=»* ERASE ORDER /31 «, t00=0x002b, t01=0x0158}
0x4496…44a0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002b, t01=0x0176}
0x44a0…44d6 Head {h00=0x0032, h01=0x0050, text=»ADY160 LD A4,10,A8 GET NUMBER OF CHAR TO ERASE«, t00=0x002b, t01=0x0180}
0x44d6…44ec Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x0026}
0x44ec…4512 Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002c, t01=0x003c}
0x4512…4536 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002c, t01=0x0062}
0x4536…4554 Head {h00=0x001a, h01=0x0050, text=» RF(NE) ADY166 YES =2 «, t00=0x002c, t01=0x0086}
0x4554…4560 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002c, t01=0x00a4}
0x4560…458a Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002c, t01=0x00b0}
0x458a…459e Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x002c, t01=0x00da}
0x459e…45c0 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x002c, t01=0x00ee}
0x45c0…45da Head {h00=0x0016, h01=0x0050, text=»ADY165 LDK A2,ETB «, t00=0x002c, t01=0x0110}
0x45da…45f0 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x002c, t01=0x012a}
0x45f0…4612 Head {h00=0x001e, h01=0x0050, text=» ABL ADY410 END OF REQUEST«, t00=0x002c, t01=0x0140}
0x4612…4628 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002c, t01=0x0162}
0x4628…4644 Head {h00=0x0018, h01=0x0050, text=»ADY166 EQU * YES =2 «, t00=0x002c, t01=0x0178}
0x4644…466e (45, 0, 400) Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x0004}
0x466e…4678 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002d, t01=0x002e}
0x4678…46a0 Head {h00=0x0024, h01=0x0050, text=»ADY170 SUK A4,1 DECR NO OF CHAR «, t00=0x002d, t01=0x0038}
0x46a0…46c2 Head {h00=0x001e, h01=0x0050, text=» RF(N) ADY180 ERASE READY «, t00=0x002d, t01=0x0060}
0x46c2…46dc Head {h00=0x0016, h01=0x0050, text=» LDK A2,/20 SPACE «, t00=0x002d, t01=0x0082}
0x46dc…46fa Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002d, t01=0x009c}
0x46fa…470c Head {h00=0x000e, h01=0x0050, text=» RB ADY170«, t00=0x002d, t01=0x00ba}
0x470c…4726 Head {h00=0x0016, h01=0x0050, text=»ADY180 LD A4,10,A8«, t00=0x002d, t01=0x00cc}
0x4726…4750 Head {h00=0x0026, h01=0x0050, text=» CF A5,ERA GET LENGTH TO ERASE =2 «, t00=0x002d, t01=0x00e6}
0x4750…4770 Head {h00=0x001c, h01=0x0050, text=» LDR A3,A3 OVER EDGE =4 «, t00=0x002d, t01=0x0110}
0x4770…478c Head {h00=0x0018, h01=0x0050, text=» RF(NN) ADY186 NO =4«, t00=0x002d, t01=0x0130}
0x478c…47ae Head {h00=0x001e, h01=0x0050, text=» SUK A4,1 ADJUST LENGTH =4«, t00=0x002d, t01=0x014c}
0x47ae…47c2 Head {h00=0x0010, h01=0x0050, text=»ADY186 EQU *«, t00=0x002d, t01=0x016e}
0x47c2…47e0 Head {h00=0x001a, h01=0x0050, text=» SUK A4,1 DECREMENT =2«, t00=0x002d, t01=0x0182}
0x47e0…4810 Head {h00=0x002c, h01=0x0050, text=» RB(N) ADY165 CURSOR IN ORIGIN POSITION «, t00=0x002e, t01=0x0010}
0x4810…4832 Head {h00=0x001e, h01=0x0050, text=» LDK A2,BACKSP CURSOR LEFT«, t00=0x002e, t01=0x0040}
0x4832…4850 Head {h00=0x001a, h01=0x0050, text=» CF A5,OUTPUT SEND IT «, t00=0x002e, t01=0x0062}
0x4850…4868 Head {h00=0x0014, h01=0x0050, text=» RB ADY186 AGAIN«, t00=0x002e, t01=0x0080}
0x4868…4874 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002e, t01=0x0098}
0x4874…4882 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x002e, t01=0x00a4}
0x4882…488c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00b2}
0x488c…48ba Head {h00=0x002a, h01=0x0050, text=»* ORDER /B CURSOR POSITIONING PART «, t00=0x002e, t01=0x00bc}
0x48ba…48c4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x00ea}
0x48c4…48d8 Head {h00=0x0010, h01=0x0050, text=»ADY200 EQU *«, t00=0x002e, t01=0x00f4}
0x48d8…48e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x002e, t01=0x0108}
0x48e2…48f8 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002e, t01=0x0112}
0x48f8…491e Head {h00=0x0022, h01=0x0050, text=» LDR* A1,A6 CHANNEL PARAMETER «, t00=0x002e, t01=0x0128}
0x491e…4942 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY? «, t00=0x002e, t01=0x014e}
0x4942…495c Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY205 YES«, t00=0x002e, t01=0x0172}
0x495c…4992 Head {h00=0x0032, h01=0x0050, text=»* IF VIDEO (6344) SET CURSOR ADDRESS DIRECT«, t00=0x002e, t01=0x018c}
0x4992…499e Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x002f, t01=0x0032}
0x499e…49cc Head {h00=0x002a, h01=0x0050, text=» LD A4,10,A8 GET REQUESTED CURSOR POS «, t00=0x002f, t01=0x003e}
0x49cc…49fe Head {h00=0x002e, h01=0x0050, text=» ST A4,DWTAP,A6 UPDATE LINE & POS COUNTER «, t00=0x002f, t01=0x006c}
0x49fe…4a1e Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x002f, t01=0x009e}
0x4a1e…4a30 Head {h00=0x000e, h01=0x0050, text=» RF ADY380«, t00=0x002f, t01=0x00be}
0x4a30…4a46 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x002f, t01=0x00d0}
0x4a46…4a5c Head {h00=0x0012, h01=0x0050, text=»* GET LINE «, t00=0x002f, t01=0x00e6}
0x4a5c…4a8a Head {h00=0x002a, h01=0x0050, text=»ADY205 LC A4,10,A8 GET REQUESTED LINE «, t00=0x002f, t01=0x00fc}
0x4a8a…4ab2 Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTLIN,A6 OUTSIDE SCREEN?«, t00=0x002f, t01=0x012a}
0x4ab2…4acc Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY207 NO!«, t00=0x002f, t01=0x0152}
0x4acc…4b04 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTLIN,A6 YES! SET CURSOR AT END OF LINE «, t00=0x002f, t01=0x016c}
0x4b04…4b18 Head {h00=0x0010, h01=0x0050, text=»ADY207 EQU *«, t00=0x0030, t01=0x0014}
0x4b18…4b40 Head {h00=0x0024, h01=0x0050, text=» LC A3,DWTAP,A6 GET ACTUAL LINE «, t00=0x0030, t01=0x0028}
0x4b40…4b58 Head {h00=0x0014, h01=0x0050, text=»ADY210 CWR A4,A3«, t00=0x0030, t01=0x0050}
0x4b58…4b8a Head {h00=0x002e, h01=0x0050, text=» RF(N) ADY250 REQUESTED LINE ABOVE ACTUAL «, t00=0x0030, t01=0x0068}
0x4b8a…4baa Head {h00=0x001c, h01=0x0050, text=» RF(E) ADY300 SAME LINE «, t00=0x0030, t01=0x009a}
0x4baa…4bc6 Head {h00=0x0018, h01=0x0050, text=» LDK A2,LF LINE FEED«, t00=0x0030, t01=0x00ba}
0x4bc6…4bf4 Head {h00=0x002a, h01=0x0050, text=» ADK A3,1 INCREMENT ACTUAL LINE NUMBER«, t00=0x0030, t01=0x00d6}
0x4bf4…4c14 Head {h00=0x001c, h01=0x0050, text=»ADY230 CF A5,OUTPUT SEND«, t00=0x0030, t01=0x0104}
0x4c14…4c36 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A4 REQUESTED LINE «, t00=0x0030, t01=0x0124}
0x4c36…4c5c Head {h00=0x0022, h01=0x0050, text=» RB(NZ) ADY210 NOT EQUAL ZERO «, t00=0x0030, t01=0x0146}
0x4c5c…4c6e Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0030, t01=0x016c}
0x4c6e…4c80 Head {h00=0x000e, h01=0x0050, text=» RF ADY300«, t00=0x0030, t01=0x017e}
0x4c80…4ca0 Head {h00=0x001c, h01=0x0050, text=»ADY250 LDK A2,HOME HOME «, t00=0x0030, t01=0x0190}
0x4ca0…4cca Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 RESET ACTUAL LINE NUMBER«, t00=0x0031, t01=0x0020}
0x4cca…4cf0 Head {h00=0x0022, h01=0x0050, text=» ST A3,DWTAP,A6 RESET POSITION«, t00=0x0031, t01=0x004a}
0x4cf0…4d02 Head {h00=0x000e, h01=0x0050, text=» RB ADY230«, t00=0x0031, t01=0x0070}
0x4d02…4d0c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x0082}
0x4d0c…4d26 Head {h00=0x0016, h01=0x0050, text=»* GET POSITION «, t00=0x0031, t01=0x008c}
0x4d26…4d30 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0031, t01=0x00a6}
0x4d30…4d66 Head {h00=0x0032, h01=0x0050, text=»ADY300 SC A4,DWTAP,A6 UPDATE HEAD LINE COUNTER«, t00=0x0031, t01=0x00b0}
0x4d66…4d92 Head {h00=0x0028, h01=0x0050, text=» LC A4,11,A8 GET REQUESTED POSITION «, t00=0x0031, t01=0x00e6}
0x4d92…4dba Head {h00=0x0024, h01=0x0050, text=» CC A4,DWTPOS,A6 OUTSIDE SCREEN?«, t00=0x0031, t01=0x0112}
0x4dba…4dd4 Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY303 NO!«, t00=0x0031, t01=0x013a}
0x4dd4…4dfa Head {h00=0x0022, h01=0x0050, text=» LC A4,DWTPOS,A6 SET LAST LINE«, t00=0x0031, t01=0x0154}
0x4dfa…4e0e Head {h00=0x0010, h01=0x0050, text=»ADY303 EQU *«, t00=0x0031, t01=0x017a}
0x4e0e…4e30 Head {h00=0x001e, h01=0x0050, text=» CWK A4,1 FIRST POSITION ?«, t00=0x0031, t01=0x018e}
0x4e30…4e4a Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x0020}
0x4e4a…4e6a Head {h00=0x001c, h01=0x0050, text=» CWR A4,A3 FIRST LINE ? «, t00=0x0032, t01=0x003a}
0x4e6a…4e84 Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY305 NO «, t00=0x0032, t01=0x005a}
0x4e84…4ea8 Head {h00=0x0020, h01=0x0050, text=» LDK A2,HOME CURSOR GO HOME «, t00=0x0032, t01=0x0074}
0x4ea8…4eba Head {h00=0x000e, h01=0x0050, text=» RF ADY330«, t00=0x0032, t01=0x0098}
0x4eba…4ee8 Head {h00=0x002a, h01=0x0050, text=»ADY305 RF(NL) ADY307 REQ. POS NOT ZERO«, t00=0x0032, t01=0x00aa}
0x4ee8…4efa Head {h00=0x000e, h01=0x0050, text=» LDK A4,1 «, t00=0x0032, t01=0x00d8}
0x4efa…4f2e Head {h00=0x0030, h01=0x0050, text=»ADY307 LC A3,DWTAP+1,A6 GET ACTUAL POSITION «, t00=0x0032, t01=0x00ea}
0x4f2e…4f50 Head {h00=0x001e, h01=0x0050, text=» CC A3,DWTPOS,A6 MAX-POS? «, t00=0x0032, t01=0x011e}
0x4f50…4f6a Head {h00=0x0016, h01=0x0050, text=» RF(NG) ADY310 NO!«, t00=0x0032, t01=0x0140}
0x4f6a…4f7c Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x0032, t01=0x015a}
0x4f7c…4faa Head {h00=0x002a, h01=0x0050, text=»ADY310 CWR A4,A3 FORWARDS OR BACKWARDS«, t00=0x0032, t01=0x016c}
0x4faa…4fce Head {h00=0x0020, h01=0x0050, text=» RF(E) ADY370 POSITION FOUND«, t00=0x0033, t01=0x000a}
0x4fce…4fe8 Head {h00=0x0016, h01=0x0050, text=» RF(N) ADY340 BACK«, t00=0x0033, t01=0x002e}
0x4fe8…500c Head {h00=0x0020, h01=0x0050, text=» LDK A2,CURRIG CURSOR RIGHT «, t00=0x0033, t01=0x0048}
0x500c…5036 Head {h00=0x0026, h01=0x0050, text=» ADK A3,1 UPDATE POSITION COUNTER «, t00=0x0033, t01=0x006c}
0x5036…5056 Head {h00=0x001c, h01=0x0050, text=»ADY330 CF A5,OUTPUT SEND«, t00=0x0033, t01=0x0096}
0x5056…5068 Head {h00=0x000e, h01=0x0050, text=» RB ADY310«, t00=0x0033, t01=0x00b6}
0x5068…509a Head {h00=0x002e, h01=0x0050, text=»ADY340 SUR A3,A4 ACTUAL POS. - WANTED POS.«, t00=0x0033, t01=0x00c8}
0x509a…50ca Head {h00=0x002c, h01=0x0050, text=» CWR A3,A4 COMPARE BACKSTEPS WITH CR-WAY«, t00=0x0033, t01=0x00fa}
0x50ca…50ee Head {h00=0x0020, h01=0x0050, text=» RF(L) ADY345 BACKSPACE WAY «, t00=0x0033, t01=0x012a}
0x50ee…5110 Head {h00=0x001e, h01=0x0050, text=» LDK A2,CR CARRIAGE RETURN«, t00=0x0033, t01=0x014e}
0x5110…513a Head {h00=0x0026, h01=0x0050, text=» LDK A3,1 INDICATE FIRST POSITION «, t00=0x0033, t01=0x0170}
0x513a…514c Head {h00=0x000e, h01=0x0050, text=» RB ADY330«, t00=0x0034, t01=0x000a}
0x514c…5172 Head {h00=0x0022, h01=0x0050, text=»ADY345 LDK A2,BACKSP BACKSPACE«, t00=0x0034, t01=0x001c}
0x5172…518c Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0034, t01=0x0042}
0x518c…51ae Head {h00=0x001e, h01=0x0050, text=» SUK A3,1 LAST BACKSPACE ?«, t00=0x0034, t01=0x005c}
0x51ae…51c4 Head {h00=0x0012, h01=0x0050, text=» RB(NE) ADY345«, t00=0x0034, t01=0x007e}
0x51c4…5200 Head {h00=0x0038, h01=0x0050, text=»ADY370 SC A4,DWTAP+1,A6 UPDATE HEAD POSITION POINTER«, t00=0x0034, t01=0x0094}
0x5200…520c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x00d0}
0x520c…5236 Head {h00=0x0026, h01=0x0050, text=»ADY380 LDK A3,2 START BUFFER INDEX«, t00=0x0034, t01=0x00dc}
0x5236…524a Head {h00=0x0010, h01=0x0050, text=» ABL ACDY90 «, t00=0x0034, t01=0x0106}
0x524a…5260 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0034, t01=0x011a}
0x5260…526a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0130}
0x526a…5294 Head {h00=0x0026, h01=0x0050, text=»ADY400 LDK A2,/22 START CHARACTER «, t00=0x0034, t01=0x013a}
0x5294…52aa Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0034, t01=0x0164}
0x52aa…52b4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x017a}
0x52b4…52c0 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0034, t01=0x0184}
0x52c0…52ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0034, t01=0x0190}
0x52ca…52d8 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0035, t01=0x000a}
0x52d8…52e2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0018}
0x52e2…52ec Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x0022}
0x52ec…5328 Head {h00=0x0038, h01=0x0050, text=»* SEND LAST DUMMY, SET CURSOR POSITION IN CONTROL«, t00=0x0035, t01=0x002c}
0x5328…5360 Head {h00=0x0034, h01=0x0050, text=»* WORD, LOAD A1 WITH RETURN CODE AND END I/0.«, t00=0x0035, t01=0x0068}
0x5360…536a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0035, t01=0x00a0}
0x536a…537e Head {h00=0x0010, h01=0x0050, text=»ADY405 EQU *«, t00=0x0035, t01=0x00aa}
0x537e…53a8 Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0035, t01=0x00be}
0x53a8…53c2 Head {h00=0x0016, h01=0x0050, text=» ANK A1,/30 6344 ?«, t00=0x0035, t01=0x00e8}
0x53c2…53dc Head {h00=0x0016, h01=0x0050, text=» RF(NE) ADY407 NO «, t00=0x0035, t01=0x0102}
0x53dc…53f0 Head {h00=0x0010, h01=0x0050, text=» LDR* A1,A6 «, t00=0x0035, t01=0x011c}
0x53f0…5402 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A1«, t00=0x0035, t01=0x0130}
0x5402…5426 Head {h00=0x0020, h01=0x0050, text=» ANK A1,/40 UNDERLINE MODE ?«, t00=0x0035, t01=0x0142}
0x5426…543e Head {h00=0x0014, h01=0x0050, text=» RF(E) ADY406 NO«, t00=0x0035, t01=0x0166}
0x543e…5464 Head {h00=0x0022, h01=0x0050, text=» LDK A2,ULSTOP UNDERLINE STOP «, t00=0x0035, t01=0x017e}
0x5464…547a Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x0014}
0x547a…54a8 Head {h00=0x002a, h01=0x0050, text=»ADY406 ANK A4,/80 LOW INTENSITY MODE ?«, t00=0x0036, t01=0x002a}
0x54a8…54be Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY407 «, t00=0x0036, t01=0x0058}
0x54be…54e8 Head {h00=0x0026, h01=0x0050, text=» LDK A2,LISTOP LOW INTENSITY STOP «, t00=0x0036, t01=0x006e}
0x54e8…54fe Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0036, t01=0x0098}
0x54fe…5512 Head {h00=0x0010, h01=0x0050, text=»ADY407 EQU *«, t00=0x0036, t01=0x00ae}
0x5512…553a Head {h00=0x0024, h01=0x0050, text=» LDK A2,ETB END OF TEXT MESSAGE «, t00=0x0036, t01=0x00c2}
0x553a…555e Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT SEND CHARACTER«, t00=0x0036, t01=0x00ea}
0x555e…5592 Head {h00=0x0030, h01=0x0050, text=» CF A15,UPDAPP UPDATE HEAD POSITION COUNTER «, t00=0x0036, t01=0x010e}
0x5592…55b6 Head {h00=0x0020, h01=0x0050, text=»ADY410 LDK A2,ETX LAST DUMMY«, t00=0x0036, t01=0x0142}
0x55b6…55d6 Head {h00=0x001c, h01=0x0050, text=» CF A5,OUTPUT SEND DUMMY«, t00=0x0036, t01=0x0166}
0x55d6…55ee Head {h00=0x0014, h01=0x0050, text=» SUK A7,/31 =7 «, t00=0x0036, t01=0x0186}
0x55ee…5612 Head {h00=0x0020, h01=0x0050, text=» RF(Z) ADY415 ORDER ERASE =7«, t00=0x0037, t01=0x000e}
0x5612…5640 Head {h00=0x002a, h01=0x0050, text=» LD A4,DWTAP,A6 GET CURSOR POSITION =4«, t00=0x0037, t01=0x0032}
0x5640…5670 Head {h00=0x002c, h01=0x0050, text=» ST A4,10,A8 SAVE CURSOR POS. IN ECB =4 «, t00=0x0037, t01=0x0060}
0x5670…5684 Head {h00=0x0010, h01=0x0050, text=»ADY415 EQU *«, t00=0x0037, t01=0x0090}
0x5684…569e Head {h00=0x0016, h01=0x0050, text=» ADK A7,/31-5 =7 «, t00=0x0037, t01=0x00a4}
0x569e…56ca Head {h00=0x0028, h01=0x0050, text=» RF(NE) ADY420 NOT ORDER BASIC WRITE«, t00=0x0037, t01=0x00be}
0x56ca…56ee Head {h00=0x0020, h01=0x0050, text=» LDKL A4,/101 HOME POSITION «, t00=0x0037, t01=0x00ea}
0x56ee…5706 Head {h00=0x0014, h01=0x0050, text=» ST A4,DWTAP,A6 «, t00=0x0037, t01=0x010e}
0x5706…571a Head {h00=0x0010, h01=0x0050, text=»ADY420 EQU *«, t00=0x0037, t01=0x0126}
0x571a…573e Head {h00=0x0020, h01=0x0050, text=»ENDIO CF A15,TENDIO END I/O «, t00=0x0037, t01=0x013a}
0x573e…5766 Head {h00=0x0024, h01=0x0050, text=»EXIT ABL TDISP GO TO DISPATCHER «, t00=0x0037, t01=0x015e}
0x5766…5770 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0037, t01=0x0186}
0x5770…5786 Head {h00=0x0012, h01=0x0050, text=» IFT GRAFIC=1 «, t00=0x0037, t01=0x0190}
0x5786…5790 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0016}
0x5790…579e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0038, t01=0x0020}
0x579e…57a8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x002e}
0x57a8…57c2 Head {h00=0x0016, h01=0x0050, text=»* GRAPHIC PART «, t00=0x0038, t01=0x0038}
0x57c2…57cc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0038, t01=0x0052}
0x57cc…57e0 Head {h00=0x0010, h01=0x0050, text=»ADY500 EQU *«, t00=0x0038, t01=0x005c}
0x57e0…57f4 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/11 «, t00=0x0038, t01=0x0070}
0x57f4…5820 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SWITCH TO GRAFIC MODE «, t00=0x0038, t01=0x0084}
0x5820…584a Head {h00=0x0026, h01=0x0050, text=»ADY510 CF A15,GETCHR GET CHARACTER«, t00=0x0038, t01=0x00b0}
0x584a…586a Head {h00=0x001c, h01=0x0050, text=» LDR A1,A1 BUFFER EMPTY «, t00=0x0038, t01=0x00da}
0x586a…5880 Head {h00=0x0012, h01=0x0050, text=» RB(E) ADY400 «, t00=0x0038, t01=0x00fa}
0x5880…5892 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0038, t01=0x0110}
0x5892…58bc Head {h00=0x0026, h01=0x0050, text=» CF A15,GETCHR GET NEXT CHARACTER «, t00=0x0038, t01=0x0122}
0x58bc…58ce Head {h00=0x000e, h01=0x0050, text=» LDR A1,A4«, t00=0x0038, t01=0x014c}
0x58ce…58f2 Head {h00=0x0020, h01=0x0050, text=» ANK A4,/80 ADDRESS OR DATA «, t00=0x0038, t01=0x015e}
0x58f2…5914 Head {h00=0x001e, h01=0x0050, text=» RF(E) ADY530 DATA MESSAGE«, t00=0x0038, t01=0x0182}
0x5914…591e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0014}
0x591e…593a Head {h00=0x0018, h01=0x0050, text=»* ADDRESS MESSAGE«, t00=0x0039, t01=0x001e}
0x593a…5944 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x003a}
0x5944…5968 Head {h00=0x0020, h01=0x0050, text=»* SET FIRST OUT PUT IN A2«, t00=0x0039, t01=0x0044}
0x5968…5986 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x0039, t01=0x0068}
0x5986…5990 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0039, t01=0x0086}
0x5990…59a2 Head {h00=0x000e, h01=0x0050, text=» SLL A1,4 «, t00=0x0039, t01=0x0090}
0x59a2…59b4 Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x0039, t01=0x00a2}
0x59b4…59c6 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x0039, t01=0x00b4}
0x59c6…59d8 Head {h00=0x000e, h01=0x0050, text=» ORR A4,A1«, t00=0x0039, t01=0x00c6}
0x59d8…59ea Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x0039, t01=0x00d8}
0x59ea…59fe Head {h00=0x0010, h01=0x0050, text=» ANK A4,/7F «, t00=0x0039, t01=0x00ea}
0x59fe…5a12 Head {h00=0x0010, h01=0x0050, text=» ORK A2,/20 «, t00=0x0039, t01=0x00fe}
0x5a12…5a42 Head {h00=0x002c, h01=0x0050, text=»ADY515 CF A5,OUTPUT SEND FIRST CHARACTER«, t00=0x0039, t01=0x0112}
0x5a42…5a6a Head {h00=0x0024, h01=0x0050, text=» LDR A2,A4 GET SECOND CHARACTER «, t00=0x0039, t01=0x0142}
0x5a6a…5a96 Head {h00=0x0028, h01=0x0050, text=» CF A5,OUTPUT SEND SECOND CHARACTER «, t00=0x0039, t01=0x016a}
0x5a96…5aa8 Head {h00=0x000e, h01=0x0050, text=» RB ADY510«, t00=0x003a, t01=0x0008}
0x5aa8…5ab6 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003a, t01=0x001a}
0x5ab6…5ac0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x0028}
0x5ac0…5ada Head {h00=0x0016, h01=0x0050, text=»* DATA MESSAGE «, t00=0x003a, t01=0x0032}
0x5ada…5ae4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x004c}
0x5ae4…5b0a Head {h00=0x0022, h01=0x0050, text=»* FIRST OUTPUT IS SET IN A2«, t00=0x003a, t01=0x0056}
0x5b0a…5b28 Head {h00=0x001a, h01=0x0050, text=»* AND SECOND IN A4 «, t00=0x003a, t01=0x007c}
0x5b28…5b32 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003a, t01=0x009a}
0x5b32…5b4a Head {h00=0x0014, h01=0x0050, text=»ADY530 SLL A1,13«, t00=0x003a, t01=0x00a4}
0x5b4a…5b5c Head {h00=0x000e, h01=0x0050, text=» LDR A4,A2«, t00=0x003a, t01=0x00bc}
0x5b5c…5b6e Head {h00=0x000e, h01=0x0050, text=» SLL A2,5 «, t00=0x003a, t01=0x00ce}
0x5b6e…5b80 Head {h00=0x000e, h01=0x0050, text=» ORR A1,A2«, t00=0x003a, t01=0x00e0}
0x5b80…5b92 Head {h00=0x000e, h01=0x0050, text=» LDK A7,10«, t00=0x003a, t01=0x00f2}
0x5b92…5ba4 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x003a, t01=0x0104}
0x5ba4…5bbc Head {h00=0x0014, h01=0x0050, text=»ADY540 SLL A1,1 «, t00=0x003a, t01=0x0116}
0x5bbc…5bd2 Head {h00=0x0012, h01=0x0050, text=» RF(NN) ADY550«, t00=0x003a, t01=0x012e}
0x5bd2…5be8 Head {h00=0x0012, h01=0x0050, text=» ORKL A2,/200 «, t00=0x003a, t01=0x0144}
0x5be8…5c00 Head {h00=0x0014, h01=0x0050, text=»ADY550 SUK A7,1 «, t00=0x003a, t01=0x015a}
0x5c00…5c16 Head {h00=0x0012, h01=0x0050, text=» RF(E) ADY560 «, t00=0x003a, t01=0x0172}
0x5c16…5c28 Head {h00=0x000e, h01=0x0050, text=» SRL A2,1 «, t00=0x003a, t01=0x0188}
0x5c28…5c3a Head {h00=0x000e, h01=0x0050, text=» RB ADY540«, t00=0x003b, t01=0x000a}
0x5c3a…5c52 Head {h00=0x0014, h01=0x0050, text=»ADY560 LDR A4,A2«, t00=0x003b, t01=0x001c}
0x5c52…5c64 Head {h00=0x000e, h01=0x0050, text=» SRL A4,4 «, t00=0x003b, t01=0x0034}
0x5c64…5c78 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/3F «, t00=0x003b, t01=0x0046}
0x5c78…5c8a Head {h00=0x000e, h01=0x0050, text=» ANK A2,/F«, t00=0x003b, t01=0x005a}
0x5c8a…5c9e Head {h00=0x0010, h01=0x0050, text=» ORK A2,/60 «, t00=0x003b, t01=0x006c}
0x5c9e…5cb0 Head {h00=0x000e, h01=0x0050, text=» RB ADY515«, t00=0x003b, t01=0x0080}
0x5cb0…5cba Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x0092}
0x5cba…5cc6 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003b, t01=0x009c}
0x5cc6…5cd0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00a8}
0x5cd0…5cde Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003b, t01=0x00b2}
0x5cde…5ce8 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003b, t01=0x00c0}
0x5ce8…5d18 Head {h00=0x002c, h01=0x0050, text=»* UPDAPP = SUBROUTINE TO UPDATE HEAD «, t00=0x003b, t01=0x00ca}
0x5d18…5d48 Head {h00=0x002c, h01=0x0050, text=»* POSITION POINTER WHEN END «, t00=0x003b, t01=0x00fa}
0x5d48…5d74 Head {h00=0x0028, h01=0x0050, text=»* OF REQUEST IS REACHED «, t00=0x003b, t01=0x012a}
0x5d74…5d88 Head {h00=0x0010, h01=0x0050, text=»UPDAPP EQU *«, t00=0x003b, t01=0x0156}
0x5d88…5db4 Head {h00=0x0028, h01=0x0050, text=» LC A3,DWTBC,A6 GET POSITION COUNTER«, t00=0x003b, t01=0x016a}
0x5db4…5dea Head {h00=0x0032, h01=0x0050, text=» ADS A3,DWTAP,A6 UPDATE HEAD POSITION POINTER «, t00=0x003c, t01=0x0008}
0x5dea…5dfc Head {h00=0x000e, h01=0x0050, text=» LDK A3,0 «, t00=0x003c, t01=0x003e}
0x5dfc…5e2c Head {h00=0x002c, h01=0x0050, text=» SC A3,DWTBC,A6 RESET POSITION COUNTER «, t00=0x003c, t01=0x0050}
0x5e2c…5e3c Head {h00=0x000c, h01=0x0050, text=» RTN A15«, t00=0x003c, t01=0x0080}
0x5e3c…5e46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x0090}
0x5e46…5e80 Head {h00=0x0036, h01=0x0050, text=»* POSUPD = SUBROUTINE TO UPDATE ACTUAL POSITION«, t00=0x003c, t01=0x009a}
0x5e80…5eb4 Head {h00=0x0030, h01=0x0050, text=»* POINTER WHEN REQUEST RUNNING. «, t00=0x003c, t01=0x00d4}
0x5eb4…5ef6 Head {h00=0x003e, h01=0x0050, text=»* A CHECK THAT POINTER NOT EXCEEDS 80 IS DONE «, t00=0x003c, t01=0x0108}
0x5ef6…5f00 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003c, t01=0x014a}
0x5f00…5f14 Head {h00=0x0010, h01=0x0050, text=»POSUPD EQU *«, t00=0x003c, t01=0x0154}
0x5f14…5f40 Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION POINTER«, t00=0x003c, t01=0x0168}
0x5f40…5f54 (61, 0, 400) Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x0004}
0x5f54…5f8a Head {h00=0x0032, h01=0x0050, text=» AD A2,DWTAP,A6 INCLUDE HEAD POSITION POINTER «, t00=0x003d, t01=0x0018}
0x5f8a…5f9e Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x003d, t01=0x004e}
0x5f9e…5fc4 Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 END OF ROW ? «, t00=0x003d, t01=0x0062}
0x5fc4…5fda Head {h00=0x0012, h01=0x0050, text=» RF(P) POSU10 «, t00=0x003d, t01=0x0088}
0x5fda…600a Head {h00=0x002c, h01=0x0050, text=» IM DWTST,A6 INCREMENT POSITION COUNTER «, t00=0x003d, t01=0x009e}
0x600a…6020 Head {h00=0x0012, h01=0x0050, text=»POSU10 RTN A15«, t00=0x003d, t01=0x00ce}
0x6020…602e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003d, t01=0x00e4}
0x602e…6038 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x00f2}
0x6038…604c Head {h00=0x0010, h01=0x0050, text=»* I H D Y«, t00=0x003d, t01=0x00fc}
0x604c…6056 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0110}
0x6056…606c Head {h00=0x0012, h01=0x0050, text=»* INTERRUPT«, t00=0x003d, t01=0x011a}
0x606c…6076 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003d, t01=0x0130}
0x6076…6088 Head {h00=0x000e, h01=0x0050, text=»IHDY EQU *«, t00=0x003d, t01=0x013a}
0x6088…60a6 Head {h00=0x001a, h01=0x0050, text=» LD A4,DWTST,A6 BUSY? «, t00=0x003d, t01=0x014c}
0x60a6…60bc Head {h00=0x0012, h01=0x0050, text=» RB(N) EXIT NO«, t00=0x003d, t01=0x016a}
0x60bc…60da Head {h00=0x001a, h01=0x0050, text=» SLL A4,2 ECHO MODE ? «, t00=0x003d, t01=0x0180}
0x60da…60f0 Head {h00=0x0012, h01=0x0050, text=» RF(N) IHDY10 «, t00=0x003e, t01=0x000e}
0x60f0…6122 Head {h00=0x002e, h01=0x0050, text=» LDR A1,A1 RETURN CODE FROM CHANNEL UNIT ?«, t00=0x003e, t01=0x0024}
0x6122…613c Head {h00=0x0016, h01=0x0050, text=» RB(NE) ADY420 YES«, t00=0x003e, t01=0x0056}
0x613c…6174 Head {h00=0x0034, h01=0x0050, text=»IHDY10 ABL LDREG RELOAD A3-A5 AND RETURN VIA A5 «, t00=0x003e, t01=0x0070}
0x6174…6182 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x003e, t01=0x00a8}
0x6182…618c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00b6}
0x618c…61a0 Head {h00=0x0010, h01=0x0050, text=»* R C D Y«, t00=0x003e, t01=0x00c0}
0x61a0…61aa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x00d4}
0x61aa…61d6 Head {h00=0x0028, h01=0x0050, text=»* RCDY = RECOVERY ROUTINE DISPLAY«, t00=0x003e, t01=0x00de}
0x61d6…61e0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x010a}
0x61e0…61ea Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x0114}
0x61ea…6216 Head {h00=0x0028, h01=0x0050, text=»* RECOVERY IS CARRIED OUT ONLY IF«, t00=0x003e, t01=0x011e}
0x6216…6236 Head {h00=0x001c, h01=0x0050, text=»* ORDER 6 IS RUNNING «, t00=0x003e, t01=0x014a}
0x6236…6240 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x016a}
0x6240…6256 Head {h00=0x0012, h01=0x0050, text=»* AT ENTRY:«, t00=0x003e, t01=0x0174}
0x6256…6260 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003e, t01=0x018a}
0x6260…627e (63, 0, 400) Head {h00=0x001a, h01=0x0050, text=»* A6 = DWT-ADDRESS «, t00=0x003f, t01=0x0004}
0x627e…6296 Head {h00=0x0014, h01=0x0050, text=»* A7 = ORDER «, t00=0x003f, t01=0x0022}
0x6296…62b4 Head {h00=0x001a, h01=0x0050, text=»* A8 = ECB-ADDRESS «, t00=0x003f, t01=0x003a}
0x62b4…62c6 Head {h00=0x000e, h01=0x0050, text=»RCDY EQU *«, t00=0x003f, t01=0x0058}
0x62c6…62dc Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=1 «, t00=0x003f, t01=0x006a}
0x62dc…6306 Head {h00=0x0026, h01=0x0050, text=» CF A15,SAVE8 SAVE A1-A8 ON STACK «, t00=0x003f, t01=0x0080}
0x6306…6312 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x00aa}
0x6312…631c Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x00b6}
0x631c…6332 Head {h00=0x0012, h01=0x0050, text=» IFT CPU852=0 «, t00=0x003f, t01=0x00c0}
0x6332…6358 Head {h00=0x0022, h01=0x0050, text=» MSR 8,A15 SAVE A1-A8 ON STACK«, t00=0x003f, t01=0x00d6}
0x6358…6364 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x003f, t01=0x00fc}
0x6364…636e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x003f, t01=0x0108}
0x636e…637c Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x003f, t01=0x0112}
0x637c…6392 Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/7FFF«, t00=0x003f, t01=0x0120}
0x6392…63b4 Head {h00=0x001e, h01=0x0050, text=» ANS A2,DWTST,A6 SET BUSY «, t00=0x003f, t01=0x0136}
0x63b4…63c2 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0158}
0x63c2…63d0 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0166}
0x63d0…63de Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0174}
0x63de…63ec Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0182}
0x63ec…63fa Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x003f, t01=0x0190}
0x63fa…6408 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x000e}
0x6408…6416 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x001c}
0x6416…6424 Head {h00=0x000a, h01=0x0050, text=» =1«, t00=0x0040, t01=0x002a}
0x6424…642e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0038}
0x642e…6444 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0040, t01=0x0042}
0x6444…644e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0058}
0x644e…6474 Head {h00=0x0022, h01=0x0050, text=» LDR* A2,A6 CHANNEL PARAMETER «, t00=0x0040, t01=0x0062}
0x6474…649a Head {h00=0x0022, h01=0x0050, text=» ANK A2,/10 GRAPHIC DISPLAY ? «, t00=0x0040, t01=0x0088}
0x649a…64b2 Head {h00=0x0014, h01=0x0050, text=» RF(E) RCDY10 NO«, t00=0x0040, t01=0x00ae}
0x64b2…64e4 Head {h00=0x002e, h01=0x0050, text=» LDK A2,RETURN RETURN TO ALPHANUMERIC MODE«, t00=0x0040, t01=0x00c6}
0x64e4…64fa Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x00f8}
0x64fa…6504 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x010e}
0x6504…6510 Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0040, t01=0x0118}
0x6510…651a Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0040, t01=0x0124}
0x651a…6528 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0040, t01=0x012e}
0x6528…653c Head {h00=0x0010, h01=0x0050, text=»RCDY10 EQU *«, t00=0x0040, t01=0x013c}
0x653c…655e Head {h00=0x001e, h01=0x0050, text=» LDK A2,/00 DUMMY TO SEND «, t00=0x0040, t01=0x0150}
0x655e…6574 Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0040, t01=0x0172}
0x6574…659c Head {h00=0x0024, h01=0x0050, text=» LDR A4,A4 LRC-ERROR IN BLOCK ? «, t00=0x0040, t01=0x0188}
0x659c…65b2 Head {h00=0x0012, h01=0x0050, text=» RF(NE) RCDY20«, t00=0x0041, t01=0x0020}
0x65b2…65cc Head {h00=0x0016, h01=0x0050, text=» IFT WHATDY=0 =1 «, t00=0x0041, t01=0x0036}
0x65cc…65ee Head {h00=0x001e, h01=0x0050, text=» IFF STEADY+COUNTRY=0 =1 «, t00=0x0041, t01=0x0050}
0x65ee…661c Head {h00=0x002a, h01=0x0050, text=» LDR* A2,A6 GET CHANNEL PARAMETERS =1 «, t00=0x0041, t01=0x0072}
0x661c…6642 Head {h00=0x0022, h01=0x0050, text=» ANK A2,/20 PTS 6385/6386 ? =1«, t00=0x0041, t01=0x00a0}
0x6642…665e Head {h00=0x0018, h01=0x0050, text=» RF(Z) RCDY14 NO =3 «, t00=0x0041, t01=0x00c6}
0x665e…668c Head {h00=0x002a, h01=0x0050, text=» LDK A3,100 SET UP TRANSFER COUNTER =3«, t00=0x0041, t01=0x00e2}
0x668c…66c4 Head {h00=0x0034, h01=0x0050, text=»RCDY12 LDK A2,STILL-1 SET UP CURSOR BLINKING =3 «, t00=0x0041, t01=0x0110}
0x66c4…66f4 Head {h00=0x002c, h01=0x0050, text=» ADK A2,STEADY ADJUST TO STEADY IF SO =3«, t00=0x0041, t01=0x0148}
0x66f4…671c Head {h00=0x0024, h01=0x0050, text=» CF A5,OUTPUT SEND CURSOR INF =3«, t00=0x0041, t01=0x0178}
0x671c…6746 Head {h00=0x0026, h01=0x0050, text=» SUK A3,1 DEC TRANSFER COUNTER =3 «, t00=0x0042, t01=0x0010}
0x6746…6776 Head {h00=0x002c, h01=0x0050, text=» RB(P) RCDY12 NOT ENOUGH OF TRANSFERS =3«, t00=0x0042, t01=0x003a}
0x6776…67a8 Head {h00=0x002e, h01=0x0050, text=» LDK A2,CTYCOD SEND 'SET COUNTRY CODE' =1 «, t00=0x0042, t01=0x006a}
0x67a8…67c2 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x009c}
0x67c2…67f0 Head {h00=0x002a, h01=0x0050, text=» LDK A2,COUNTRY SEND 'COUNTRY CODE' =1«, t00=0x0042, t01=0x00b6}
0x67f0…6808 Head {h00=0x0014, h01=0x0050, text=» ORK A2,/30 =1 «, t00=0x0042, t01=0x00e4}
0x6808…6822 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT =1 «, t00=0x0042, t01=0x00fc}
0x6822…6830 Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0116}
0x6830…683e Head {h00=0x000a, h01=0x0050, text=» =3«, t00=0x0042, t01=0x0124}
0x683e…6856 Head {h00=0x0014, h01=0x0050, text=»RCDY14 EQU * =3«, t00=0x0042, t01=0x0132}
0x6856…6868 Head {h00=0x000e, h01=0x0050, text=» XIF =1 «, t00=0x0042, t01=0x014a}
0x6868…6894 Head {h00=0x0028, h01=0x0050, text=» LD A3,DWTST,A6 SAVE STATUS WORD =3 «, t00=0x0042, t01=0x015c}
0x6894…68ba Head {h00=0x0022, h01=0x0050, text=» LDK A2,CLEHOM CLEAR AND HOME «, t00=0x0042, t01=0x0188}
0x68ba…68d4 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0043, t01=0x001e}
0x68d4…68ea Head {h00=0x0012, h01=0x0050, text=» LDKL A2,/101 «, t00=0x0043, t01=0x0038}
0x68ea…6924 Head {h00=0x0036, h01=0x0050, text=» ST A2,DWTAP,A6 SET HEAD LINE-AND-POSITION COUNTER«, t00=0x0043, t01=0x004e}
0x6924…6946 Head {h00=0x001e, h01=0x0050, text=» LDR A3,A3 GET OLD STATUS «, t00=0x0043, t01=0x0088}
0x6946…6964 Head {h00=0x001a, h01=0x0050, text=» RB(N) ENDIO NOT BUSY «, t00=0x0043, t01=0x00aa}
0x6964…698a Head {h00=0x0022, h01=0x0050, text=» LDK A1,OPERR SET RETURN CODE «, t00=0x0043, t01=0x00c8}
0x698a…69a4 Head {h00=0x0016, h01=0x0050, text=»RCDY15 ABL ADY420 «, t00=0x0043, t01=0x00ee}
0x69a4…69b2 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0043, t01=0x0108}
0x69b2…69bc Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x0116}
0x69bc…69e8 Head {h00=0x0028, h01=0x0050, text=»* LRC-ERROR IN BLOCK SENT REMOTE «, t00=0x0043, t01=0x0120}
0x69e8…69f2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0043, t01=0x014c}
0x69f2…6a06 Head {h00=0x0010, h01=0x0050, text=»RCDY20 EQU *«, t00=0x0043, t01=0x0156}
0x6a06…6a22 Head {h00=0x0018, h01=0x0050, text=» SUK A7,5 ORDER 5 ? «, t00=0x0043, t01=0x016a}
0x6a22…6a3c Head {h00=0x0016, h01=0x0050, text=» RF(NE) RCDY25 NO «, t00=0x0043, t01=0x0186}
0x6a3c…6a68 Head {h00=0x0028, h01=0x0050, text=» LDK A1,2 INDICATE THROUGHPUT ERROR «, t00=0x0044, t01=0x0010}
0x6a68…6a7a Head {h00=0x000e, h01=0x0050, text=» RB RCDY15«, t00=0x0044, t01=0x003c}
0x6a7a…6aa4 Head {h00=0x0026, h01=0x0050, text=»RCDY25 LDK A2,STX START OF MESSAGE«, t00=0x0044, t01=0x004e}
0x6aa4…6aba Head {h00=0x0012, h01=0x0050, text=» CF A5,OUTPUT «, t00=0x0044, t01=0x0078}
0x6aba…6af2 Head {h00=0x0034, h01=0x0050, text=» LC A4,DWTBC,A6 GET NUMBER OF POSITIONS TO BACK «, t00=0x0044, t01=0x008e}
0x6af2…6b06 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0044, t01=0x00c6}
0x6b06…6b1c Head {h00=0x0012, h01=0x0050, text=» RF(E) RCDY30 «, t00=0x0044, t01=0x00da}
0x6b1c…6b4e Head {h00=0x002e, h01=0x0050, text=» CF A5,BACCAN SEND BACKSPACES AND RUB OUT «, t00=0x0044, t01=0x00f0}
0x6b4e…6b72 Head {h00=0x0020, h01=0x0050, text=» LDK A3,2 START BUFFER INDEX«, t00=0x0044, t01=0x0122}
0x6b72…6b8c Head {h00=0x0016, h01=0x0050, text=»RCDY30 ABL ACDY90 «, t00=0x0044, t01=0x0146}
0x6b8c…6b9a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0044, t01=0x0160}
0x6b9a…6ba4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x016e}
0x6ba4…6bbc Head {h00=0x0014, h01=0x0050, text=»* E C H O D Y«, t00=0x0044, t01=0x0178}
0x6bbc…6bc6 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0044, t01=0x0190}
0x6bc6…6bfa Head {h00=0x0030, h01=0x0050, text=»* ECHODY = DEVICE-DEPENDENT ECHO-ROUTINE «, t00=0x0045, t01=0x000a}
0x6bfa…6c04 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x003e}
0x6c04…6c18 Head {h00=0x0010, h01=0x0050, text=»ECHODY EQU *«, t00=0x0045, t01=0x0048}
0x6c18…6c30 Head {h00=0x0014, h01=0x0050, text=» LDR A7,A7 EOR? «, t00=0x0045, t01=0x005c}
0x6c30…6c4a Head {h00=0x0016, h01=0x0050, text=» RF(N) ECDY17 YES «, t00=0x0045, t01=0x0074}
0x6c4a…6c6c Head {h00=0x001e, h01=0x0050, text=» LDR A3,A2 SAVE CHARACTER «, t00=0x0045, t01=0x008e}
0x6c6c…6c76 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00b0}
0x6c76…6c8c Head {h00=0x0012, h01=0x0050, text=» IFT EORECH=0 «, t00=0x0045, t01=0x00ba}
0x6c8c…6c96 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x00d0}
0x6c96…6caa Head {h00=0x0010, h01=0x0050, text=» SUK A2,/80 «, t00=0x0045, t01=0x00da}
0x6caa…6cd2 Head {h00=0x0024, h01=0x0050, text=» RF(NN) ECDY20 NOT TO BE ECHOED «, t00=0x0045, t01=0x00ee}
0x6cd2…6ce6 Head {h00=0x0010, h01=0x0050, text=» ADK A2,/80 «, t00=0x0045, t01=0x0116}
0x6ce6…6cf0 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x012a}
0x6cf0…6cfc Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0045, t01=0x0134}
0x6cfc…6d06 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0045, t01=0x0140}
0x6d06…6d18 Head {h00=0x000e, h01=0x0050, text=» SUK A3,/8«, t00=0x0045, t01=0x014a}
0x6d18…6d38 Head {h00=0x001c, h01=0x0050, text=» RF(E) ECDY40 BACKSPACE «, t00=0x0045, t01=0x015c}
0x6d38…6d4c Head {h00=0x0010, h01=0x0050, text=» SUK A3,/10 «, t00=0x0045, t01=0x017c}
0x6d4c…6d68 Head {h00=0x0018, h01=0x0050, text=» RF(E) ECDY50 CLEAR «, t00=0x0045, t01=0x0190}
0x6d68…6d92 Head {h00=0x0026, h01=0x0050, text=»ECDY10 CF A5,OUTPUT SEND CHARACTER«, t00=0x0046, t01=0x001c}
0x6d92…6dc2 Head {h00=0x002c, h01=0x0050, text=» CF A15,POSUPD POSITION COUNTER UPDATING«, t00=0x0046, t01=0x0046}
0x6dc2…6dd4 Head {h00=0x000e, h01=0x0050, text=» RF ECDY20«, t00=0x0046, t01=0x0076}
0x6dd4…6e0c Head {h00=0x0034, h01=0x0050, text=»ECDY17 CF A15,UPDAPP UPDATE HEAD CURSOR POINTER «, t00=0x0046, t01=0x0088}
0x6e0c…6e38 Head {h00=0x0028, h01=0x0050, text=»ECDY20 ABL ECHRTN RETURN TO KEYBOARD«, t00=0x0046, t01=0x00c0}
0x6e38…6e42 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x00ec}
0x6e42…6e58 Head {h00=0x0012, h01=0x0050, text=»* BACKSPACE«, t00=0x0046, t01=0x00f6}
0x6e58…6e62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0046, t01=0x010c}
0x6e62…6e76 Head {h00=0x0010, h01=0x0050, text=»ECDY40 EQU *«, t00=0x0046, t01=0x0116}
0x6e76…6ea2 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0046, t01=0x012a}
0x6ea2…6eb6 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0046, t01=0x0156}
0x6eb6…6eda Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0046, t01=0x016a}
0x6eda…6f02 Head {h00=0x0024, h01=0x0050, text=» LDK A4,1 INDICATE ONE BACKSTEP «, t00=0x0046, t01=0x018e}
0x6f02…6f1c Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x0026}
0x6f1c…6f2e Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0047, t01=0x0040}
0x6f2e…6f3c Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0047, t01=0x0052}
0x6f3c…6f46 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x0060}
0x6f46…6f58 Head {h00=0x000e, h01=0x0050, text=»* CLEAR«, t00=0x0047, t01=0x006a}
0x6f58…6f62 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0047, t01=0x007c}
0x6f62…6f76 Head {h00=0x0010, h01=0x0050, text=»ECDY50 EQU *«, t00=0x0047, t01=0x0086}
0x6f76…6fa2 Head {h00=0x0028, h01=0x0050, text=» LC A4,DWTBC,A6 GET POSITION COUNTER«, t00=0x0047, t01=0x009a}
0x6fa2…6fb6 Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x0047, t01=0x00c6}
0x6fb6…6fda Head {h00=0x0020, h01=0x0050, text=» RB(E) ECDY20 FIRST POSITION«, t00=0x0047, t01=0x00da}
0x6fda…6ff0 Head {h00=0x0012, h01=0x0050, text=» IFT WHATDY=0 «, t00=0x0047, t01=0x00fe}
0x6ff0…701a Head {h00=0x0026, h01=0x0050, text=» LDR* A1,A6 GET CHANNEL PARAMETER «, t00=0x0047, t01=0x0114}
0x701a…703c Head {h00=0x001e, h01=0x0050, text=» ANK A1,/10 GRAFIC DISPLAY«, t00=0x0047, t01=0x013e}
0x703c…7054 Head {h00=0x0014, h01=0x0050, text=» RF(E) ECDY60 N «, t00=0x0047, t01=0x0160}
0x7054…706e Head {h00=0x0016, h01=0x0050, text=» CF A5,BACCAN BACK«, t00=0x0047, t01=0x0178}
0x706e…7080 (72, 0, 400) Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0048, t01=0x0004}
0x7080…708c Head {h00=0x0008, h01=0x0050, text=» XIF«, t00=0x0048, t01=0x0016}
0x708c…70ba Head {h00=0x002a, h01=0x0050, text=»ECDY60 LDR A3,A4 SAVE POSITION COUNTER«, t00=0x0048, t01=0x0022}
0x70ba…70f4 Head {h00=0x0036, h01=0x0050, text=» LD A4,DWTAP,A6 GET HEAD LINE-AND-POSITION COUNTER«, t00=0x0048, t01=0x0050}
0x70f4…7114 Head {h00=0x001c, h01=0x0050, text=» CF A5,CURPOS SET CURSOR«, t00=0x0048, t01=0x008a}
0x7114…7136 Head {h00=0x001e, h01=0x0050, text=» LDR A4,A3 GET POS COUNTER«, t00=0x0048, t01=0x00aa}
0x7136…715a Head {h00=0x0020, h01=0x0050, text=» ADK A4,1 UPDATE POS COUNTER«, t00=0x0048, t01=0x00cc}
0x715a…716e Head {h00=0x0010, h01=0x0050, text=» LDK A3,/20 «, t00=0x0048, t01=0x00f0}
0x716e…7190 Head {h00=0x001e, h01=0x0050, text=» CF A5,FASTER FAST OUTPUT «, t00=0x0048, t01=0x0104}
0x7190…71a2 Head {h00=0x000e, h01=0x0050, text=» LDK A2,0 «, t00=0x0048, t01=0x0126}
0x71a2…71d0 Head {h00=0x002a, h01=0x0050, text=» SC A2,DWTBC,A6 RESET POSITION COUNTER«, t00=0x0048, t01=0x0138}
0x71d0…71e2 Head {h00=0x000e, h01=0x0050, text=» RB ECDY20«, t00=0x0048, t01=0x0166}
0x71e2…71f0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0048, t01=0x0178}
0x71f0…71fa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0186}
0x71fa…7204 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0048, t01=0x0190}
0x7204…7238 Head {h00=0x0030, h01=0x0050, text=»* BACCAN = SUBROUTINE TO POSITION CURSOR «, t00=0x0049, t01=0x000a}
0x7238…726c Head {h00=0x0030, h01=0x0050, text=»* AT THE PLACE BEFORE REQUEST IF«, t00=0x0049, t01=0x003e}
0x726c…72a0 Head {h00=0x0030, h01=0x0050, text=»* CLEAR OR BACKWARDS ONE STEP IF«, t00=0x0049, t01=0x0072}
0x72a0…72c0 Head {h00=0x001c, h01=0x0050, text=»* BACKSPACE.«, t00=0x0049, t01=0x00a6}
0x72c0…72ca Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0049, t01=0x00c6}
0x72ca…72de Head {h00=0x0010, h01=0x0050, text=»BACCAN EQU *«, t00=0x0049, t01=0x00d0}
0x72de…72f0 Head {h00=0x000e, h01=0x0050, text=» LDR A3,A4«, t00=0x0049, t01=0x00e4}
0x72f0…731c Head {h00=0x0028, h01=0x0050, text=» LC A2,DWTBC,A6 GET POSITION COUNTER«, t00=0x0049, t01=0x00f6}
0x731c…7330 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x0122}
0x7330…7362 Head {h00=0x002e, h01=0x0050, text=» AD A2,DWTAP,A6 ADD HEAD POSITION COUNTER «, t00=0x0049, t01=0x0136}
0x7362…7376 Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x0049, t01=0x0168}
0x7376…739c Head {h00=0x0022, h01=0x0050, text=» CC A2,DWTPOS,A6 LAST POSITION«, t00=0x0049, t01=0x017c}
0x739c…73b6 Head {h00=0x0016, h01=0x0050, text=» RF(NP) BACA10 NO «, t00=0x004a, t01=0x0012}
0x73b6…73de Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x002c}
0x73de…73f0 Head {h00=0x000e, h01=0x0050, text=» RF BACA20«, t00=0x004a, t01=0x0054}
0x73f0…7416 Head {h00=0x0022, h01=0x0050, text=»BACA10 LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x0066}
0x7416…7430 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x008c}
0x7430…7458 Head {h00=0x0024, h01=0x0050, text=» LDK A2,SPACE DESTRUCTIVE SPACE «, t00=0x004a, t01=0x00a6}
0x7458…7472 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x004a, t01=0x00ce}
0x7472…7492 Head {h00=0x001c, h01=0x0050, text=» LDK A2,BACKSP BACKSPACE«, t00=0x004a, t01=0x00e8}
0x7492…74b2 Head {h00=0x001c, h01=0x0050, text=»BACA20 CF A5,OUTPUT SEND«, t00=0x004a, t01=0x0108}
0x74b2…74c4 Head {h00=0x000e, h01=0x0050, text=» SUK A4,1 «, t00=0x004a, t01=0x0128}
0x74c4…74da Head {h00=0x0012, h01=0x0050, text=» RB(NE) BACA10«, t00=0x004a, t01=0x013a}
0x74da…74fc Head {h00=0x001e, h01=0x0050, text=» NGR A3,A3 NEGATE REGISTER«, t00=0x004a, t01=0x0150}
0x74fc…752c Head {h00=0x002c, h01=0x0050, text=» ADS A3,DWTST,A6 UPDATE POSITION COUNTER«, t00=0x004a, t01=0x0172}
0x752c…753c Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x004b, t01=0x0012}
0x753c…754a Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004b, t01=0x0022}
0x754a…7582 Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x0030}
0x7582…75ba Head {h00=0x0034, h01=0x0050, text=»* CHECK = SUBROUTIN TO CHECK USER BUFFER IN * «, t00=0x004b, t01=0x0068}
0x75ba…75f2 Head {h00=0x0034, h01=0x0050, text=»* ORDER TO GET A REASON FOR USING * «, t00=0x004b, t01=0x00a0}
0x75f2…762a Head {h00=0x0034, h01=0x0050, text=»* 'FAST OUTPUT FACILITY' ON 6344 * «, t00=0x004b, t01=0x00d8}
0x762a…7662 Head {h00=0x0034, h01=0x0050, text=»* AND 6386 *«, t00=0x004b, t01=0x0110}
0x7662…769a Head {h00=0x0034, h01=0x0050, text=»*********************************************** «, t00=0x004b, t01=0x0148}
0x769a…76ae Head {h00=0x0010, h01=0x0050, text=»CHECK EQU * «, t00=0x004b, t01=0x0180}
0x76ae…76b8 (76, 0, 398) Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x0004}
0x76b8…76c2 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004c, t01=0x000e}
0x76c2…76d6 Head {h00=0x0010, h01=0x0050, text=» LD A1,4,A8 «, t00=0x004c, t01=0x0018}
0x76d6…76f8 Head {h00=0x001e, h01=0x0050, text=» SUR A1,A3 END OF BUFFER? «, t00=0x004c, t01=0x002c}
0x76f8…7714 Head {h00=0x0018, h01=0x0050, text=» ABL(NP) ACDY75 YES!«, t00=0x004c, t01=0x004e}
0x7714…7744 Head {h00=0x002c, h01=0x0050, text=» LDR A7,A2 SAVE CHER TO SEND (AND CHECK)«, t00=0x004c, t01=0x006a}
0x7744…7770 Head {h00=0x0028, h01=0x0050, text=» LDR A2,A4 SAVE BUFFER ADDRESS+INDEX«, t00=0x004c, t01=0x009a}
0x7770…7790 Head {h00=0x001c, h01=0x0050, text=» LDK A4,1 RESET COUNTER «, t00=0x004c, t01=0x00c6}
0x7790…77b8 Head {h00=0x0024, h01=0x0050, text=»NEXT ADK A4,1 INCREMENT COUNTER «, t00=0x004c, t01=0x00e6}
0x77b8…77d8 Head {h00=0x001c, h01=0x0050, text=» SUK A1,1 END OF BUFFER?«, t00=0x004c, t01=0x010e}
0x77d8…77f0 Head {h00=0x0014, h01=0x0050, text=» RF(NP) OUT YES!«, t00=0x004c, t01=0x012e}
0x77f0…7814 Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 INCREMENT POINTER «, t00=0x004c, t01=0x0146}
0x7814…783c Head {h00=0x0024, h01=0x0050, text=» CCR A7,A2 CHAR EQU TO PREVIUS? «, t00=0x004c, t01=0x016a}
0x783c…7854 (77, 0, 400) Head {h00=0x0014, h01=0x0050, text=» RB(E) NEXT YES!«, t00=0x004d, t01=0x0004}
0x7854…7866 Head {h00=0x000e, h01=0x0050, text=»OUT EQU * «, t00=0x004d, t01=0x001c}
0x7866…78a0 Head {h00=0x0036, h01=0x0050, text=» CWK A4,EQU CONDITION FOR FAST OUTPUT FULLFILLED? «, t00=0x004d, t01=0x002e}
0x78a0…78ba Head {h00=0x0016, h01=0x0050, text=» RF(L) NOFAST NO! «, t00=0x004d, t01=0x0068}
0x78ba…78e4 Head {h00=0x0026, h01=0x0050, text=»**********************************«, t00=0x004d, t01=0x0082}
0x78e4…790e Head {h00=0x0026, h01=0x0050, text=»* UPDATE ACTUAL POSITION POINTER *«, t00=0x004d, t01=0x00ac}
0x790e…793e Head {h00=0x002c, h01=0x0050, text=»FASTOK LC A2,DWTBC,A6 GET HEAD POSITION «, t00=0x004d, t01=0x00d6}
0x793e…7956 Head {h00=0x0014, h01=0x0050, text=» AD A2,DWTAP,A6 «, t00=0x004d, t01=0x0106}
0x7956…796a Head {h00=0x0010, h01=0x0050, text=» ANK A2,/FF «, t00=0x004d, t01=0x011e}
0x796a…7990 Head {h00=0x0022, h01=0x0050, text=» ADR A3,A4 UPDATE BUFFER-INDEX«, t00=0x004d, t01=0x0132}
0x7990…79b4 Head {h00=0x0020, h01=0x0050, text=» ST A3,DWTBIN,A6 SAVE INDEX «, t00=0x004d, t01=0x0158}
0x79b4…79e8 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTPOS,A6 GET MAXNUMBER OF CHAR/LINE «, t00=0x004d, t01=0x017c}
0x79e8…7a06 Head {h00=0x001a, h01=0x0050, text=» SUR A3,A2 AND COMPARE«, t00=0x004e, t01=0x0020}
0x7a06…7a18 Head {h00=0x000e, h01=0x0050, text=» SUR A3,A4«, t00=0x004e, t01=0x003e}
0x7a18…7a2c Head {h00=0x0010, h01=0x0050, text=» RF(NN) HIT «, t00=0x004e, t01=0x0050}
0x7a2c…7a3e Head {h00=0x000e, h01=0x0050, text=» ADR A4,A3«, t00=0x004e, t01=0x0064}
0x7a3e…7a50 Head {h00=0x000e, h01=0x0050, text=» ADK A4,1 «, t00=0x004e, t01=0x0076}
0x7a50…7a7c Head {h00=0x0028, h01=0x0050, text=»HIT ADS A4,DWTST,A6 UPDATE POSITION «, t00=0x004e, t01=0x0088}
0x7a7c…7a9c Head {h00=0x001c, h01=0x0050, text=»*********************** «, t00=0x004e, t01=0x00b4}
0x7a9c…7abc Head {h00=0x001c, h01=0x0050, text=»* EXECUTE FAST OUTPUT * «, t00=0x004e, t01=0x00d4}
0x7abc…7ae0 Head {h00=0x0020, h01=0x0050, text=» LDR A3,A7 GET CHAR TO SEND «, t00=0x004e, t01=0x00f4}
0x7ae0…7af6 Head {h00=0x0012, h01=0x0050, text=» CF A5,FASTER «, t00=0x004e, t01=0x0118}
0x7af6…7b0c Head {h00=0x0012, h01=0x0050, text=»**************«, t00=0x004e, t01=0x012e}
0x7b0c…7b22 Head {h00=0x0012, h01=0x0050, text=»* SET CURSOR *«, t00=0x004e, t01=0x0144}
0x7b22…7b48 Head {h00=0x0022, h01=0x0050, text=» LD A4,DWTST,A6 GET ACTUAL POS«, t00=0x004e, t01=0x015a}
0x7b48…7b5c Head {h00=0x0010, h01=0x0050, text=» ANK A4,/FF «, t00=0x004e, t01=0x0180}
0x7b5c…7b88 (79, 0, 400) Head {h00=0x0028, h01=0x0050, text=» AD A4,DWTAP,A6 INC HEAD POS POINTER«, t00=0x004f, t01=0x0004}
0x7b88…7b9e Head {h00=0x0012, h01=0x0050, text=» CF A5,CURPOS «, t00=0x004f, t01=0x0030}
0x7b9e…7bc4 Head {h00=0x0022, h01=0x0050, text=»***************************** «, t00=0x004f, t01=0x0046}
0x7bc4…7bea Head {h00=0x0022, h01=0x0050, text=»* RESTORE A3 (BUFFER INDEX) * «, t00=0x004f, t01=0x006c}
0x7bea…7c18 Head {h00=0x002a, h01=0x0050, text=» LD A3,DWTBIN,A6 RESTORE BUFFER INDEX «, t00=0x004f, t01=0x0092}
0x7c18…7c2a Head {h00=0x000e, h01=0x0050, text=» SUK A3,1 «, t00=0x004f, t01=0x00c0}
0x7c2a…7c4c Head {h00=0x001e, h01=0x0050, text=» ABL ACDY90 READ NEXT CHAR«, t00=0x004f, t01=0x00d2}
0x7c4c…7c56 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x00f4}
0x7c56…7c88 Head {h00=0x002e, h01=0x0050, text=»NOFAST LDR A2,A7 RESTORE OUTPUT CHARACTER «, t00=0x004f, t01=0x00fe}
0x7c88…7c9c Head {h00=0x0010, h01=0x0050, text=» ABL ACDY75 «, t00=0x004f, t01=0x0130}
0x7c9c…7caa Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x004f, t01=0x0144}
0x7caa…7cb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x0152}
0x7cb4…7cbe Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x004f, t01=0x015c}
0x7cbe…7cfe Head {h00=0x003c, h01=0x0050, text=»* FASTER = SUBROUTINE TO OUTPUT SPACE AT FAST OUTPUT «, t00=0x004f, t01=0x0166}
0x7cfe…7d36 Head {h00=0x0034, h01=0x0050, text=»* AT ENTRY A4 = NUMBER OF CHARACTERS«, t00=0x0050, t01=0x0016}
0x7d36…7d40 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0050, t01=0x004e}
0x7d40…7d54 Head {h00=0x0010, h01=0x0050, text=»FASTER EQU *«, t00=0x0050, t01=0x0058}
0x7d54…7d68 Head {h00=0x0010, h01=0x0050, text=» CWK A4,/60 «, t00=0x0050, t01=0x006c}
0x7d68…7d9a Head {h00=0x002e, h01=0x0050, text=» RF(L) FAS010 NUMBER OF CHAR NOT TOO LONG «, t00=0x0050, t01=0x0080}
0x7d9a…7dae Head {h00=0x0010, h01=0x0050, text=» LDK A4,/59 «, t00=0x0050, t01=0x00b2}
0x7dae…7dc2 Head {h00=0x0010, h01=0x0050, text=»FAS010 EQU *«, t00=0x0050, t01=0x00c6}
0x7dc2…7de2 Head {h00=0x001c, h01=0x0050, text=» ADK A4,/20 ADD CONSTANT«, t00=0x0050, t01=0x00da}
0x7de2…7e04 Head {h00=0x001e, h01=0x0050, text=» LDK A2,FASTO FAST OUTPUT «, t00=0x0050, t01=0x00fa}
0x7e04…7e1e Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x011c}
0x7e1e…7e3c Head {h00=0x001a, h01=0x0050, text=» LDR A2,A4 NO OF CHAR «, t00=0x0050, t01=0x0136}
0x7e3c…7e56 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x0154}
0x7e56…7e68 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A3«, t00=0x0050, t01=0x016e}
0x7e68…7e82 Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0050, t01=0x0180}
0x7e82…7e92 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0051, t01=0x000a}
0x7e92…7ea0 Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0051, t01=0x001a}
0x7ea0…7eaa Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0028}
0x7eaa…7eb4 Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x0032}
0x7eb4…7ee2 Head {h00=0x002a, h01=0x0050, text=»* CURPOS = SUBROUTINE TO SET CURSOR«, t00=0x0051, t01=0x003c}
0x7ee2…7f24 Head {h00=0x003e, h01=0x0050, text=»* AT ENTRY A4 = CURSOR POS (POSITION AND LINE)«, t00=0x0051, t01=0x006a}
0x7f24…7f2e Head {h00=0x0006, h01=0x0050, text=»* «, t00=0x0051, t01=0x00ac}
0x7f2e…7f42 Head {h00=0x0010, h01=0x0050, text=»CURPOS EQU *«, t00=0x0051, t01=0x00b6}
0x7f42…7f60 Head {h00=0x001a, h01=0x0050, text=» ADKL A4,/1F1F CONVERT«, t00=0x0051, t01=0x00ca}
0x7f60…7f80 Head {h00=0x001c, h01=0x0050, text=» LDK A2,SCADD SET CURSOR«, t00=0x0051, t01=0x00e8}
0x7f80…7f9a Head {h00=0x0016, h01=0x0050, text=» CF A5,OUTPUT SEND«, t00=0x0051, t01=0x0108}
0x7f9a…7fba Head {h00=0x001c, h01=0x0050, text=» ECR A2,A4 POS. X < /80?«, t00=0x0051, t01=0x0122}
0x7fba…7fcc Head {h00=0x000e, h01=0x0050, text=» LDR A2,A2«, t00=0x0051, t01=0x0142}
0x7fcc…7fe8 Head {h00=0x0018, h01=0x0050, text=» RF(NN) CURR05 YES! «, t00=0x0051, t01=0x0154}
0x7fe8…7ffe Head {h00=0x0012, h01=0x0050, text=» LCK A4,/7F00 «, t00=0x0051, t01=0x0170}
0x7ffe…8012 Head {h00=0x0010, h01=0x0050, text=»CURR05 EQU *«, t00=0x0051, t01=0x0186}
0x8012…8024 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0052, t01=0x000a}
0x8024…804e Head {h00=0x0026, h01=0x0050, text=» CF A5,OUTPUT OUTPUT POSITION (X) «, t00=0x0052, t01=0x001c}
0x804e…8060 Head {h00=0x000e, h01=0x0050, text=» LDR A2,A4«, t00=0x0052, t01=0x0046}
0x8060…8080 Head {h00=0x001c, h01=0x0050, text=» RF(NN) CURR10 Y < /80! «, t00=0x0052, t01=0x0058}
0x8080…8094 Head {h00=0x0010, h01=0x0050, text=» LDK A2,/7F «, t00=0x0052, t01=0x0078}
0x8094…80a6 Head {h00=0x000e, h01=0x0050, text=» RF CURR15«, t00=0x0052, t01=0x008c}
0x80a6…80ba Head {h00=0x0010, h01=0x0050, text=»CURR10 EQU *«, t00=0x0052, t01=0x009e}
0x80ba…80d8 Head {h00=0x001a, h01=0x0050, text=» SRL A2,8 SHIFT RIGHT «, t00=0x0052, t01=0x00b2}
0x80d8…80ec Head {h00=0x0010, h01=0x0050, text=»CURR15 EQU *«, t00=0x0052, t01=0x00d0}
0x80ec…8110 Head {h00=0x0020, h01=0x0050, text=» CF A5,OUTPUT OUTPUT LINE(Y)«, t00=0x0052, t01=0x00e4}
0x8110…8120 Head {h00=0x000c, h01=0x0050, text=» RTN A5 «, t00=0x0052, t01=0x0108}
0x8120…812e Head {h00=0x000a, h01=0x0050, text=» EJECT«, t00=0x0052, t01=0x0118}
0x812e…813c Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0126}
0x813c…814a Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0134}
0x814a…8158 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x0142}
0x8158…8194 Head {h00=0x0038, h01=0x0050, text=»* ERA - SUBROUTINE TO AVOID UNNECESSARY OUTPUT =2«, t00=0x0052, t01=0x0150}
0x8194…81a2 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0052, t01=0x018c}
0x81a2…81b0 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x000a}
0x81b0…81e4 Head {h00=0x0030, h01=0x0050, text=»* AT ENTRY A4 = CHAR TO ERASE FROM USER =2 «, t00=0x0053, t01=0x0018}
0x81e4…8216 Head {h00=0x002e, h01=0x0050, text=»* AT EXIT A4 = CHAR TO END OF SCREEN =2 «, t00=0x0053, t01=0x004c}
0x8216…8224 Head {h00=0x000a, h01=0x0050, text=»* =2«, t00=0x0053, t01=0x007e}
0x8224…823a Head {h00=0x0012, h01=0x0050, text=»ERA EQU * =2 «, t00=0x0053, t01=0x008c}
0x823a…8260 Head {h00=0x0022, h01=0x0050, text=» LD A2,DWTPOS,A6 MAX CHAR. =2 «, t00=0x0053, t01=0x00a2}
0x8260…8284 Head {h00=0x0020, h01=0x0050, text=» ANK A2,/FF GET MAX CHAR. =2«, t00=0x0053, t01=0x00c8}
0x8284…82b8 Head {h00=0x0030, h01=0x0050, text=» LC A3,DWTAP+1,A6 CURRENT POS. ON SCREEN =2 «, t00=0x0053, t01=0x00ec}
0x82b8…82d0 Head {h00=0x0014, h01=0x0050, text=» ANK A3,/FF =2 «, t00=0x0053, t01=0x0120}
0x82d0…8306 Head {h00=0x0032, h01=0x0050, text=» SUR A2,A3 NUMBER OF CHAR. TO END OF SCREEN =2«, t00=0x0053, t01=0x0138}
0x8306…832a Head {h00=0x0020, h01=0x0050, text=» ADK A2,1 ADJUST LENGTH =2 «, t00=0x0053, t01=0x016e}
0x832a…834e (84, 2, 342) Head {h00=0x0020, h01=0x0050, text=» CWR A4,A2 OUTSIDE SCREEN =2«, t00=0x0054, t01=0x0004}
0x834e…836a Head {h00=0x0018, h01=0x0050, text=» RF(L) ERAEND NO =2 «, t00=0x0054, t01=0x0028}
0x836a…839c Head {h00=0x002e, h01=0x0050, text=» LDR A4,A2 OUTSIDE SCREEN MODIFY LENGTH =2«, t00=0x0054, t01=0x0044}
0x839c…83be Head {h00=0x001e, h01=0x0050, text=» LDKL A3,/FFFF SET OVER =4«, t00=0x0054, t01=0x0076}
0x83be…83e4 Head {h00=0x0022, h01=0x0050, text=»ERAEND EQU * END SUBROUTINE =2«, t00=0x0054, t01=0x0098}
0x83e4…83fe Head {h00=0x0016, h01=0x0050, text=» RTN A5 RETURN =2 «, t00=0x0054, t01=0x00be}
0x83fe…8410 Head {h00=0x000e, h01=0x0050, text=»ABDY EQU *«, t00=0x0054, t01=0x00d8}
0x8410…8440 Head {h00=0x002c, h01=0x0050, text=» CF A15,UPDAPP UPDATE CURSOR POSITION =5«, t00=0x0054, t01=0x00ea}
0x8440…846c Head {h00=0x0028, h01=0x0050, text=» RTN A15 RETURN TO ABORT ROUTINE =5 «, t00=0x0054, t01=0x011a}
0x846c…8478 Head {h00=0x0008, h01=0x0050, text=» END«, t00=0x0054, t01=0x0146}
0x8478…847c Head {h00=0x4004, h01=0x0000}
0x847c…8480 00 54 01 52 ┆ T R┆
0x8480…8488 (85, 1, 8) 20 04 00 00 00 55 00 04 ┆ U ┆
0x8488…84d8 (86, 0, 398) 45 20 00 45 01 78 00 06 00 50 2a 20 00 46 00 0a 00 10 00 50 54 52 4d 31 39 30 5c 45 51 55 5c 2a 00 46 00 14 00 28 00 50 5c 4c 44 5c 41 36 2c 44 43 57 52 51 5c 43 48 45 43 4b 20 41 50 50 4c 49 43 41 54 49 4f 4e 20 51 55 45 55 45 00 46 00 28 ┆E E x P* F PTRM190 EQU * F ( P LD A6,DCWRQ CHECK APPLICATION QUEUE F (┆
0x84d8…8528 00 22 00 50 5c 52 42 28 5a 29 5c 54 52 4d 31 33 30 5c 4e 4f 54 48 49 4e 47 20 49 4e 20 51 55 45 55 45 00 46 00 54 00 0a 00 50 5c 45 4a 45 43 54 00 46 00 7a 00 06 00 50 2a 20 00 46 00 88 00 06 00 50 2a 20 00 46 00 92 00 06 00 50 2a 20 00 46 ┆ " P RB(Z) TRM130 NOTHING IN QUEUE F T P EJECT F z P* F P* F P* F┆
0x8528…8578 00 9c 00 22 00 50 2a 20 20 20 48 45 52 45 20 54 4f 20 54 52 41 4e 53 4d 49 54 20 41 4e 20 49 46 52 41 4d 45 00 46 00 a6 00 06 00 50 2a 20 00 46 00 cc 00 10 00 50 54 52 4d 33 30 30 5c 45 51 55 5c 2a 00 46 00 d6 00 22 00 50 5c 53 55 4b 5c 41 ┆ " P* HERE TO TRANSMIT AN IFRAME F P* F PTRM300 EQU * F " P SUK A┆
0x8578…85c8 36 2c 44 57 54 57 51 5c 47 45 54 20 44 57 54 20 41 44 44 52 45 53 53 20 00 46 00 ea 00 2e 00 50 5c 4c 44 4b 4c 5c 41 34 2c 44 4c 4f 42 55 46 5c 47 45 54 20 4f 55 54 50 55 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 46 01 10 00 28 ┆6,DWTWQ GET DWT ADDRESS F . P LDKL A4,DLOBUF GET OUTPUT BUFFER ADDRESS F (┆
0x85c8…8616 00 50 5c 43 46 5c 41 35 2c 50 52 43 46 49 5c 50 52 45 50 41 52 45 20 43 2d 46 49 45 4c 44 20 46 4f 52 4d 41 54 20 00 46 01 42 00 24 00 50 5c 4c 44 5c 41 38 2c 44 57 54 45 43 42 2c 41 36 5c 47 45 54 20 45 43 42 20 41 44 44 52 45 53 53 ┆ P CF A5,PRCFI PREPARE C-FIELD FORMAT F B $ P LD A8,DWTECB,A6 GET ECB ADDRESS┆
0x8616…8666 (87, 0, 400) 00 46 01 6e 00 28 00 50 5c 4c 44 5c 41 33 2c 45 43 42 52 4c 2c 41 38 5c 47 45 54 20 52 45 51 55 45 53 54 45 44 20 4c 45 4e 47 54 48 00 47 00 08 00 1c 00 50 5c 41 44 4b 5c 41 33 2c 31 5c 41 44 4a 55 53 54 20 4c 45 4e 47 54 48 20 00 47 00 34 ┆ F n ( P LD A3,ECBRL,A8 GET REQUESTED LENGTH G P ADK A3,1 ADJUST LENGTH G 4┆
0x8666…86b6 00 22 00 50 5c 53 54 5c 41 36 2c 57 52 44 57 54 5c 53 41 56 45 20 57 52 49 54 49 4e 47 20 44 57 54 20 00 47 00 54 00 24 00 50 5c 4c 44 52 2a 5c 41 31 2c 41 36 5c 47 45 54 20 53 55 42 2d 54 45 52 4d 20 41 44 44 52 45 53 53 00 47 00 7a 00 10 ┆ " P ST A6,WRDWT SAVE WRITING DWT G T $ P LDR* A1,A6 GET SUB-TERM ADDRESS G z ┆
0x86b6…8706 00 50 5c 41 4e 4b 5c 41 31 2c 2f 46 46 20 00 47 00 a2 00 06 00 50 2a 20 00 47 00 b6 00 12 00 50 5c 49 46 46 5c 4d 4d 55 50 41 47 3d 30 20 00 47 00 c0 00 2a 00 50 5c 4c 44 4b 4c 5c 41 34 2c 4d 4d 55 42 55 46 5c 47 45 54 20 4d 4d 55 20 42 55 ┆ P ANK A1,/FF G P* G P IFF MMUPAG=0 G * P LDKL A4,MMUBUF GET MMU BU┆
0x8706…8756 46 46 45 52 20 41 44 44 52 45 53 53 00 47 00 d6 00 1e 00 50 5c 4c 44 5c 41 37 2c 53 57 4d 4d 55 5c 47 45 54 20 4d 4d 55 20 46 4c 41 47 20 00 47 01 04 00 2a 00 50 5c 52 46 28 4e 5a 29 5c 54 52 4d 33 32 30 5c 42 55 46 46 45 52 20 49 53 20 49 ┆FFER ADDRESS G P LD A7,SWMMU GET MMU FLAG G * P RF(NZ) TRM320 BUFFER IS I┆
0x8756…87a6 4e 20 4d 4d 55 20 42 55 46 46 45 52 00 47 01 26 00 2c 00 50 5c 49 4d 5c 53 57 4d 4d 55 5c 49 4e 44 49 43 41 54 45 20 55 53 45 52 20 42 55 46 46 45 52 20 49 53 20 4d 4f 56 45 44 20 00 47 01 54 00 14 00 50 5c 53 54 5c 41 34 2c 45 43 42 42 41 ┆N MMU BUFFER G & , P IM SWMMU INDICATE USER BUFFER IS MOVED G T P ST A4,ECBBA┆
0x87a6…87f6 (88, 0, 400) 2c 41 38 5c 00 47 01 84 00 2a 00 50 5c 43 46 5c 41 31 35 2c 44 43 3a 4d 4f 54 5c 4d 4f 56 45 20 44 41 54 41 20 54 4f 20 4d 4d 55 20 42 55 46 46 45 52 00 48 00 0c 00 10 00 50 54 52 4d 33 32 30 5c 45 51 55 5c 2a 00 48 00 3a 00 08 00 50 5c 58 ┆,A8 G * P CF A15,DC:MOT MOVE DATA TO MMU BUFFER H PTRM320 EQU * H : P X┆
0x87f6…8846 49 46 00 48 00 4e 00 06 00 50 2a 20 00 48 00 5a 00 2a 00 50 5c 4c 44 5c 41 37 2c 45 43 42 42 41 2c 41 38 5c 4f 55 54 50 55 54 20 42 55 46 46 45 52 20 41 44 44 52 45 53 53 20 00 48 00 64 00 28 00 50 5c 41 44 4b 5c 41 37 2c 31 5c 55 53 45 20 ┆IF H N P* H Z * P LD A7,ECBBA,A8 OUTPUT BUFFER ADDRESS H d ( P ADK A7,1 USE ┆
0x8846…8896 46 52 45 45 2d 57 4f 52 44 20 54 4f 20 49 4e 53 45 52 54 20 49 54 00 48 00 92 00 0e 00 50 5c 53 43 52 5c 41 31 2c 41 37 00 48 00 be 00 24 00 50 5c 53 55 4b 5c 41 37 2c 32 5c 49 4e 49 54 20 4f 55 54 50 55 54 20 41 44 44 52 45 53 53 49 4e 47 ┆FREE-WORD TO INSERT IT H P SCR A1,A7 H $ P SUK A7,2 INIT OUTPUT ADDRESSING┆
0x8896…88e6 00 48 00 d0 00 12 00 50 5c 53 54 5c 41 37 2c 53 57 49 54 43 48 20 00 48 00 f8 00 54 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 20 49 4e 49 54 49 41 4c 49 5a 41 54 49 4f 4e 20 43 4f 4d 50 4c 45 54 45 44 2c 53 45 4e 44 20 54 ┆ H P ST A7,SWITCH H T P**************** INITIALIZATION COMPLETED,SEND T┆
0x88e6…8936 48 45 20 57 48 4f 4c 45 20 46 52 41 4d 45 20 20 20 20 20 20 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 00 48 01 0e 00 2e 00 50 5c 4c 44 4b 4c 5c 41 34 2c 44 4c 4f 42 55 46 5c 41 34 20 50 4f 49 4e 54 53 20 41 54 20 43 4f 4e 54 52 4f 4c 20 50 41 52 54 20 ┆HE WHOLE FRAME ********** H . P LDKL A4,DLOBUF A4 POINTS AT CONTROL PART ┆
0x8936…8986 (89, 0, 400) 00 48 01 66 00 12 00 50 5c 43 46 5c 41 35 2c 57 52 46 52 41 4d 20 00 49 00 08 00 3e 00 50 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 2a 20 20 57 48 45 4e 20 44 4f 4e 45 2c 55 50 44 41 54 45 20 50 52 4f 54 4f 43 4f 4c 20 43 4f 55 4e 54 45 52 53 ┆ H f P CF A5,WRFRAM I > P************** WHEN DONE,UPDATE PROTOCOL COUNTERS┆
0x8986…89d6 20 20 20 2a 2a 2a 2a 2a 00 49 00 1e 00 1c 00 50 5c 4c 44 5c 41 31 2c 56 53 43 4e 54 5c 55 50 44 41 54 45 20 56 28 53 29 00 49 00 60 00 0e 00 50 5c 41 44 4b 5c 41 31 2c 31 20 00 49 00 80 00 16 00 50 5c 41 4e 4b 5c 41 31 2c 37 5c 4d 4f 44 55 ┆ ***** I P LD A1,VSCNT UPDATE V(S) I ` P ADK A1,1 I P ANK A1,7 MODU┆
0x89d6…8a26 4c 4f 20 37 00 49 00 92 00 10 00 50 5c 53 54 5c 41 31 2c 56 53 43 4e 54 00 49 00 ac 00 22 00 50 5c 53 54 5c 41 31 2c 43 50 43 4e 54 5c 55 50 44 41 54 45 20 43 48 45 43 4b 50 49 4e 54 20 00 49 00 c0 00 06 00 50 2a 20 00 49 00 e6 00 0e 00 50 ┆LO 7 I P ST A1,VSCNT I " P ST A1,CPCNT UPDATE CHECKPINT I P* I P┆
0x8a26…8a76 2a 5c 44 49 53 50 41 54 43 48 00 49 00 f0 00 06 00 50 2a 20 00 49 01 02 00 10 00 50 54 52 4d 45 4e 44 5c 45 51 55 5c 2a 00 49 01 0c 00 10 00 50 5c 4c 44 5c 41 32 2c 51 4f 55 54 20 00 49 01 20 00 20 00 50 5c 43 4d 5c 54 52 4d 41 43 54 5c 52 ┆* DISPATCH I P* I PTRMEND EQU * I P LD A2,QOUT I P CM TRMACT R┆
0x8a76…8ac6 45 53 45 54 20 4f 55 54 50 55 54 20 46 4c 41 47 00 49 01 34 00 0e 00 50 5c 43 57 5c 41 32 2c 51 49 4e 00 49 01 58 00 22 00 50 5c 41 42 4c 28 45 29 5c 54 44 49 53 50 5c 4e 4f 54 48 49 4e 47 20 4f 4e 20 51 55 45 55 45 00 49 01 6a 00 1c 00 50 ┆ESET OUTPUT FLAG I 4 P CW A2,QIN I X " P ABL(E) TDISP NOTHING ON QUEUE I j P┆
0x8ac6…8b16 (90, 0, 398) 5c 4c 44 52 2a 5c 41 31 2c 41 32 5c 47 45 54 20 43 4f 4d 4d 41 4e 44 20 00 49 01 90 00 12 00 50 5c 43 57 4b 5c 41 32 2c 43 4f 4d 51 45 20 00 4a 00 20 00 24 00 50 5c 52 46 28 4e 45 29 5c 54 52 4d 45 31 30 5c 4e 4f 54 20 45 4e 44 20 4f 46 20 ┆ LDR* A1,A2 GET COMMAND I P CWK A2,COMQE J $ P RF(NE) TRME10 NOT END OF ┆
0x8b16…8b66 51 55 45 55 45 20 00 4a 00 36 00 28 00 50 5c 4c 44 4b 4c 5c 41 32 2c 43 4f 4d 51 2d 32 5c 52 45 53 45 54 20 4f 55 54 50 55 54 20 50 4f 49 4e 54 45 52 00 4a 00 5e 00 10 00 50 54 52 4d 45 31 30 5c 45 51 55 5c 2a 00 4a 00 8a 00 0e 00 50 5c 41 ┆QUEUE J 6 ( P LDKL A2,COMQ-2 RESET OUTPUT POINTER J ^ PTRME10 EQU * J P A┆
0x8b66…8bb6 44 4b 5c 41 32 2c 32 20 00 4a 00 9e 00 10 00 50 5c 53 54 5c 41 32 2c 51 4f 55 54 20 00 4a 00 b0 00 0c 00 50 5c 41 42 4c 5c 54 52 4d 00 4a 00 c4 00 0a 00 50 5c 45 4a 45 43 54 00 4a 00 d4 00 06 00 50 2a 20 00 4a 00 e2 00 22 00 50 2a 5c 50 52 ┆DK A2,2 J P ST A2,QOUT J P ABL TRM J P EJECT J P* J " P* PR┆
0x8bb6…8c06 45 50 41 52 45 20 43 2d 46 49 45 4c 44 20 46 4f 52 20 49 2d 46 52 41 4d 45 20 00 4a 00 ec 00 06 00 50 2a 20 00 4a 01 12 00 06 00 50 2a 20 00 4a 01 1c 00 10 00 50 50 52 43 46 49 5c 45 51 55 5c 2a 20 00 4a 01 26 00 1a 00 50 5c 4c 44 4b 5c 41 ┆EPARE C-FIELD FOR I-FRAME J P* J P* J PPRCFI EQU * J & P LDK A┆
0x8c06…8c54 31 2c 2f 31 30 5c 4c 4f 41 44 20 27 49 27 2b 46 00 4a 01 3a 00 28 00 50 5c 4c 44 5c 41 32 2c 56 52 43 4e 54 5c 47 45 54 20 4e 45 58 54 20 45 58 50 45 43 54 45 44 20 4e 28 53 29 20 00 4a 01 58 00 0e 00 50 5c 53 4c 4c 5c 41 32 2c 35 20 ┆1,/10 LOAD 'I'+F J : ( P LD A2,VRCNT GET NEXT EXPECTED N(S) J X P SLL A2,5 ┆
0x8c54…8ca4 (91, 0, 400) 00 4a 01 84 00 0e 00 50 5c 4f 52 52 5c 41 31 2c 41 32 00 4b 00 08 00 1a 00 50 5c 4c 44 5c 41 32 2c 56 53 43 4e 54 5c 47 45 54 20 4e 28 53 29 20 00 4b 00 1a 00 0e 00 50 5c 53 4c 4c 5c 41 32 2c 31 20 00 4b 00 38 00 0e 00 50 5c 4f 52 52 5c 41 ┆ J P ORR A1,A2 K P LD A2,VSCNT GET N(S) K P SLL A2,1 K 8 P ORR A┆
0x8ca4…8cf4 31 2c 41 32 00 4b 00 4a 00 26 00 50 5c 53 54 52 5c 41 31 2c 41 34 5c 53 54 4f 52 45 20 43 2d 46 49 45 4c 44 20 49 4e 20 42 55 46 46 45 52 00 4b 00 5c 00 0c 00 50 5c 52 54 4e 5c 41 35 20 00 4b 00 86 00 0a 00 50 5c 45 4a 45 43 54 00 4b 00 96 ┆1,A2 K J & P STR A1,A4 STORE C-FIELD IN BUFFER K P RTN A5 K P EJECT K ┆
0x8cf4…8d44 00 06 00 50 2a 20 00 4b 00 a4 00 06 00 50 2a 20 00 4b 00 ae 00 2c 00 50 2a 5c 51 55 45 55 45 49 4e 47 20 46 41 43 49 4c 49 54 59 20 46 4f 52 20 48 44 4c 43 20 54 52 41 4e 53 4d 49 54 54 45 52 00 4b 00 b8 00 32 00 50 2a 5c 4f 4e 20 45 4e 54 ┆ P* K P* K , P* QUEUEING FACILITY FOR HDLC TRANSMITTER K 2 P* ON ENT┆
0x8d44…8d94 52 59 20 41 31 20 43 4f 4e 54 41 49 4e 53 20 52 45 51 55 45 53 54 45 44 20 48 44 4c 43 20 43 4f 4d 4d 41 4e 44 20 00 4b 00 e8 00 06 00 50 2a 20 00 4b 01 1e 00 10 00 50 51 4d 54 52 4d 5c 45 51 55 5c 2a 20 00 4b 01 28 00 12 00 50 5c 4c 44 5c ┆RY A1 CONTAINS REQUESTED HDLC COMMAND K P* K PQMTRM EQU * K ( P LD ┆
0x8d94…8de4 41 32 2c 54 52 4d 41 43 54 20 00 4b 01 3c 00 22 00 50 5c 52 46 28 4e 5a 29 5c 51 4d 54 52 4d 31 30 5c 4f 55 54 50 55 54 20 41 43 54 49 56 45 20 00 4b 01 52 00 06 00 50 2a 20 00 4b 01 78 00 1a 00 50 2a 5c 41 43 54 49 56 41 54 45 20 54 52 41 ┆A2,TRMACT K < " P RF(NZ) QMTRM10 OUTPUT ACTIVE K R P* K x P* ACTIVATE TRA┆
0x8de4…8e34 (92, 0, 400) 4e 53 4d 49 54 54 45 52 00 4b 01 82 00 06 00 50 2a 20 00 4c 00 10 00 12 00 50 5c 43 46 5c 41 31 35 2c 53 45 54 49 4d 45 00 4c 00 1a 00 1c 00 50 5c 44 41 54 41 5c 54 52 4d 2c 31 5c 41 46 54 45 52 20 31 30 30 20 4d 53 00 4c 00 30 00 0e 00 50 ┆NSMITTER K P* L P CF A15,SETIME L P DATA TRM,1 AFTER 100 MS L 0 P┆
0x8e34…8e84 5c 52 46 5c 51 4d 52 54 4e 20 00 4c 00 50 00 06 00 50 2a 20 00 4c 00 62 00 1a 00 50 2a 5c 50 55 54 20 43 4f 4d 4d 41 4e 44 20 4f 4e 20 51 55 45 55 45 00 4c 00 6c 00 06 00 50 2a 20 00 4c 00 8a 00 12 00 50 51 4d 54 52 4d 31 30 5c 45 51 55 5c ┆ RF QMRTN L P P* L b P* PUT COMMAND ON QUEUE L l P* L PQMTRM10 EQU ┆
0x8e84…8ed4 2a 20 00 4c 00 94 00 0e 00 50 5c 4c 44 5c 41 32 2c 51 49 4e 00 4c 00 aa 00 12 00 50 5c 43 57 4b 5c 41 32 2c 43 4f 4d 51 45 20 00 4c 00 bc 00 28 00 50 5c 52 46 28 4e 45 29 5c 51 4d 54 52 4d 32 30 5c 53 54 49 4c 4c 20 53 50 41 43 45 20 49 4e ┆* L P LD A2,QIN L P CWK A2,COMQE L ( P RF(NE) QMTRM20 STILL SPACE IN┆
0x8ed4…8f24 20 51 55 45 55 45 00 4c 00 d2 00 22 00 50 5c 4c 44 4b 4c 5c 41 32 2c 43 4f 4d 51 2d 32 5c 52 45 53 45 54 20 50 4f 49 4e 54 45 52 20 00 4c 00 fe 00 12 00 50 51 4d 54 52 4d 32 30 5c 45 51 55 5c 2a 20 00 4c 01 24 00 0e 00 50 5c 41 44 4b 5c 41 ┆ QUEUE L " P LDKL A2,COMQ-2 RESET POINTER L PQMTRM20 EQU * L $ P ADK A┆
0x8f24…8f74 32 2c 32 20 00 4c 01 3a 00 0e 00 50 5c 53 54 52 5c 41 31 2c 41 32 00 4c 01 4c 00 0e 00 50 5c 53 54 5c 41 32 2c 51 49 4e 00 4c 01 5e 00 06 00 50 2a 20 00 4c 01 70 00 0c 00 50 2a 5c 52 45 54 55 52 4e 00 4c 01 7a 00 06 00 50 2a 20 00 4c 01 8a ┆2,2 L : P STR A1,A2 L L P ST A2,QIN L ^ P* L p P* RETURN L z P* L ┆