O$XA, SYMBOL

* 0078-001-H902 (OSXA) DRAWING NO. 41285374-001-02 PAGE 3

0101 * 0102 * THE SYMBOL SUBROUTINE PLOTS ALL THE STANDARD ISO CHARACTERS FOR THE 0103 * H316 OR DDP-516 PLUS 25 SPECIAL CHARACTERS. THE FIRST 16 OF WHICH 0104 * ARE CENTRED. A STRING OF ANY NUMBER OF STANDARD CHARACTERS CAN BE 0105 * PLOTTED STARTING AT A SPECIFIED POINT AT ANY ANGLE OR HEIGHT. THE 0106 * STARTING POINT SPECIFIED WILL BE THE BOTTOM LEFT-HAND CORNER OF THE 0107 * FIRST CHARACTER. THE CHARACTERS IN THE STRING ARE ASSUMED TO BE 0108 * IN ISO AND PACKED TWO TO A WORD. THE SPECIAL CHARACTERS ARE PLOTTED 0109 * ONE AT A TIME. 0110 * 0111 * 0112 * METHOD 0113 * 0114 * HAVING ESTABLISHED THE PARAMETERS OF THE CALL, THE PROGRAM STORES 0115 * THE LIST OF CHARACTERS TO BE PLOTTED. THE PARAMETER LIST, STARTING 0116 * IN LOCATION (BCD), IS THEN SEARCHED FOR ALPHA-NUMERIC AND SPECIAL 0117 * CHARACTERS AND EACH SYMBOL HAS A CODE WORD ASSIGNED TO IT. THE 0118 * PROGRAM SEARCHES THROUGH THE SYMBOL CODE WORD TABLE (TABL) TO 0119 * DETERMINE: 0120 * 0121 * 1) WHICH PAIR OF OFFSET VALUES IS TO BE PLOTTED FIRST, 0122 * 2) HOW MANY PAIRS ARE TO BE PLOTTED, 0123 * 3) A REFERENCE ADDRESS TO THE OFFSET VALUES TABLE WHICH 0124 * CONTAINS THE ACTUAL CO-ORDINATES TO BE PLOTTED FOR EACH 0125 * SYMBOL. USING THESE CO-ORDINATES, MODIFIED FOR OFFSET, 0126 * THE ROUTINE O$XP IS CALLED TO PLOT EACH PAIR OF 0127 * CO-ORDINATES. 0128 * 0129 * NOTE: THE CO-ORDINATE 70 IS A REQUEST TO LIFT THE PEN. AND 0130 * NOT A REQUEST TO PLOT AT THIS POINT. 0131 * 0132 * THE PROGRAM ALSO CALLS THE FOLLOWING MATH LIBRARY ROUTINES2 D$22, 0133 * M$22, A$22, S$22, C$12 AND L$22. 0134 * 0135 * 0136 ************************************************************************ 0137 * 0138 * 0139 SUBR O$XA PLOT ALPHANUMERIC AND SPECIAL CHARACTERS 0140 SUBR SYMBOL,O$XA PLOT ALPHANUMERIC AND SPECIAL CHARACTERS 0141 * 0142 * 0143 CF5 H316 AND DDP-516 ONLY 0144 REL RELOCATABLE 0145 * 0146 * 0147 * MAIN PROGRAM 0148 * 0149 * PICK UP PARAMETERS 0150 00000 0 000000 O$XA DAC ** ENTRY POINT