1 /INCREMENTAL PLOT ROUTINES FOR UWF-V4E -JVZ- 2 / 16MPLT.PA 3 4 / THIS REVISION CONTAINS THE LOWER CASE SYMBOLS AND THE 5 /'BACKSPACE' COMMAND SUGGESTED BY STEVE L. GILLETTE. I 6 / HAVE ALSO IMPLEMENTED 'HALFSIZE' CHARACTERS. 7 8 / RUNS .01 INCH PLOTTER AS IS 9 / DEFINE 'FIVMIL' TO ASSEMBLE FOR THE '5 MIL' PLOTTER. 10 / DEFINE 'METRIC' TO ASSEMBLE FOR A 'METRIC' PLOTTER. 11 12 / BSLASH.PA OVRLAYS THIS PGM TO PLOT LOWERCASE CHARS 13 / FROM AN UPPER CASE KEYBOARD 14 / 15 16 /MULTIPLY ROUTINE FOR EAE HARDWARE (SEE PAGE 12) 17 / 18 /MULT, 0 19 / AND N7 /MASK LOW ORDER DIGIT 20 / MQL MUY /MULTIPLY BY SIZE 21 /S1ZE, 0 22 / SWP /PUT RESULT IN AC 23 / CLL RAR 24 / JMP I MULT 25 / ZBLOCK 4 /FOR STANDARD ROUTINE 26 /SYSTEM SYMBOLS: 27 28 CDI=6203 29 PLSF=6501 30 PLCF=6502 31 PLPU=6504 32 PLPR=6511 33 PLDU=6512 34 PLDD=6514 35 PLPL=6521 36 PLUD=6522 37 PLPD=6524 38 FIXMRI FMUL=4000 39 FIXTAB 40 41 /FOCAL SYMBOLS: 42 43 AXIN=16 44 C=00 45 COMGO=722 46 EVAL=1610 47 EXIT=31 48 EXP=44 49 FENT=4407 50 FGETIPT1=0400 51 FMULIPT1=4400 52 FPUTIPT1=6400 53 FEXT=0000 54 FIXIT=4560 55 FLOAT=4552 56 GS1=1434 57 K77=7 58 M4=105 59 OBLK=5700 60 P=10 61 PT1=62 62 P177=75 63 PUSHJ=4522 64 SBLK=236 65 SINBLK=111 66 THISOP=63 67 TSTCMA=4543 68 UINT=3112 69 /THIS TRAPS THE 'OPEN OUTPUT PLOT:' COMMAND: 70 71 FIELD 0 72 73 *SINBLK+2 74 000113 4201 4201 /MOVE THE 'SIN' HANDLER 75 76 *SBLK-1 77 000235 2200 2200 /AND THE BUFFER, TOO 78 79 *3177 /RESET THE STACK LIMIT 80 003177 2600 2600 81 82 *OBLK-1 83 005677 5200 5200 /MOVE THE OUTPUT BUFFER 84 85 *CDF 86 006201 3200 LABEL /ADD THE ENTRY POINT 87 006202 2014 DEVICE PLTR /AND THE NAME 006203 2422 88 89 FIELD 1 90 91 *COMGO+"P-"@ 92 010742 3214 PLOTXY /ADD THE 'PLOT' ENTRY POINT 93 94 *UINT 95 013112 6202 CIF C /ADD PLOTTER TO THE SKIP CHAIN 96 013113 5714 JMP I .+1 97 013114 1336 PINT 98 99 PAGE 15 100 101 013200 0000 LABEL, 0 /OUTPUT TO THE PLOTTER 102 013201 0075 AND P177 /IGNORE PARITY 103 013202 7450 SNA 104 013203 5600 JMP I LABEL /AND NULL CHARS 105 013204 6203 CDI C 106 013205 1377 TAD (-15 107 013206 7450 SNA 108 013207 5776 JMP I (PCR /RETURN THE PEN 109 013210 1375 TAD (3 110 013211 7440 SZA 111 013212 5774 JMP I (PLC /CHECK FOR OTHERS 112 013213 5773 JMP I (PLF /DROP DOWN A LINE 113 /PARAMETER PASSING & ROTATION CHECKS FOR THE 'PLOT' COMMAND 114 115 013214 1200 PLOTXY, TAD LABEL /ARE WE WHERE WE THINK WE ARE? 116 013215 7650 SNA CLA 117 013216 5221 JMP .+3 /NO NEED TO RETURN THE PEN 118 013217 6203 CDI C 119 013220 4772 JMS I (LTAD /RETURN TO THE LAST PLOT POSITION 120 013221 1105 TAD M4 /INITIALIZE ARGUMENT LOOP 121 013222 3200 DCA LABEL /CLEAR THE FLAG 122 013223 1371 TAD (X-1 123 013224 3016 DCA AXIN 124 013225 7001 IAC 125 013226 4552 FLOAT /SET UP 1.00 126 013227 1370 TAD (4406 /'$F' 127 013230 4316 JMS LOOKUP 128 013231 1062 TAD PT1 129 013232 3316 DCA LOOKUP /SAVE POINTER 130 013233 5237 JMP .+4 131 132 013234 6211 PLOOP, CDF P 133 013235 4543 TSTCMA /STILL ANOTHER ARGUMENT? 134 013236 5254 JMP NOSCAL+1 /NO 135 013237 4522 PUSHJ /EVALUATE IT 136 013240 1610 EVAL 137 013241 7126 STL RTL 138 013242 1200 TAD LABEL 139 013243 7700 SMA CLA /X OR Y? 140 013244 5253 JMP NOSCAL /DON'T SCALE L OR M 141 013245 1316 TAD LOOKUP 142 013246 3062 DCA PT1 /RESET VARIABLE POINTER 143 013247 4407 FENT 144 013250 4400 FMULIPT1 /TIMES USER FACTOR 145 013251 4337 FMUL SCALE /SCALE UP TO INCHES 146 013252 0000 FEXT 147 013253 4560 NOSCAL, FIXIT /CONVERT TO AN INTEGER 148 013254 6201 CDF C 149 013255 3416 DCA I AXIN /STORE IT AWAY 150 013256 2200 ISZ LABEL /GOT ALL FOUR? 151 013257 5234 JMP PLOOP /NO, GO BACK FOR MORE 152 153 013260 1367 TAD (SYMTAB-1 /INITIALIZE INDEX REGISTER AGAIN 154 013261 3016 DCA AXIN 155 013262 7126 STL RTL /$R=2 156 013263 4277 JMS GETR /BRING IN THE ROTATION PARAMETERS 157 013264 3716 DCA I LOOKUP 158 013265 7126 STL RTL /$S=2 159 013266 4277 JMS GETR 160 013267 7004 RAL 161 013270 3716 DCA I LOOKUP 162 013271 7126 STL RTL /$D=2 163 013272 4277 JMS GETR 164 013273 1325 TAD M2 /NEED TO OFFSET THE DIRECTION BY 2 165 013274 3716 DCA I LOOKUP /SINCE THE LETTERS ARE CODED FOR D=2 166 013275 6202 CIF C 167 013276 5766 JMP I (XPLT 168 013277 0000 GETR, 0 /BRING IN THE ROTATION PARAMETERS 169 013300 6211 CDF P 170 013301 4552 FLOAT /SET UP THE DEFAULT VALUE 171 013302 1416 TAD I AXIN /WHICH VARIABLE? 172 013303 4316 JMS LOOKUP 173 013304 1416 TAD I AXIN /WHICH LOCATION? 174 013305 3316 DCA LOOKUP 175 013306 4407 FENT 176 013307 0400 FGETIPT1 /CROSS-FIELD VARIABLE FETCH 177 013310 0000 FEXT 178 013311 2044 ISZ EXP /X2 179 013312 4560 FIXIT 180 013313 7010 RAR //2 181 013314 6201 CDF C /PREPARE TO STORE INTEGER VALUE 182 013315 5677 JMP I GETR 183 184 013316 0000 LOOKUP, 0 /FIND A VARIABLE IN THE TABLE 185 013317 3063 DCA THISOP /SAVE THE NAME 186 013320 4522 PUSHJ /THE SUBSCRIPT WILL BE ZERO 187 013321 1434 GS1 188 013322 7430 SZL /ALREADY THERE? 189 013323 5716 JMP I LOOKUP /YES 190 013324 4407 FENT /NO 191 013325 7776 M2, -2 /= NORMALIZE FLAC & 192 013326 6400 FPUTIPT1 /SAVE DEFAULT VALUE 193 013327 0000 FEXT 194 013330 5716 JMP I LOOKUP 195 196 013331 4422 SYMTAB, 4422 /$R 197 013332 1200 PDIR 198 013333 4423 4423 /$S 199 013334 1571 S1ZE 200 013335 4404 4404 /$D 201 013336 1201 LDIR 202 203 SCALE, 204 IFDEF METRIC <6;2400;0;0> / 40.0 CONVERTS TO CM 205 013337 0007 IFNDEF METRIC <7;3100;0;0> /100.0 CONVERTS TO IN 013340 3100 013341 0000 013342 0000 206 207 013366 1575 PAGE 013367 3330 013370 4406 013371 1577 013372 1427 013373 1532 013374 1542 013375 0003 013376 1527 013377 7763 208 /PDP 8 PLOTTING ROUTINE USING THE OLD STYLE INTERRUPT (JVZ) 209 210 /CALLING SEQUENCE: 211 / PLOT = JMS I (PL0T) 212 / X X COORDINATE 213 / Y Y COORDINATE 214 /THIS VERSION SKIPS THE NEXT TWO WORDS 215 216 /C(AC) DETERMINES POSITION OF THE PEN: 217 218 / C(AC)= -1 PEN UP; POSITION AT END OF MOTION SET TO 0,0 219 / C(AC)= 0 PEN UP (ZERO MEANS "NO LINE") 220 / C(AC)= 1 PEN DOWN 221 / C(AC)= 2... RESERVED FOR DOTTED AND DASHED LINES, ETC. 222 223 /COORDINATES ARE EXPRESSED IN TERMS OF PLOTTER UNITS: 0.01" 224 /THUS MAXIMUM MOTION IS +20.47" AND -20.47" FROM THE ORIGIN 225 /IN FACT THE MAXIMUM DIFFERENCE BETWEEN TWO POINTS IS ALSO 226 /RESTRICTED TO +20.47" OR -20.47" SO THAT IN SOME CASES TWO 227 /CALLS MAY BE REQUIRED TO REACH A POINT. 228 229 /THIS VERSION PERMITS ROTATING THE AXES IN 45 DEGREE INCRE- 230 /MENTS. THIS FEATURE IS USEFUL FOR PLACING THE X AXIS ALONG 231 /THE CARRIAGE (ROTATION BY 2) AND IS ALSO USED BY THE LABEL 232 /ROUTINE. PLOTTING DONE WITH A ROTATION OF AN ODD MULTIPLE 233 /OF 45 DEGREES WILL BE "STRETCHED" UNIFORMLY BY THE SQRT(2) 234 /DUE TO THE NATURE OF THE PLOTTER MOTIONS. 235 236 FIELD 0 237 PAGE 5 238 001200 0000 PDIR, 0 /PLOT ROTATION 239 001201 0000 LDIR, 0 /LABEL DIRECTION 240 001202 0000 TDIR, 0 241 001203 0007 PL07, 7 /MASK 242 001204 1205 PLOP, PLD0 243 001205 6521 PLD0, PLPL /PLOTTER OPERATION TABLE 244 001206 4615 PLD1, JMS I PLD8 245 001207 6514 PLD2, PLDD 246 001210 6515 PLD3, PLPR PLDD 247 001211 6511 PLD4, PLPR 248 001212 6513 PLD5, PLPR PLDU 249 001213 6512 PLD6, PLDU 250 001214 6523 PLD7, PLPL PLUD 251 001215 1321 PLD8, PLD9 /FOR MARK'S CONVENIENCE 252 001216 1710 PLPO, PEN /PEN CONTROL ROUTINE 253 001217 1734 PWGT, WAIT /QUEUE CONTROL 254 255 001220 0000 ROTATE, 0 /ROTATE IN 45 DEGREE STEPS 256 001221 1200 TAD PDIR /ADD PLOT ROTATION (0-7) 257 001222 1202 TAD TDIR /AND LABEL ROTATION (IF ANY) 258 001223 0203 AND PL07 /MODULO EIGHT 259 001224 1204 TAD PLOP /ADD CODE FOR PLD0 260 001225 3321 DCA PLD9 /SAVE TABLE ADDRESS 261 001226 1721 TAD I PLD9 /GET INSTRUCTION 262 001227 5620 JMP I ROTATE /AND RETURN 263 001230 0000 PL0T, 0 264 001231 4617 JMS I PWGT /WAIT FOR PREVIOUS MOTION 265 001232 7510 SPA /TEST FOR NEGATIVE LINE VALUE 266 001233 3332 DCA DIAG /CLEAR AC AND SAVE -1 267 001234 4616 JMS I PLPO /CHECK & SET PEN POSITION 268 269 001235 4353 JMS DXY /GET X, COMPARE WITH OLD VALUE 270 001236 0000 LX, 0 /LAST X VALUE 271 001237 3351 DCA DX /STORE ABSOLUTE X MOTION 272 001240 4353 JMS DXY /GET Y, COMPARE WITH OLD VALUE 273 001241 0000 LY, 0 /LAST Y VALUE 274 001242 7161 STL CIA /NEGATE DY 275 001243 1351 TAD DX /AC=DX-DY 276 001244 7630 SZL CLA /LINK=0 IF DX>DY 277 001245 5255 JMP DYGTDX 278 279 001246 1351 DXGTDY, TAD DX /EXCHANGE DY AND DX 280 001247 3353 DCA DXY 281 001250 1352 TAD DY 282 001251 3351 DCA DX 283 001252 1353 TAD DXY 284 001253 3352 DCA DY 285 001254 7001 IAC /SET BIT 10 (SIGN OF X) 286 287 001255 7001 DYGTDX, IAC /SET BIT 11 (SIGN OF Y) 288 001256 0332 AND DIAG /CHECK FOR NEGATIVE VALUES 289 001257 7420 SNL /SKIP IF DY>DX 290 001260 7010 RAR /SIGN OF X -> BIT 11; LINK=0 291 001261 7026 CML RTL /BIT 11 + LINK = DIRECTION/4 292 001262 4220 JMS ROTATE /ADD ROTATION 293 001263 3334 DCA AXIS /STORE IN AXIS INSTRUCTION 294 295 001264 1332 TAD DIAG /CHECK ON SIGNS AGAIN 296 001265 7012 RTR 297 001266 7430 SZL /MODIFY SIGNS TO REFLECT 298 001267 7040 CMA /PLOTTER DIRECTIONS 299 001270 7006 RTL 300 001271 7124 STL RAL /2*RESULT+1 = DIRECTION 301 001272 4220 JMS ROTATE /ADD ROTATION 302 001273 3332 DCA DIAG /STORE IN DIAGONAL INSTRUCTION 303 304 001274 7001 STRCH, IAC /FIND OUT IF ROTATION 305 001275 0321 AND PLD9 /IS EVEN OR ODD 306 001276 7650 SNA CLA /TABLE AT ODD ADDRESS 307 001277 5304 JMP SETUP /EVEN: CONTINUE 308 001300 1351 TAD DX /ODD: ADJUST RATIO 309 001301 1352 TAD DY 310 001302 3352 DCA DY 311 001303 1351 TAD DX /DOUBLE DIAGONAL STEPS 312 001304 1351 SETUP, TAD DX /DX IS MINOR MOTION 313 001305 7041 CIA /NEGATE FOR EASY SUBTRACTION 314 001306 3351 DCA DX 315 001307 1352 TAD DY /DY IS MAJOR MOTION 316 IFDEF FIVMIL 317 001310 7040 IFNDEF FIVMIL /TIMES TWO FOR 5 MIL MODEL 318 001311 3353 DCA DXY /SAVE THE STEP COUNTER 319 001312 1352 TAD DY 320 001313 7110 CLL RAR /OFFSET QUOTIENT BY HALF 321 001314 3220 DCA ROTATE 322 001315 6001 ION /INTERRUPTS ARE OK NOW 323 001316 2230 ISZ PL0T 324 001317 2230 ISZ PL0T 325 001320 5630 JMP I PL0T /SKIP TWO WORDS AND RETURN 326 327 001321 0000 PLD9, 0 /PLACED HERE TO RESERVE SPACE 328 001322 6521 PLPL /FOR THE XY8E VERSION 329 001323 6514 PLDD 330 001324 5721 JMP I PLD9 331 332 001325 1220 LOOP, TAD ROTATE /GET THE RUNNING SUM 333 001326 1351 TAD DX /SUBTRACT DIAGONAL INCREMENT 334 001327 7500 SMA /TEST IF DIAG MOTION REQUIRED 335 001330 5334 JMP AXIS /NO 336 001331 1352 TAD DY /YES: RESTORE AXIS INCREMENT 337 001332 0000 DIAG, 0 /COMBINED MOTION (X + Y) 338 001333 7410 SKP 339 001334 0000 AXIS, 0 /SINGLE MOTION (X OR Y) 340 001335 3220 DCA ROTATE /SAVE THE RUNNING SUM 341 001336 6501 PINT, PLSF /IS IT THE PLOTTER? 342 001337 5346 JMP PXIT /NO 343 001340 6502 PLCF 344 001341 1353 TAD DXY /CHECK COUNTER 345 001342 7650 SNA CLA 346 001343 5346 JMP PXIT /FALSE ALARM 347 001344 2353 ISZ DXY /COUNT THE STEPS 348 001345 5325 JMP LOOP 349 001346 6212 PXIT, CIF P /RETURN TO SKIP CHAIN 350 001347 5750 JMP I .+1 351 001350 3115 UINT+3 352 353 001351 0000 DX, 0 /ABSOLUTE VALUE OF X MOTION 354 001352 0000 DY, 0 /ABSOLUTE VALUE OF Y MOTION 355 001353 0000 DXY, 0 356 001354 1753 TAD I DXY /GET LAST X OR LAST Y 357 001355 7041 CIA /NEGATE 358 001356 1630 TAD I PL0T /AC=NEW-OLD 359 001357 7100 CLL /SET LINK FOR POSITIVE SIGN 360 001360 7510 SPA /TEST FOR SIGN 361 001361 7061 CML CIA /REMEMBER SIGN & NEGATE 362 001362 3352 DCA DY /STORE ABSOLUTE Y MOTION 363 001363 1332 TAD DIAG 364 001364 7004 RAL /SAVE MINUS SIGN 365 001365 3332 DCA DIAG 366 001366 7420 SNL /CHECK FOR NEW ORIGIN 367 001367 1630 TAD I PL0T /GET NEW VALUE 368 001370 3753 DCA I DXY /REPLACE PREVIOUS ONE 369 001371 1352 TAD DY /SET AC FOR NEXT OPERATION 370 001372 2230 ISZ PL0T /SET NEXT ADDRESS 371 001373 2353 ISZ DXY /SET RETURN ADDRESS 372 001374 5753 JMP I DXY /RETURN 373 /THIS ROUTINE DRAWS ANY ASCII SYMBOL ON THE PLOTTER. 374 /IN ADDITION TO THE 96 ASCII SYMBOLS, THE CODES FOR 375 /CR, LF AND BS ARE RECOGNIZED AND USED TO SIMULATE 376 /THOSE FUNCTIONS. SYMBOLS ARE BASED ON A 6 X 7 GRID 377 /OF WHICH ONLY 4 X 6 IS USED. SIZE 2 CHARACTERS ARE 378 /THUS .08" X .12" WITH .04" BETWEEN THEM. LF MOVES 379 /0.1" X SIZE BELOW THE PRESENT LINE, BUT ONLY WORKS 380 /UNTIL THE NEXT 'PLOT' COMMAND MOVES THE PEN. 381 382 001375 1201 F1NAL, TAD LDIR /GET LABEL DIRECTION 383 001376 3202 DCA TDIR 384 001377 1236 TAD LX /SAVE CURRENT POSITION 385 / PAGE BOUNDARY 386 001400 3231 DCA SX 387 001401 1231 TAD SX /"S" MEANS STARTING 388 001402 3224 DCA RX /"R" MEANS RUNNING 389 001403 1611 TAD I YL 390 001404 3232 DCA SY 391 001405 1232 TAD SY 392 001406 3225 DCA RY 393 001407 5031 JMP EXIT /RETURN FROM 'PLOT' COMMAND 394 001410 1752 R6, R6R 395 001411 1241 YL, LY 396 397 001412 0000 M0VE, 0 /ROUTINE TO CALL PLOT 398 001413 1225 TAD RY /ADD STARTING VALUE TO AC 399 001414 3223 DCA IY /TO GET NEXT Y POSITION 400 001415 1224 TAD RX /GET START OF THIS LETTER 401 001416 1222 TAD IX /ADD IN X INCREMENT 402 001417 3222 DCA IX /TO GET NEXT X POSITION 403 001420 1774 TAD I LN /GET THE LINE VALUE 404 001421 4772 PLOT /CALL PLOT TO MOVE THE PEN 405 001422 0000 IX, 0 /X COORDINATE 406 001423 0000 IY, 0 /Y COORDINATE 407 001424 0000 RX, 0 /THESE TWO ARE SKIPPED 408 001425 0000 RY, 0 409 001426 5612 JMP I M0VE 410 411 001427 0000 LTAD, 0 412 001430 4772 PLOT /RETURN TO THE BEGINNING 413 001431 0000 SX, 0 414 001432 0000 SY, 0 415 001433 7752 N26, 212-240 /CHANGE THESE VALUES IF YOU 416 001434 0350 TBAD, SPACE /EXPAND THE CHARACTER TABLE 417 001435 6213 CDI P 418 001436 5627 JMP I LTAD /AND RETURN TO FOCAL 419 420 001437 1627 ZER0, TAD I LTAD /LOOK AT THIS WORD 421 001440 2227 ISZ LTAD /POINT TO NEXT ONE 422 001441 7040 CMA 423 001442 0007 N7, AND K77 424 001443 7650 SNA CLA /DOES IT END IN 77 ? 425 001444 2774 HALF, ISZ I LN /YES: FOUND IT ? 426 001445 5237 JMP ZER0 /NO: KEEP GOING 427 001446 1627 ONE, TAD I LTAD /GET FIRST MOVE 428 001447 4610 JMS I R6 /'BSW' 429 001450 4255 JMS TWO 430 001451 1627 TAD I LTAD /GET SECOND MOVE 431 001452 4255 JMS TWO 432 001453 2227 ISZ LTAD /ADVANCE TO NEXT WORD 433 001454 5246 JMP ONE /CONTINUE 434 435 001455 0000 TWO, 0 436 001456 0007 AND K77 /GET RID OF THE OTHER PIECE 437 001457 3212 DCA M0VE /AND SAVE MOVE 438 001460 7126 STL RTL /=2 - TRICKY WAY TO GET -76 439 001461 1270 TAD THREE /THIS INSTRUCTION ADDS 7700 440 001462 1212 TAD M0VE /ADD -76 TO MOVE 441 001463 7540 SMA SZA /TEST FOR 77 = END 442 001464 5313 JMP SIX /MOVE TO POSITION (5,0) 443 001465 7450 SNA /CHECK FOR PEN UP 444 001466 5306 JMP FOUR /76 MEANS RAISE THE PEN 445 001467 7001 IAC 446 001470 7700 THREE, SMA CLA /TEST FOR 75 (INST=7700) 447 001471 5310 JMP FIVE /75 MEANS REVERSE NEXT Y 448 449 001472 1212 TAD M0VE /GET X MOTION 450 001473 7010 RAR 451 001474 7012 RTR 452 001475 4357 JMS MULT /MULTIPLY BY SIZE 453 001476 3222 DCA IX /"I" MEANS "INCREMENTAL" 454 001477 1212 TAD M0VE /GET Y MOTION 455 001500 4357 JMS MULT 456 001501 2772 ISZ I NY /CHECK DESCENDER SWITCH 457 001502 7410 SKP /NOTE: 'PLOT' RESETS IT 458 001503 7041 CIA 459 001504 4212 JMS M0VE /"IY" IS IN AC 460 001505 7001 IAC 461 001506 3774 FOUR, DCA I LN /SET THE PEN DOWN 462 001507 5655 JMP I TWO /GET NEXT BYTE 463 464 001510 7040 FIVE, CMA /SET THE DESCENDER SWITCH 465 001511 3772 DCA I NY 466 001512 5655 JMP I TWO 467 468 001513 7344 SIX, STA CLL RAL /-2 EQUALS WIDTH OF LETTER 469 001514 4357 JMS MULT /TIMES SIZE 470 001515 3222 DCA IX /STORE MOTION AND SET IY=0 471 001516 3774 DCA I LN /MOVE WITH THE PEN UP 472 001517 4212 JMS M0VE /"IY"=0 473 001520 1222 TAD IX 474 001521 3224 DCA RX /UPDATE CURRENT X VALUE 475 001522 5354 JMP SEVEN /END OF THIS LETTER 476 001523 7344 PBS, STA CLL RAL /-2 IS THE SAME AS 6 477 001524 4357 JMS MULT /TIMES SIZE 478 001525 7041 CIA /MOVE BACK A LETTER 479 001526 5315 JMP SIX+2 /CLEAR IX,IY(=AC), AND LN 480 481 001527 1231 PCR, TAD SX /GET STARTING VALUE 482 001530 3224 DCA RX /AND RESET RX 483 001531 5315 JMP SIX+2 484 485 001532 3222 PLF, DCA IX /SET IX TO ZERO 486 001533 7146 CMA CLL RTL /-3=5 487 001534 4357 JMS MULT /5*SIZE 488 001535 7004 RAL /TIMES 2 489 001536 7041 CIA /AND NEGATE 490 001537 4212 JMS M0VE /TO (RX,-10*SIZE) 491 001540 1223 TAD IY 492 001541 3225 DCA RY /UPDATE RY 493 494 001542 7510 PLC, SPA /ASCII-LF IN THE AC 495 001543 5323 JMP PBS /ANYTHING < LF = BS 496 001544 7100 CLL 497 001545 1233 TAD N26 /TEST FOR CONTROL CODES 498 001546 7040 CMA 499 001547 3774 DCA I LN /SAVE THE LETTER COUNT 500 001550 1234 TAD TBAD /LOAD STARTING ADDRESS 501 001551 3227 DCA LTAD /INTO SEARCH ADDRESS 502 001552 7430 SZL /CHECK FOR CONTROL CHARS 503 001553 5244 JMP HALF /AND GO SEARCH 504 505 001554 6213 SEVEN, CDI P /EXIT FROM 'LABEL' 506 001555 5756 JMP I .+1 507 001556 3203 LABEL+3 508 509 001557 0000 MULT, 0 510 001560 0242 AND N7 /MASK LOW ORDER DIGIT 511 001561 7040 CMA /EQUALS -(MOVE+1) 512 001562 3223 DCA IY /STORE IN STEP COUNTER 513 001563 7410 SKP /IN CASE MLPR=0 514 001564 1371 TAD S1ZE /ADD MCND UNTIL 515 001565 2223 ISZ IY /MLPR RUNS OUT 516 001566 5364 JMP .-2 517 001567 7110 CLL RAR 518 001570 5757 JMP I MULT 519 001571 0000 S1ZE, 0 /THIS IS 2X THE LETTER SIZE 520 521 PLOT= JMS I . /THIS RESETS THE 522 001572 1230 NY, PL0T /DESCENDER SWITCH 523 524 001573 1202 TD, TDIR /FOR XPLT 525 001574 1602 LN, M-1 /PEN POSITION 526 /PDP 8 CALCOMP ROUTINE: MARK 527 528 /THIS ROUTINE DRAWS A SPECIFIED MARK CENTERED AT THE 529 /CURRENT PLOTTER POSITION. MARK 0 IS A NULL AND NO 530 /ACTION OCCURS. SPECIFYING A NON-EXISTENT MARK WILL 531 /CAUSE A SIMILAR EXIT. 532 533 /MARKS ARE CODED AT THE END OF THE PROGRAM ACCORDING 534 /TO THE FOLLOWING PLAN: RDRD,RDRD,... WHERE R = 535 /REPETITION NUMBER (0-7) AND D = PLOTTER DIRECTION 536 /(0-7). DIRECTIONS ARE COMPUTED RELATIVE TO ANY RO- 537 /TATION SPECIFIED BY PLOT. THIS PERMITS MARKS WITHOUT 538 /C/8 SYMMETRY TO FOLLOW ROTATIONS OF THE AXES. 539 /RD = 00/01 SPECIFIES PEN UP/DOWN AND RD = 07 OR 0707 540 /SIGNIFIES THE END OF A MARK. THE CODE 0706 FOLLOWS 541 /THE LAST MARK. THE TABLE MAY BE CHANGED AS DESIRED. 542 543 544 001575 3773 XPLT, DCA I TD /ENTRY FROM PLOT CALL 545 001576 1774 TAD I LN /CLEAR TDIR & GET L 546 547 001577 4772 PLOT 548 001600 0000 X, 0 /CALLING PARAMETERS 549 001601 0000 Y, 0 /ARE STORED HERE IN 550 001602 0000 0 /SEQUENCE 551 001603 0000 M, 0 552 553 001604 1203 MARK, TAD M /GET MARK NUMBER 554 001605 7550 SPA SNA /TEST FOR MARK >0 555 001606 5614 JMP I D0NE /ZERO = NONE 556 001607 7041 CIA /NEGATE 557 001610 3242 DCA ZWEI /STORE IN MARK COUNTER 558 001611 1216 TAD TABL /GET START OF MARK TABLE 559 001612 3203 DCA MKAD 560 001613 5230 JMP HALB 561 562 001614 1375 D0NE, F1NAL 563 001615 1321 MRK1, PLD9 /FOR DIRECTION 1 564 001616 1757 TABL, D0T /FIRST MARK 565 001617 7771 M7, -7 566 567 001620 7001 NULL, IAC /TEST FOR END OF TABLE 568 001621 7650 SNA CLA 569 001622 5614 JMP I D0NE /NON-EXISTENT MARK 570 001623 1603 TAD I MKAD /LOOK AT THIS WORD 571 001624 2203 ISZ MKAD /AND POINT TO NEXT 572 001625 0007 AND K77 /ONLY KEEP LOWER BYTE 573 001626 1217 TAD M7 574 001627 7450 SNA /END OF THIS MARK ? 575 001630 2242 HALB, ISZ ZWEI /HAVE WE FOUND IT ? 576 001631 5220 JMP NULL /NO 577 001632 4334 JMS WAIT /PROTECT PLOT ORIGIN 578 001633 1603 EINS, TAD I MKAD /GET FIRST MOTION 579 001634 4352 JMS R6R /'BSW' ON AN 8/E 580 001635 4242 JMS ZWEI 581 001636 1603 TAD I MKAD /GET SECOND MOTION 582 001637 4242 JMS ZWEI 583 001640 2203 ISZ MKAD /ADVANCE 584 001641 5233 JMP EINS /CONTINUE 585 MKAD= M 586 587 001642 0000 ZWEI, 0 588 001643 0007 AND K77 /GET RID OF THE OTHER PIECE 589 001644 3200 DCA X /TEMPORARY STORAGE 590 001645 1217 TAD M7 591 001646 1200 TAD X /NOW LOOK AT CODE 592 001647 7450 SNA /TEST FOR END OF MARK 593 001650 5614 JMP I D0NE /RETURN WITH AC=0 594 001651 7700 SMA CLA /TEST FOR PEN MOTION 595 001652 5256 JMP DREI /EXECUTE XY MOTION 596 001653 1200 TAD X /GET PEN CODE 597 001654 4310 JMS PEN /MOVE PEN IF NECESSARY 598 001655 5642 JMP I ZWEI /DO NEXT OPERATION 599 600 001656 7126 DREI, STL RTL /COMPENSATE FOR OFFSET 601 001657 1200 TAD X /GET DIRECTION 602 001660 1706 TAD I MDIR /ADD ROTATION 603 001661 4707 JMS I PLTR /FORMULATE AND 604 001662 3301 DCA VIER+3 /SAVE INSTRUCTION 605 001663 1615 TAD I MRK1 /CHECK ROTATION 606 001664 0200 AND X /FOR ODDNESS 607 001665 7050 CMA RAR /SAVE -(BIT 11) 608 001666 7240 CLA CMA 609 001667 0200 AND X /GET REPETITION 610 001670 0271 AND .+1 /STRIP BITS 6-8 611 001671 7470 SZL SNA /SAME AS SZL BUT CODE XX70 612 001672 7110 CLL RAR /SKIP = EFFECTIVE X2 613 IFDEF FIVMIL /ANOTHER FACTOR OF 2 614 001673 7012 IFNDEF FIVMIL /FOR THE 5 MIL MODEL 615 001674 7041 CIA /NEGATE 616 001675 3200 DCA X 617 618 001676 6501 VIER, PLSF /WAIT FOR THE PLOTTER 619 001677 5276 JMP .-1 620 001700 6502 PLCF 621 001701 0000 0 /PLOTTER INSTRUCTION 622 001702 7200 CLA /FOR 'XY8E' 623 001703 2200 ISZ X /TEST LOOP COUNT 624 001704 5276 JMP VIER /KEEP GOING 625 001705 5642 JMP I ZWEI /GET NEXT BYTE 626 627 001706 1201 MDIR, LDIR /MARK ROTATION 628 001707 1220 PLTR, ROTATE 629 001710 0000 PEN, 0 /CHECK PEN POSITION 630 001711 7106 CLL RTL /AC=0->PEN UP; AC=1->DOWN 631 001712 7126 STL RTL /SHIFT BIT INTO PLACE 632 001713 1331 TAD PNOP-1 /ADD CODE FOR PEN UP 633 001714 7161 STL CIA /NEGATE 634 001715 1332 TAD PNOP /OLD - NEW 635 001716 7440 SZA /OLD = NEW ? 636 001717 7041 CIA /NEW - OLD 637 001720 1332 TAD PNOP /NEW 638 001721 3332 DCA PNOP 639 001722 1750 TAD I MOTN /IS THE FLAG ACTIVE? 640 001723 7650 SNA CLA 641 001724 5332 JMP PNOP /NO, MOVE THE PEN TO SET IT 642 001725 7420 SNL /NEW PEN POSITION? 643 001726 5710 JMP I PEN /NO 644 001727 6501 PLSF /ALLOW PLOTTER TO FINISH 645 001730 5327 JMP .-1 646 001731 6502 PLCF 647 001732 6524 PNOP, PLPD /PUT PEN UP INITIALLY 648 001733 5710 JMP I PEN 649 650 001734 0000 WAIT, 0 /QUEUE CONTROL 651 001735 3310 DCA PEN /SAVE THE AC 652 001736 6001 ION 653 001737 1750 TAD I MOTN /MOTION COUNTER 654 001740 7440 SZA /ARE WE DONE? 655 001741 7001 IAC 656 001742 7640 SZA CLA /OR ALMOST DONE? 657 001743 5336 JMP .-5 /NO 658 001744 6002 IOF 659 001745 3751 DCA I PSGN /CLEAR THE SIGN REGISTER 660 001746 1310 TAD PEN /RESTORE THE AC 661 001747 5734 JMP I WAIT 662 001750 1353 MOTN, DXY /MOTION COUNTER 663 001751 1332 PSGN, DIAG 664 665 001752 0000 R6R, 0 /IMPLEMENT 'BSW' 666 001753 7012 RTR 667 001754 7012 RTR 668 001755 7012 RTR 669 001756 5752 JMP I R6R 670 671 672 /NEXT COME THE MARKS: 673 001757 0110 D0T, 0110 /MARK NUMBER 1 674 001760 1315 1315 675 001761 1016 1016 676 001762 2216 2216 677 001763 1015 1015 678 001764 1310 1310 679 001765 0007 0007 680 001766 0152 BAR, 0152 /MARK NUMBER 2 681 001767 5656 5656 682 001770 5207 5207 683 001771 0150 TICK, 0150 /MARK NUMBER 3 684 001772 5054 5054 685 001773 5407 5407 686 001774 0142 PMARK, 0142 /MARK NUMBER 4 687 001775 4646 4646 688 001776 4244 4244 689 001777 4040 4040 690 002000 4407 4407 691 002001 0131 XMARK, 0131 /MARK NUMBER 5 692 002002 6531 6531 693 002003 3367 3367 694 002004 3307 3307 695 002005 0025 CIRCLE, 0025 /MARK NUMBER 6 696 002006 0117 0117 697 002007 2021 2021 698 002010 2223 2223 699 002011 2425 2425 700 002012 2617 2617 701 002013 0021 0021 702 002014 0707 0707 703 002015 0125 SCIRCL, 0125 /MARK NUMBER 7 704 002016 1720 1720 705 002017 2122 2122 706 002020 2324 2324 707 002021 2526 2526 708 002022 1730 1730 709 002023 1122 1122 710 002024 1324 1324 711 002025 1526 1526 712 002026 3022 3022 713 002027 2416 2416 714 002030 1007 1007 715 002031 0021 TRIANG, 0021 /MARK NUMBER 8 716 002032 0113 0113 717 002033 1413 1413 718 002034 1413 1413 719 002035 5656 5656 720 002036 1021 1021 721 002037 1011 1011 722 002040 1011 1011 723 002041 1011 1011 724 002042 1423 1423 725 002043 1400 1400 726 002044 2507 2507 727 002045 0121 STRIAN, 0121 /MARK NUMBER 9 728 002046 1314 1314 729 002047 1314 1314 730 002050 1356 1356 731 002051 5610 5610 732 002052 2110 2110 733 002053 1110 1110 734 002054 1110 1110 735 002055 1114 1114 736 002056 2334 2334 737 002057 1314 1314 738 002060 7621 7621 739 002061 1011 1011 740 002062 1011 1011 741 002063 1412 1412 742 002064 3413 3413 743 002065 4611 4611 744 002066 1011 1011 745 002067 2407 2407 746 002070 0035 SQUARE, 0035 /MARK NUMBER 10 747 002071 0160 0160 748 002072 6264 6264 749 002073 6600 6600 750 002074 3107 3107 751 002075 0137 SSQUAR, 0137 /MARK NUMBER 11 752 002076 6264 6264 753 002077 6650 6650 754 002100 5244 5244 755 002101 4630 4630 756 002102 3224 3224 757 002103 2610 2610 758 002104 1207 1207 759 002105 0023 DIAMND, 0023 /MARK NUMBER 12 760 002106 0125 0125 761 002107 4741 4741 762 002110 4325 4325 763 002111 0027 0027 764 002112 0707 0707 765 002113 0123 SDIAMN, 0123 /MARK NUMBER 13 766 002114 2547 2547 767 002115 4143 4143 768 002116 2516 2516 769 002117 1537 1537 770 002120 3133 3133 771 002121 1516 1516 772 002122 1527 1527 773 002123 2123 2123 774 002124 1615 1615 775 002125 1711 1711 776 002126 1407 1407 777 002127 0152 ASTRSK, 0152 /MARK NUMBER 14 778 002130 5656 5656 779 002131 5244 5244 780 002132 4040 4040 781 002133 4431 4431 782 002134 6531 6531 783 002135 3367 3367 784 002136 3307 3307 785 002137 0024 STAR, 0024 /MARK NUMBER 15 786 002140 0125 0125 787 002141 1615 1615 788 002142 1011 1011 789 002143 2011 2011 790 002144 2011 2011 791 002145 2011 2011 792 002146 1413 1413 793 002147 1413 1413 794 002150 2413 2413 795 002151 2413 2413 796 002152 1417 1417 797 002153 1627 1627 798 002154 1627 1627 799 002155 1627 1627 800 002156 6262 6262 801 002157 2516 2516 802 002160 2516 2516 803 002161 0020 0020 804 002162 0707 0707 805 002163 0032 CROSS, 0032 /MARK NUMBER 16 806 002164 1001 1001 807 002165 2721 2721 808 002166 6623 6623 809 002167 2527 2527 810 002170 6421 6421 811 002171 2325 2325 812 002172 6227 6227 813 002173 2123 2123 814 002174 6025 6025 815 002175 0014 0014 816 002176 3607 3607 817 002177 0706 LAST, 0706 /END OF THE MARK TABLE 818 819 PAGE /ROOM FOR ADDITIONS 820 *PDIR-630 /FOLLOWING THE LPT CHECK 821 000350 7777 SPACE, 7777 /'CONTROL' CODES COME BEFORE THIS 822 000351 2622 EXCLPT, 2622 /CHARACTER TABLE FOR CALCOMP PLOTTER 823 000352 7621 7621 824 000353 2077 2077 825 000354 1614 QUOTE, 1614 826 000355 7636 7636 827 000356 3477 3477 828 000357 1026 NUMSGN, 1026 /CHARACTERS ARE CODED USING A 4X6 MATRIX 829 000360 7614 7614 /ASSUMING $D=2. EACH BYTE IS AN XY PAIR. 830 000361 4476 4476 /CODE '75' SIGNALS A MOVE BELOW THE LINE 831 000362 4630 4630 /CODE '76' IS USED TO RAISE THE PEN. 832 000363 7612 7612 /CODE '77' MARKS THE END-OF-CHARACTER. 833 000364 4277 4277 / 834 000365 0110 DOLLAR, 0110 /EXAMPLE: THE LETTER 'A' 835 000366 3041 3041 / 836 000367 4233 4233 / 6 . ----- . 837 000370 1304 1304 / 0004 5 ./. . .\. 838 000371 0516 0516 / 1636 4 / . . . \ 839 000372 3645 3645 / 4443 3 !-------! 840 000373 3626 3626 / 0343 2 ! . . . ! 841 000374 2077 2077 / 4077 1 ! . . . ! 842 000375 0046 PERCNT, 0046 / 0 ! . . . ! 843 000376 7614 7614 / 0 1 2 3 4 844 000377 0516 0516 / 845 000400 2514 2514 /THE PEN IS RAISED AT THE BEGINNING AND 846 000401 7630 7630 /LOWERED AFTER THE FIRST (OR NEXT) MOVE. 847 000402 2132 2132 848 000403 4130 4130 849 000404 7777 7777 850 000405 4220 AMPER, 4220 851 000406 0001 0001 852 000407 2516 2516 853 000410 0540 0540 854 000411 7777 7777 855 000412 2624 APOST, 2624 856 000413 7777 7777 857 000414 2012 LPAREN, 2012 858 000415 1426 1426 859 000416 7777 7777 860 000417 2032 RPAREN, 2032 861 000420 3426 3426 862 000421 7777 7777 863 000422 0145 ASTER, 0145 864 000423 2320 2320 865 000424 2623 2623 866 000425 0541 0541 867 000426 7777 7777 868 000427 2125 PLUS, 2125 869 000430 2303 2303 870 000431 4377 4377 871 000432 7511 COMMA, 7511 872 000433 2021 2021 873 000434 1110 1110 874 000435 2077 2077 875 000436 0343 MINUS, 0343 876 000437 7777 7777 877 000440 2021 PERI0D, 2021 878 000441 1110 1110 879 000442 2077 2077 880 000443 0046 SLASH, 0046 881 000444 7777 7777 882 000445 4230 NMBR0, 4230 883 000446 1002 1002 884 000447 0416 0416 885 000450 3644 3644 886 000451 4277 4277 887 000452 0040 NMBR1, 0040 888 000453 2026 2026 889 000454 1577 1577 890 000455 0516 NMBR2, 0516 891 000456 3645 3645 892 000457 4401 4401 893 000460 0040 0040 894 000461 7777 7777 895 000462 0110 NMBR3, 0110 896 000463 3041 3041 897 000464 4233 4233 898 000465 1333 1333 899 000466 4445 4445 900 000467 3616 3616 901 000470 0577 0577 902 000471 3036 NMBR4, 3036 903 000472 0242 0242 904 000473 7777 7777 905 000474 0110 NMBR5, 0110 906 000475 3041 3041 907 000476 4233 4233 908 000477 0306 0306 909 000500 4677 4677 910 000501 2602 NMBR6, 2602 911 000502 0110 0110 912 000503 3041 3041 913 000504 4233 4233 914 000505 2377 2377 915 000506 2046 NMBR7, 2046 916 000507 0677 0677 917 000510 1333 NMBR8, 1333 918 000511 4241 4241 919 000512 3010 3010 920 000513 0102 0102 921 000514 1304 1304 922 000515 0516 0516 923 000516 3645 3645 924 000517 4433 4433 925 000520 7777 7777 926 000521 2044 NMBR9, 2044 927 000522 4536 4536 928 000523 1605 1605 929 000524 0413 0413 930 000525 3377 3377 931 000526 1121 C0L0N, 1121 932 000527 2212 2212 933 000530 1176 1176 934 000531 1424 1424 935 000532 2515 2515 936 000533 1477 1477 937 000534 1021 SCOLON, 1021 938 000535 2212 2212 939 000536 1121 1121 940 000537 7624 7624 941 000540 2515 2515 942 000541 1424 1424 943 000542 7777 7777 944 000543 3513 LSTHAN, 3513 945 000544 3177 3177 946 000545 4404 EQUAL, 4404 947 000546 7602 7602 948 000547 4277 4277 949 000550 1133 GTTHAN, 1133 950 000551 1577 1577 951 000552 1426 QUESTN, 1426 952 000553 3645 3645 953 000554 4433 4433 954 000555 3077 3077 955 000556 0526 ATSIGN, 0526 956 000557 3644 3644 957 000560 4230 4230 958 000561 1001 1001 959 000562 0314 0314 960 000563 2320 2320 961 000564 7777 7777 962 000565 0004 LTRA, 0004 963 000566 1636 1636 964 000567 4443 4443 965 000570 0343 0343 966 000571 4077 4077 967 000572 0333 LTRB, 0333 968 000573 4241 4241 969 000574 3000 3000 970 000575 0636 0636 971 000576 4544 4544 972 000577 3377 3377 973 000600 4536 LTRC, 4536 974 000601 1605 1605 975 000602 0110 0110 976 000603 3041 3041 977 000604 7777 7777 978 000605 3000 LTRD, 3000 979 000606 0636 0636 980 000607 4541 4541 981 000610 3077 3077 982 000611 4606 LTRE, 4606 983 000612 0333 0333 984 000613 0300 0300 985 000614 4077 4077 986 000615 4606 LTRF, 4606 987 000616 0333 0333 988 000617 0300 0300 989 000620 7777 7777 990 000621 4536 LTRG, 4536 991 000622 1605 1605 992 000623 0110 0110 993 000624 3041 3041 994 000625 4323 4323 995 000626 7777 7777 996 000627 0006 LTRH, 0006 997 000630 0343 0343 998 000631 4640 4640 999 000632 7777 7777 1000 000633 0040 LTRI, 0040 1001 000634 2026 2026 1002 000635 0646 0646 1003 000636 7777 7777 1004 000637 0201 LTRJ, 0201 1005 000640 1030 1030 1006 000641 4146 4146 1007 000642 7777 7777 1008 000643 0600 LTRK, 0600 1009 000644 0246 0246 1010 000645 2440 2440 1011 000646 7777 7777 1012 000647 0600 LTRL, 0600 1013 000650 4077 4077 1014 000651 0006 LTRM, 0006 1015 000652 2346 2346 1016 000653 4077 4077 1017 000654 0006 LTRN, 0006 1018 000655 4046 4046 1019 000656 7777 7777 1020 000657 4130 LTRO, 4130 1021 000660 1001 1001 1022 000661 0516 0516 1023 000662 3645 3645 1024 000663 4177 4177 1025 000664 0006 LTRP, 0006 1026 000665 3645 3645 1027 000666 4433 4433 1028 000667 0377 0377 1029 000670 2240 LTRQ, 2240 1030 000671 1001 1001 1031 000672 0516 0516 1032 000673 3645 3645 1033 000674 4130 4130 1034 000675 7777 7777 1035 000676 0006 LTRR, 0006 1036 000677 3645 3645 1037 000700 4433 4433 1038 000701 0323 0323 1039 000702 4077 4077 1040 000703 0110 LTRS, 0110 1041 000704 3041 3041 1042 000705 4233 4233 1043 000706 1304 1304 1044 000707 0516 0516 1045 000710 3645 3645 1046 000711 7777 7777 1047 000712 2026 LTRT, 2026 1048 000713 0646 0646 1049 000714 7777 7777 1050 000715 0601 LTRU, 0601 1051 000716 1030 1030 1052 000717 4146 4146 1053 000720 7777 7777 1054 000721 0620 LTRV, 0620 1055 000722 4677 4677 1056 000723 0610 LTRW, 0610 1057 000724 2330 2330 1058 000725 4677 4677 1059 000726 0046 LTRX, 0046 1060 000727 2306 2306 1061 000730 4077 4077 1062 000731 2023 LTRY, 2023 1063 000732 0623 0623 1064 000733 4677 4677 1065 000734 0646 LTRZ, 0646 1066 000735 0040 0040 1067 000736 7777 7777 1068 000737 3616 LBRAKT, 3616 1069 000740 1030 1030 1070 000741 7777 7777 1071 000742 0640 BSLASH, 0640 1072 000743 7777 7777 1073 000744 1636 RBRAKT, 1636 1074 000745 3010 3010 1075 000746 7777 7777 1076 000747 2026 UPAROW, 2026 1077 000750 0426 0426 1078 000751 4477 4477 1079 000752 7503 UNDRLN, 7503 1080 000753 7543 7543 1081 000754 7777 7777 1082 000755 1634 ACCENT, 1634 /BEGINNING OF LOWER CASE 1083 000756 7777 7777 1084 000757 3120 LTLA, 3120 1085 000760 1001 1001 1086 000761 0314 0314 1087 000762 2433 2433 1088 000763 3430 3430 1089 000764 4077 4077 1090 000765 0600 LTLB, 0600 1091 000766 0110 0110 1092 000767 3041 3041 1093 000770 4334 4334 1094 000771 1403 1403 1095 000772 7777 7777 1096 000773 4334 LTLC, 4334 1097 000774 1403 1403 1098 000775 0110 0110 1099 000776 3041 3041 1100 000777 7777 7777 1101 001000 3646 LTLD, 3646 1102 001001 4041 4041 1103 001002 3010 3010 1104 001003 0103 0103 1105 001004 1434 1434 1106 001005 4377 4377 1107 001006 1242 LTLE, 1242 1108 001007 4334 4334 1109 001010 1403 1403 1110 001011 0110 0110 1111 001012 4077 4077 1112 001013 3526 LTLF, 3526 1113 001014 1510 1510 1114 001015 7603 7603 1115 001016 2377 2377 1116 001017 7502 LTLG, 7502 1117 001020 7513 7513 1118 001021 7533 7533 1119 001022 7542 7542 1120 001023 4334 4334 1121 001024 1403 1403 1122 001025 0110 0110 1123 001026 3041 3041 1124 001027 7777 7777 1125 001030 0600 LTLH, 0600 1126 001031 0314 0314 1127 001032 3443 3443 1128 001033 4077 4077 1129 001034 2625 LTLI, 2625 1130 001035 7614 7614 1131 001036 2420 2420 1132 001037 7777 7777 1133 001040 2625 LTLJ, 2625 1134 001041 7614 7614 1135 001042 2475 2475 1136 001043 2175 2175 1137 001044 1275 1275 1138 001045 0177 0177 1139 001046 0600 LTLK, 0600 1140 001047 0244 0244 1141 001050 2340 2340 1142 001051 7777 7777 1143 001052 1626 LTLL, 1626 1144 001053 2010 2010 1145 001054 3077 3077 1146 001055 0004 LTLM, 0004 1147 001056 0314 0314 1148 001057 2320 2320 1149 001060 2334 2334 1150 001061 4340 4340 1151 001062 7777 7777 1152 001063 0004 LTLN, 0004 1153 001064 0314 0314 1154 001065 3443 3443 1155 001066 4077 4077 1156 001067 0103 LTLO, 0103 1157 001070 1434 1434 1158 001071 4341 4341 1159 001072 3010 3010 1160 001073 0177 0177 1161 001074 7503 LTLP, 7503 1162 001075 0403 0403 1163 001076 1434 1434 1164 001077 4341 4341 1165 001100 3010 3010 1166 001101 0177 0177 1167 001102 7543 LTLQ, 7543 1168 001103 4443 4443 1169 001104 3414 3414 1170 001105 0301 0301 1171 001106 1030 1030 1172 001107 4177 4177 1173 001110 0400 LTLR, 0400 1174 001111 0224 0224 1175 001112 3443 3443 1176 001113 7777 7777 1177 001114 0110 LTLS, 0110 1178 001115 3041 3041 1179 001116 0314 0314 1180 001117 3443 3443 1181 001120 7777 7777 1182 001121 2524 LTLT, 2524 1183 001122 1434 1434 1184 001123 2420 2420 1185 001124 3077 3077 1186 001125 0401 LTLU, 0401 1187 001126 1030 1030 1188 001127 4144 4144 1189 001130 4077 4077 1190 001131 0420 LTLV, 0420 1191 001132 4477 4477 1192 001133 0410 LTLW, 0410 1193 001134 2430 2430 1194 001135 4477 4477 1195 001136 0044 LTLX, 0044 1196 001137 2204 2204 1197 001140 4077 4077 1198 001141 0401 LTLY, 0401 1199 001142 1030 1030 1200 001143 4144 4144 1201 001144 7542 7542 1202 001145 7533 7533 1203 001146 7513 7513 1204 001147 7502 7502 1205 001150 7777 7777 1206 001151 0444 LTLZ, 0444 1207 001152 0040 0040 1208 001153 7777 7777 1209 001154 3626 LBRACE, 3626 1210 001155 2413 2413 1211 001156 2220 2220 1212 001157 3077 3077 1213 001160 2620 VBAR, 2620 1214 001161 7777 7777 1215 001162 1626 RBRACE, 1626 1216 001163 2433 2433 1217 001164 2220 2220 1218 001165 1077 1077 1219 001166 0516 TILDE, 0516 1220 001167 3546 3546 1221 001170 7777 7777 1222 001171 0112 PILLOW, 0112 1223 001172 1405 1405 1224 001173 1434 1434 1225 001174 4534 4534 1226 001175 3212 3212 1227 001176 3241 3241 1228 001177 7777 7777 1229 $$$$ /END OF THE CHARACTER TABLE ACCENT 0755 unreferenced AMPER 0405 unreferenced APOST 0412 unreferenced ASTER 0422 unreferenced ASTRSK 2127 unreferenced ATSIGN 0556 unreferenced AXIN 0016 AXIS 1334 BAR 1766 unreferenced BSLASH 0742 unreferenced C 0000 C0L0N 0526 unreferenced CDI 6203 CIRCLE 2005 unreferenced COMGO 0722 COMMA 0432 unreferenced CROSS 2163 unreferenced D0NE 1614 D0T 1757 DIAG 1332 DIAMND 2105 unreferenced DOLLAR 0365 unreferenced DREI 1656 DX 1351 DXGTDY 1246 unreferenced DXY 1353 DY 1352 DYGTDX 1255 EINS 1633 EQUAL 0545 unreferenced EVAL 1610 EXCLPT 0351 unreferenced EXIT 0031 EXP 0044 F1NAL 1375 FENT 4407 FEXT 0000 FGETIP 0400 FIVE 1510 FIXIT 4560 FLOAT 4552 FMUL 4000 FMULIP 4400 FOUR 1506 FPUTIP 6400 GETR 3277 GS1 1434 GTTHAN 0550 unreferenced HALB 1630 HALF 1444 IX 1422 IY 1423 K77 0007 LABEL 3200 LAST 2177 unreferenced LBRACE 1154 unreferenced LBRAKT 0737 unreferenced LDIR 1201 LN 1574 LOOKUP 3316 LOOP 1325 LPAREN 0414 unreferenced LSTHAN 0543 unreferenced LTAD 1427 LTLA 0757 unreferenced LTLB 0765 unreferenced LTLC 0773 unreferenced LTLD 1000 unreferenced LTLE 1006 unreferenced LTLF 1013 unreferenced LTLG 1017 unreferenced LTLH 1030 unreferenced LTLI 1034 unreferenced LTLJ 1040 unreferenced LTLK 1046 unreferenced LTLL 1052 unreferenced LTLM 1055 unreferenced LTLN 1063 unreferenced LTLO 1067 unreferenced LTLP 1074 unreferenced LTLQ 1102 unreferenced LTLR 1110 unreferenced LTLS 1114 unreferenced LTLT 1121 unreferenced LTLU 1125 unreferenced LTLV 1131 unreferenced LTLW 1133 unreferenced LTLX 1136 unreferenced LTLY 1141 unreferenced LTLZ 1151 unreferenced LTRA 0565 unreferenced LTRB 0572 unreferenced LTRC 0600 unreferenced LTRD 0605 unreferenced LTRE 0611 unreferenced LTRF 0615 unreferenced LTRG 0621 unreferenced LTRH 0627 unreferenced LTRI 0633 unreferenced LTRJ 0637 unreferenced LTRK 0643 unreferenced LTRL 0647 unreferenced LTRM 0651 unreferenced LTRN 0654 unreferenced LTRO 0657 unreferenced LTRP 0664 unreferenced LTRQ 0670 unreferenced LTRR 0676 unreferenced LTRS 0703 unreferenced LTRT 0712 unreferenced LTRU 0715 unreferenced LTRV 0721 unreferenced LTRW 0723 unreferenced LTRX 0726 unreferenced LTRY 0731 unreferenced LTRZ 0734 unreferenced LX 1236 LY 1241 M 1603 M0VE 1412 M2 3325 M4 0105 M7 1617 MARK 1604 unreferenced MDIR 1706 MINUS 0436 unreferenced MKAD 1603 MOTN 1750 MRK1 1615 MULT 1557 N26 1433 N7 1442 NMBR0 0445 unreferenced NMBR1 0452 unreferenced NMBR2 0455 unreferenced NMBR3 0462 unreferenced NMBR4 0471 unreferenced NMBR5 0474 unreferenced NMBR6 0501 unreferenced NMBR7 0506 unreferenced NMBR8 0510 unreferenced NMBR9 0521 unreferenced NOSCAL 3253 NULL 1620 NUMSGN 0357 unreferenced NY 1572 OBLK 5700 ONE 1446 P 0010 P177 0075 PBS 1523 PCR 1527 PDIR 1200 PEN 1710 PERCNT 0375 unreferenced PERI0D 0440 unreferenced PILLOW 1171 unreferenced PINT 1336 PL07 1203 PL0T 1230 PLC 1542 PLCF 6502 PLD0 1205 PLD1 1206 unreferenced PLD2 1207 unreferenced PLD3 1210 unreferenced PLD4 1211 unreferenced PLD5 1212 unreferenced PLD6 1213 unreferenced PLD7 1214 unreferenced PLD8 1215 PLD9 1321 PLDD 6514 PLDU 6512 PLF 1532 PLOOP 3234 PLOP 1204 PLOT 4772 PLOTXY 3214 PLPD 6524 PLPL 6521 PLPO 1216 PLPR 6511 PLPU 6504 unreferenced PLSF 6501 PLTR 1707 PLUD 6522 PLUS 0427 unreferenced PMARK 1774 unreferenced PNOP 1732 PSGN 1751 PT1 0062 PUSHJ 4522 PWGT 1217 PXIT 1346 QUESTN 0552 unreferenced QUOTE 0354 unreferenced R6 1410 R6R 1752 RBRACE 1162 unreferenced RBRAKT 0744 unreferenced ROTATE 1220 RPAREN 0417 unreferenced RX 1424 RY 1425 S1ZE 1571 SBLK 0236 SCALE 3337 SCIRCL 2015 unreferenced SCOLON 0534 unreferenced SDIAMN 2113 unreferenced SETUP 1304 SEVEN 1554 SINBLK 0111 SIX 1513 SLASH 0443 unreferenced SPACE 0350 SQUARE 2070 unreferenced SSQUAR 2075 unreferenced STAR 2137 unreferenced STRCH 1274 unreferenced STRIAN 2045 unreferenced SX 1431 SY 1432 SYMTAB 3331 TABL 1616 TBAD 1434 TD 1573 TDIR 1202 THISOP 0063 THREE 1470 TICK 1771 unreferenced TILDE 1166 unreferenced TRIANG 2031 unreferenced TSTCMA 4543 TWO 1455 UINT 3112 UNDRLN 0752 unreferenced UPAROW 0747 unreferenced VBAR 1160 unreferenced VIER 1676 WAIT 1734 X 1600 XMARK 2001 unreferenced XPLT 1575 Y 1601 unreferenced YL 1411 ZER0 1437 ZWEI 1642