O$XP, PLOT, O$XO, OFFSET, O$XF, FACTOR, O$XW, WHERE, O$XG, ORIGIN

* 0078-001-H908 (O$XP) DRAWING NO. 41285371-301-02 PAGE 5

0201 * 0202 00012 -0 02 00000 LDA* O$XP ADDRESS OF Y 0203 00013 0 12 00000 IRS O$XP ADDRESS OF NEXT PARAMETER 0204 00014 0 10 00421 JST PCUP PICK UP Y 0205 00015 0 04 00446 STA YFLT FLOATING POINT Y VALUE - WORD A 0206 00016 0 04 00454 STA YFY FLOATING POINT Y POSITION - WORD A 0207 00017 000201 IAB 0208 00020 0 04 00447 STA YFLT+1 FLOATING POINT Y VALUE - WORD B 0209 00021 0 04 00455 STA YFY+1 FLOATING POINT Y POSITION - WORD B 0210 * 0211 00022 -0 02 00000 LDA* O$XP ADDRESS OF PEN POSITION INDICATOR 0212 00023 0 10 00421 JST PCUP PICK UP INDICATOR 0213 00024 0 04 00456 PLTA STA IC PEN POSITION INDICATOR PARAMETER 0214 00025 100400 SPL IS IT POSITIVE? 0215 00026 140407 TCA NO, NEGATE IT 0216 00027 0 07 00540 SUB =10 YES, SUBTRACT 10 0217 00030 100400 SPL IS IC>10? 0218 00031 0 06 00540 ADD =10 RESTORE PEN POSITION INDICATOR 0219 00032 0 04 00457 STA IP NO. RESTORE TO PREVIOUS VALUE 0220 00033 0 11 00537 CAS =3 IS IC=3? 0221 00034 0 01 00041 JMP ERPN IC>3, PEN CONTROL ERROR 0222 00035 0 01 00053 JMP PEN3 IC=3, GO AND PUT PEN UP 0223 00036 0 11 00536 CAS =2 IS IC=2? 0224 00037 0 01 00041 JMP ERPN NO, PEN CONTROL ERROR 0225 00040 0 01 00043 JMP PEN2 IC=2, GO AND PUT PEN DOWN 0226 * 0227 00041 0 02 00507 ERPN LDA PNER PEN CONTROL ERROR 0228 00042 0 01 00024 JMP PLTA PEN NOW DOWN 0229 * 0230 * PUT PEN DOWN ROUTINE 0231 00043 0 02 00460 PEN2 LDA PENP PEN POSITION INDICATOR 0232 00044 100040 SZE IS IT ZERO? 0233 00045 0 01 00063 JMP CFOF NO, GO GET INDICATOR PARAMETER 0234 00046 34 0127 SKS SKNB SKIP IF NOT BUSY 0235 00047 0 01 00046 JMP *-1 WAIT UNTIL NOT BUSY 0236 00050 14 1427 OCP PNDN PUT PEN DOWN 0237 00051 0 02 00535 LDA =-1 INDICATE PEN DOWN 0238 00052 0 01 00062 JMP PENC SET PEN POSITION INDICATOR 0239 * 0240 * PUT PEN UP ROUTINE 0241 00053 0 02 00460 PEN3 LDA PENP PEN POSITION INDICATOR 0242 00054 101040 SNZ IS IT ZERO? 0243 00055 0 01 00063 JMP CFOF YES, GO GET INDICATOR PARAMETER 0244 00056 34 0127 SKS SKNB BUSY 0245 00057 0 01 00056 JMP *-1 WAIT UNTIL NOT BUSY 0246 00060 14 1627 OCP PNUP PUT PEN UP 0247 00061 140040 CRA INDICATE PEN UP 0248 00062 0 04 00460 PENC STA PENP SET PEN POSITION INDICATOR 0249 * 0250 00063 0 02 00456 CFOF LDA IC PEN POSITION INDICATOR PARAMETER