Trailing-Edge
-
PDP-10 Archives
-
BB-4157E-BM
-
fortran-ots-debugger/forpl2.mac
There are 11 other files named forpl2.mac in the archive. Click here to see a list.
SEARCH FORPRM
TV FORPL2 PLOTTER ROUTINES ,6(2031)
SUBTTL FORPLT part 2 -- MACRO routines
COMMENT \
***** Begin Revision History *****
1100 CKS 6-Jul-80
Fix to work with version 6
1351 EDS 16-Mar-81 Q10-04786
Fix TWOSEG and RELOC problems.
***** End Revision History *****
\
PRGEND
;COPYRIGHT (C) 1980,1981 BY DIGITAL EQUIPMENT CORPORATION
;THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED
;ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH THE
;INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER
;COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY
;OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY
;TRANSFERRED.
;THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE
;AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
;CORPORATION.
;DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS
;SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL.
TITLE PLOTF (FEANORIAN CHARACTER SET)
SUBTTL BILL WEIHER: STANFORD A-I; 21 OCT 67
SEARCH FORPRM
TWOSEG 400000
ENTRY PLOTF
PLOTF: REPEAT 40,<XWD 0,0>
XWD 1,SP
XWD 5,LCR
XWD 3,UDOT
XWD 7,SCR
XWD 21,OFTHE
XWD 14,FQA
REPEAT 4,<XWD 0,0>
XWD 17,OF
XWD 11,FHW
XWD 11,F12
XWD 3,OVBR
XWD 11,F11
XWD 17,THE
XWD 12,F0
XWD 11,FTH
XWD 11,FSH
XWD 12,FKH
XWD 17,FDH
XWD 17,FZH
XWD 17,FGH
XWD 17,F7
XWD 17,F8
XWD 11,F9
XWD 5,FOLY
XWD 16,MODR
XWD 13,ALTS
XWD 0,0
XWD 25,ALTZ
XWD 0,0
XWD 0,0
XWD 7,FA
XWD 16,FB
XWD 11,FC
XWD 16,FD
XWD 3,FE
XWD 12,FF
XWD 16,FG
XWD 6,FH
XWD 3,FI
XWD 17,FJ
XWD 11,FK
XWD 10,FL
XWD 17,FM
XWD 17,FN
XWD 12,FO
XWD 11,FP
XWD 14,FQ
XWD 14,FR
XWD 13,FS
XWD 10,FT
XWD 12,FU
XWD 17,FV
XWD 12,FW
XWD 11,FX
XWD 7,FY
XWD 25,FZ
REPEAT 46,<XWD 0,0>
RADIX 10
FSH: BYTE (5) 0,2,15,1,0,13,1,0,8,1,2,6,1,4,6,1,6,8,0,6,21
BYTE (5) 1,6,6,0,11,6
FKH: BYTE (5) 0,0,13,1,0,8,1,2,6,1,4,6,1,6,8,0,0,13,1,6,13
BYTE (5) 0,6,21,1,6,6,0,11,6
FDH: BYTE (5) 0,0,21,1,0,6,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 1,4,4,0,6,11,1,8,13,1,10,13,1,12,11,1,12,6,1,10,4
BYTE (5) 0,17,6
FV: BYTE (5) 0,0,21,1,0,6,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 0,6,11,1,8,13,1,10,13,1,12,11,1,12,6,0,0,6,1,13,6
BYTE (5) 0,17,6
FZH: BYTE (5) 0,2,15,1,0,13,1,0,8,1,2,6,1,4,6,1,6,8,1,6,13
BYTE (5) 1,8,15,0,6,8,1,8,6,1,10,6,1,12,8,0,12,21,1,12,6
BYTE (5) 0,17,6
FGH: BYTE (5) 0,0,13,1,0,8,1,2,6,1,4,6,1,6,8,1,6,13,0,6,8
BYTE (5) 1,8,6,1,10,6,1,12,8,0,0,13,1,12,13,0,12,21,1,12,6
BYTE (5) 0,17,6
F9: BYTE (5) 0,0,13,1,0,6,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 1,4,4,0,11,6
F0: BYTE (5) 0,0,13,1,0,6,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 0,0,6,1,7,6,0,11,6
FT: BYTE (5) 0,0,0,1,0,11,1,2,13,1,4,13,1,6,11,1,6,6,1,4,4
BYTE (5) 0,11,6
FP: BYTE (5) 0,0,0,1,0,11,1,2,13,1,4,13,1,6,11,1,6,6,0,0,6
BYTE (5) 1,7,6,0,11,6
FC: BYTE (5) 0,2,15,1,0,13,1,0,8,1,2,6,1,4,6,1,6,8,0,6,15
BYTE (5) 1,6,0,0,11,6
FK: BYTE (5) 0,0,13,1,0,8,1,2,6,1,4,6,1,6,8,0,0,13,1,6,13
BYTE (5) 1,6,0,0,11,6
FD: BYTE (5) 0,0,0,1,0,11,1,2,13,1,4,13,1,6,11,1,6,6,1,4,4
BYTE (5) 0,6,11,1,8,13,1,10,13,1,12,11,1,12,6,1,10,4,0,17,6
FB: BYTE (5) 0,0,0,1,0,11,1,2,13,1,4,13,1,6,11,1,6,6,0,6,11
BYTE (5) 1,8,13,1,10,13,1,12,11,1,12,6,0,0,6,1,13,6,0,17,6
FJ: BYTE (5) 0,2,15,1,0,13,1,0,8,1,2,6,1,4,6,1,6,8,1,6,13
BYTE (5) 1,8,15,0,6,8,1,8,6,1,10,6,1,12,8,0,12,15,1,12,0
BYTE (5) 0,17,6
FG: BYTE (5) 0,0,13,1,0,8,1,2,6,1,4,6,1,6,8,1,6,13,0,6,8
BYTE (5) 1,8,6,1,10,6,1,12,8,0,0,13,1,12,13,1,12,0,0,17,6
FTH: BYTE (5) 0,0,21,1,0,6,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 1,4,4,0,11,6
FF: BYTE (5) 0,0,21,1,0,6,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 0,0,6,1,7,6,0,11,6
ALTS: BYTE (5) 0,4,15,1,0,11,1,0,8,1,2,6,1,4,6,1,6,8,1,6,10
BYTE (5) 1,4,12,1,3,12,1,2,11,0,11,6
FS: BYTE (5) 0,4,7,1,3,6,1,2,6,1,0,8,1,0,10,1,2,12,1,4,12
BYTE (5) 1,6,10,1,6,7,1,2,3,0,11,6
ALTZ: BYTE (5) 0,4,16,1,0,12,1,0,9,1,2,7,1,4,7,1,6,9,1,6,11
BYTE (5) 1,4,13,1,3,13,1,2,12,0,2,7,1,0,5,1,0,2,1,2,0
BYTE (5) 1,4,0,1,6,2,1,6,4,1,4,6,1,3,6,1,2,5,0,11,6
FZ: BYTE (5) 0,2,0,1,6,4,1,6,7,1,4,9,1,2,9,1,0,7,1,0,5
BYTE (5) 1,2,3,1,3,3,1,4,4,0,4,9,1,6,11,1,6,14,1,4,16
BYTE (5) 1,2,16,1,0,14,1,0,12,1,2,10,1,3,10,1,4,11,0,11,6
FU: BYTE (5) 0,0,16,1,3,19,1,4,19,1,5,18,1,5,17,1,4,16,1,3,16
BYTE (5) 1,2,17,1,2,18,0,0,6
FO: BYTE (5) 0,3,18,1,3,17,1,2,16,1,1,16,1,0,17,1,0,18,1,1,19
BYTE (5) 1,2,19,1,5,16,0,0,6
FI: BYTE (5) 0,3,16,1,3,18,0,0,6
FE: BYTE (5) 0,2,16,1,5,19,0,0,6
FA: BYTE (5) 0,1,16,1,1,18,0,3,18,1,3,20,0,5,16,1,5,18,0,0,6
FOLY: BYTE (5) 0,2,16,1,2,18,0,4,16,1,4,18,0,0,6
OVBR: BYTE (5) 0,1,16,1,5,16,0,0,6
OF: BYTE (5) 0,0,21,1,0,0,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 0,6,11,1,8,13,1,10,13,1,12,11,1,12,6,0,0,6,1,13,6
BYTE (5) 0,17,6
OFTHE: BYTE (5) 0,0,21,1,0,0,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 0,6,11,1,8,13,1,10,13,1,12,11,1,12,6,0,0,6,1,13,6
BYTE (5) 0,0,3,1,6,3,0,17,6
THE: BYTE (5) 0,0,21,1,0,0,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 1,4,4,0,6,11,1,8,13,1,10,13,1,12,11,1,12,6,1,10,4
BYTE (5) 0,17,6
SCR: BYTE (5) 0,7,12,1,2,12,1,0,10,1,0,6,1,2,4,1,7,4,0,12,6
UDOT: BYTE (5) 0,5,2,1,5,0,0,0,6
LCR: BYTE (5) 0,5,12,1,5,4,1,2,1,1,0,1,0,11,6
FW: BYTE (5) 0,0,8,1,2,6,1,4,6,1,6,8,1,6,10,1,4,12,1,2,12
BYTE (5) 1,0,10,1,0,8,0,11,6
FR: BYTE (5) 0,0,11,1,5,6,0,4,13,1,6,15,1,8,15,1,10,13,1,10,11
BYTE (5) 1,2,3,1,2,1,1,3,0,1,5,0,0,15,6
MODR: BYTE (5) 0,0,11,1,5,6,0,4,13,1,6,15,1,8,15,1,10,13,1,10,11
BYTE (5) 1,2,3,1,2,1,1,3,0,1,5,0,0,4,8,1,1,5,0,15,6
FH: BYTE (5) 0,0,15,1,9,6,1,11,6,0,5,10,1,1,6,0,17,6
FY: BYTE (5) 0,1,12,1,3,12,1,9,6,1,11,6,0,5,10,1,1,6,0,17,6
FL: BYTE (5) 0,0,11,1,12,11,0,6,11,1,3,8,1,3,4,1,6,1,1,9,1
BYTE (5) 0,17,6
FX: BYTE (5) 0,0,11,1,9,11,0,5,11,1,3,9,1,3,7,1,5,5,1,5,3
BYTE (5) 1,3,1,0,14,6
F11: BYTE (5) 0,2,15,1,0,13,1,0,8,1,2,6,1,4,6,1,6,8,0,6,15
BYTE (5) 1,6,6,0,11,6
F12: BYTE (5) 0,0,13,1,0,8,1,2,6,1,4,6,1,6,8,0,0,13,1,6,13
BYTE (5) 1,6,6,0,11,6
FN: BYTE (5) 0,0,13,1,0,6,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 1,4,4,0,6,11,1,8,13,1,10,13,1,12,11,1,12,6,1,10,4
BYTE (5) 0,17,6
FM: BYTE (5) 0,0,13,1,0,6,0,0,11,1,2,13,1,4,13,1,6,11,1,6,6
BYTE (5) 0,6,11,1,8,13,1,10,13,1,12,11,1,12,6,0,0,6,1,13,6
BYTE (5) 0,17,6
F7: BYTE (5) 0,2,15,1,0,13,1,0,8,1,2,6,1,4,6,1,6,8,1,6,13
BYTE (5) 1,8,15,0,6,8,1,8,6,1,10,6,1,12,8,0,12,15,1,12,6
BYTE (5) 0,17,6
F8: BYTE (5) 0,0,13,1,0,8,1,2,6,1,4,6,1,6,8,1,6,13,0,6,8
BYTE (5) 1,8,6,1,10,6,1,12,8,0,0,13,1,12,13,1,12,6,0,17,6
SP: BYTE (5) 0,17,6
FHW: BYTE (5) 0,6,18,1,6,6,0,6,12,1,2,12,1,0,10,1,0,8,1,2,6
BYTE (5) 1,9,6,0,14,6
FQ: BYTE (5) 0,0,16,1,2,18,0,2,16,1,2,20,1,3,21,1,4,21,1,5,20
BYTE (5) 1,5,19,1,4,18,1,3,18,1,2,19,0,0,6
FQA: BYTE (5) 0,1,16,1,3,18,0,3,16,1,3,20,1,2,21,1,1,21,1,0,20
BYTE (5) 1,0,19,1,1,18,1,2,18,1,3,19,0,0,6
PRGEND
TITLE PLOTC (RUSSIAN CHARACTER SET)
SUBTTL BILL WEIHER: STANFORD A-I; 21 OCT 67
SEARCH FORPRM
TWOSEG 400000
ENTRY PLOTC
PLOTC: XWD 0,0
XWD 10,T21
XWD 11,T22
XWD 14,T23
XWD 4,T24
XWD 10,T25
XWD 7,T26
XWD 13,T27
XWD 12,T210
XWD 16,T211
XWD 7,T212
XWD 0,0
XWD 7,T214
XWD 6,T215
XWD 5,T216
XWD 6,T217
XWD 12,T220
XWD 4,T221
XWD 7,T222
XWD 11,T223
XWD 5,T224
XWD 6,T225
XWD 14,T226
XWD 4,T227
XWD 7,T230
XWD 7,T231
XWD 10,T232
XWD 12,T233
EXP 0,0,0
XWD 13,T237
XWD 15,T240
XWD 12,T241
REPEAT 37,<XWD 0,0>
XWD 16,T2101
XWD 15,T2102
XWD 12,T2103
XWD 4,T2104
XWD 10,T2105
XWD 13,T2106
XWD 17,T2107
XWD 12,T2110
XWD 14,T2111
XWD 5,T2112
XWD 10,T2113
XWD 5,T2114
XWD 6,T2115
XWD 5,T2116
XWD 6,T2117
XWD 12,T2120
XWD 4,T2121
XWD 12,T2122
XWD 11,T2123
XWD 5,T2124
XWD 6,T2125
XWD 14,T2126
XWD 4,T2127
XWD 7,T2130
XWD 7,T2131
XWD 10,T2132
XWD 12,T2133
XWD 12,T2134
XWD 12,T2135
XWD 10,T2136
XWD 13,T2137
XWD 13,T2140
XWD 11,T2141
XWD 1,T2142
REPEAT 36,<XWD 0,0>
RADIX 10
T21: BYTE (5) 1,0,12,1,2,14,1,4,14,1,6,12,1,6,6,0,6,9,1,0,9
BYTE (5) 0,8,6
T22: BYTE (5) 1,0,14,1,4,14,0,0,10,1,3,10,1,4,9,1,4,7,1,3,6
BYTE (5) 1,0,6,0,8,6
T23: BYTE (5) 1,0,14,1,5,14,1,6,13,1,6,11,1,5,10,1,0,10,0,5,10
BYTE (5) 1,6,9,1,6,7,1,5,6,1,0,6,0,8,6
T24: BYTE (5) 1,0,14,1,5,14,1,5,12,0,8,6
T25: BYTE (5) 1,0,7,1,2,9,1,2,14,1,6,14,1,6,6,1,6,7,1,0,7
BYTE (5) 0,8,6
T26: BYTE (5) 1,0,14,1,6,14,0,4,10,1,0,10,0,0,6,1,6,6,0,8,6
T27: BYTE (5) 1,0,14,1,6,14,0,4,10,1,0,10,0,0,6,1,6,6,0,2,15
BYTE (5) 1,2,16,0,4,16,1,4,15,0,8,6
T210: BYTE (5) 1,4,10,1,0,14,0,4,10,1,7,10,1,11,14,0,5,14,1,5,6
BYTE (5) 0,11,6,1,7,10,0,13,6
T211: BYTE (5) 0,0,7,1,1,6,1,3,6,1,4,7,1,4,9,1,3,10,1,2,10
BYTE (5) 1,3,10,1,4,11,1,4,13,1,3,14,1,1,14,1,0,13,0,8,6
T212: BYTE (5) 0,0,14,1,0,6,1,0,7,1,6,13,1,6,14,1,6,6,0,8,6
T214: BYTE (5) 0,1,6,1,1,14,0,1,10,1,5,14,0,1,10,1,5,6,0,8,6
T215: BYTE (5) 1,1,6,1,2,7,1,2,14,1,6,14,1,6,6,0,8,6
T216: BYTE (5) 1,0,14,1,3,11,1,6,14,1,6,6,0,8,6
T217: BYTE (5) 1,0,14,0,0,10,1,6,10,0,6,14,1,6,6,0,8,6
T220: BYTE (5) 0,0,8,1,0,12,1,2,14,1,4,14,1,6,12,1,6,8,1,4,6
BYTE (5) 1,2,6,1,0,8,0,8,6
T221: BYTE (5) 1,0,14,1,6,14,1,6,6,0,8,6
T222: BYTE (5) 1,0,14,1,5,14,1,6,13,1,6,11,1,5,10,1,0,10,0,8,6
T223: BYTE (5) 0,6,13,1,5,14,1,2,14,1,0,12,1,0,8,1,2,6,1,5,6
BYTE (5) 1,6,7,0,8,6
T224: BYTE (5) 0,3,6,1,3,14,0,0,14,1,6,14,0,8,6
T225: BYTE (5) 0,0,14,1,3,11,1,6,14,0,3,11,1,3,6,0,8,6
T226: BYTE (5) 0,0,9,1,0,11,1,2,13,1,4,13,1,6,11,1,6,9,1,4,7
BYTE (5) 1,2,7,1,0,9,0,3,14,1,3,6,0,8,6
T227: BYTE (5) 1,6,12,0,0,12,1,6,6,0,8,6
T230: BYTE (5) 0,0,14,1,0,6,1,3,6,1,3,14,0,3,6,1,4,5,0,8,6
T231: BYTE (5) 0,0,14,1,0,12,1,1,11,1,4,11,0,4,14,1,4,6,0,8,6
T232: BYTE (5) 0,0,14,1,0,6,1,3,6,1,3,14,0,3,6,1,6,6,1,6,14
BYTE (5) 0,8,6
T233: BYTE (5) 0,0,14,1,0,6,1,3,6,1,3,14,0,3,6,1,6,6,1,6,14
BYTE (5) 0,6,6,1,7,5,0,9,6
T237: BYTE (5) 0,0,13,1,1,14,1,4,14,1,6,12,1,6,8,1,4,6,1,1,6
BYTE (5) 1,0,7,0,6,10,1,3,10,0,8,6
T240: BYTE (5) 1,0,14,0,0,10,1,2,10,1,2,13,1,3,14,1,5,14,1,6,13
BYTE (5) 1,6,7,1,5,6,1,3,6,1,2,7,1,2,10,0,8,6
T241: BYTE (5) 0,6,6,1,6,14,1,1,14,1,0,13,1,0,11,1,1,10,1,6,10
BYTE (5) 0,4,10,1,0,6,0,8,6
T2101: BYTE (5) 0,0,9,1,1,10,1,3,10,1,4,9,1,4,6,0,4,8,1,3,9
BYTE (5) 1,1,9,1,0,8,1,0,7,1,1,6,1,3,6,1,4,7,0,8,6
T2102: BYTE (5) 0,0,8,1,1,9,1,3,9,1,4,8,1,4,7,1,3,6,1,1,6
BYTE (5) 1,0,7,1,0,10,1,2,12,1,3,12,1,4,11,0,8,6
T2103: BYTE (5) 1,0,10,1,3,10,1,4,9,1,3,8,1,0,8,0,3,8,1,4,7
BYTE (5) 1,3,6,1,0,6,0,8,6
T2104: BYTE (5) 1,0,10,1,3,10,1,3,9,0,8,6
T2105: BYTE (5) 1,0,7,1,1,8,1,1,10,1,4,10,1,4,6,1,4,7,1,0,7
BYTE (5) 0,8,6
T2106: BYTE (5) 0,0,8,1,4,8,1,4,9,1,3,10,1,1,10,1,0,9,1,0,7
BYTE (5) 1,1,6,1,3,6,1,4,7,0,8,6
T2107: BYTE (5) 0,0,8,1,4,8,1,4,9,1,3,10,1,1,10,1,0,9,1,0,7
BYTE (5) 1,1,6,1,3,6,1,4,7,0,1,11,1,1,12,0,3,12,1,3,11
BYTE (5) 0,8,6
T2110: BYTE (5) 1,2,8,1,0,10,0,3,10,1,3,6,0,6,6,1,4,8,1,6,10
BYTE (5) 0,2,8,1,4,8,0,8,6
T2111: BYTE (5) 0,0,9,1,1,10,1,3,10,1,4,9,1,3,8,1,2,8,0,3,8
BYTE (5) 1,4,7,1,3,6,1,1,6,1,0,7,0,8,6
T2112: BYTE (5) 0,0,10,1,0,6,1,4,10,1,4,6,0,8,6
T2113: BYTE (5) 0,0,10,1,0,6,1,4,10,1,4,6,0,1,12,1,2,11,1,3,12
BYTE (5) 0,8,6
T2114: BYTE (5) 1,0,10,0,2,10,1,0,8,1,2,6,0,8,6
T2115: BYTE (5) 1,1,6,1,2,7,1,2,10,1,4,10,1,4,6,0,8,6
T2116: BYTE (5) 1,0,10,1,2,8,1,4,10,1,4,6,0,8,6
T2117: BYTE (5) 1,0,10,0,4,10,1,4,6,0,4,8,1,0,8,0,8,6
T2120: BYTE (5) 0,0,7,1,0,9,1,1,10,1,3,10,1,4,9,1,4,7,1,3,6
BYTE (5) 1,1,6,1,0,7,0,8,6
T2121: BYTE (5) 1,0,10,1,4,10,1,4,6,0,8,6
T2122: BYTE (5) 1,0,9,1,1,10,1,3,10,1,4,9,1,4,7,1,3,6,1,1,6
BYTE (5) 1,0,7,1,0,4,0,8,6
T2123: BYTE (5) 0,4,9,1,3,10,1,1,10,1,0,9,1,0,7,1,1,6,1,3,6
BYTE (5) 1,4,7,0,8,6
T2124: BYTE (5) 0,0,10,1,4,10,0,2,10,1,2,6,0,8,6
T2125: BYTE (5) 0,0,9,1,3,6,0,6,9,1,1,4,1,0,4,0,8,6
T2126: BYTE (5) 0,0,7,1,0,9,1,1,10,1,3,10,1,4,9,1,4,7,1,3,6
BYTE (5) 1,1,6,1,0,7,0,2,11,1,2,5,0,8,6
T2127: BYTE (5) 1,4,10,0,0,10,1,4,6,0,8,6
T2130: BYTE (5) 0,0,10,1,0,6,1,2,6,1,2,10,0,2,6,1,3,5,0,8,6
T2131: BYTE (5) 0,0,10,1,0,9,1,1,8,1,3,8,0,3,10,1,3,6,0,8,6
T2132: BYTE (5) 0,0,10,1,0,6,1,2,6,1,2,10,0,2,6,1,4,6,1,4,10
BYTE (5) 0,8,6
T2133: BYTE (5) 0,0,10,1,0,6,1,2,6,1,2,10,0,2,6,1,4,6,1,4,10
BYTE (5) 0,4,6,1,5,5,0,8,6
T2134: BYTE (5) 0,0,10,1,0,11,1,2,11,1,2,6,1,3,6,1,4,7,1,4,8
BYTE (5) 1,3,9,1,2,9,0,8,6
T2135: BYTE (5) 0,0,11,1,0,6,1,1,6,1,2,7,1,2,8,1,1,9,1,0,9
BYTE (5) 0,3,6,1,3,11,0,8,6
T2136: BYTE (5) 0,0,11,1,0,6,1,1,6,1,2,7,1,2,8,1,1,9,1,0,9
BYTE (5) 0,8,6
T2137: BYTE (5) 0,0,7,1,1,6,1,3,6,1,4,7,1,4,9,1,3,10,1,1,10
BYTE (5) 1,0,9,0,4,8,1,2,8,0,8,6
T2140: BYTE (5) 1,0,10,0,0,8,1,2,8,1,2,9,1,3,10,1,4,9,1,4,7
BYTE (5) 1,3,6,1,2,7,1,2,8,0,8,6
T2141: BYTE (5) 0,4,6,1,4,10,1,1,10,1,0,9,1,1,8,1,4,8,0,2,8
BYTE (5) 1,0,6,0,8,6
T2142: BYTE (5) 0,8,6
PRGEND
TITLE PLOT SUBROUTINES
SUBTTL R C CLEMENTS/DMN/CKS/EDS
SEARCH FORPRM
TWOSEG 400000
;FROM LIB40 V010 - 05 AUG 68
;THIS PACKAGE CONTAINS THE PLOT ROUTINES FOR THE XY10 PLOTTER.
;THE CALLING SEQUENCE IS THAT USED BY FORTRAN 10
;THE CALLS ARE:
; CALL PLOTS (I)
; CALL PLOT (X,Y,PEN)
; CALL SYMBOL (X,Y,SIZE,BCD,THETA,NBCD
; CALL SETABL (TABLE,ANSWER)
; CALL MKTBL (TABLENUMBER,ADDRESS)
; CALL WHERE (X,Y)
; CALL NUMBER (X,Y,SIZE,FPNUM,THETA,FRACTDIGITS)
;
; X,Y ARE INCHES FROM ORIGIN, FLT PT
; SIZE IS CHARACTER HEIGHT, FLT PT, SHOULD BE
; A MULTIPLE OF .08" IF SMALL
;
; THETA IS IN DEGREES, FLT PT.
; PEN IS
; 3 PEN UP
; 2 PEN DOWN
; 1 PEN UNCHANGED
; -N = N AND THEN CLEAR X,Y AND OUTPUT
;PLOTTER COMMANDS (USING CALCOMP'S AXIS CONVENTIONS)
PENUP=40
PENDWN=20
MVLFT=10 ;-X DRUM UP
MVRT=4 ;+X DRUM DOWN
MVDWN=1 ;-Y CARRIAGE RIGHT
MVUP=2 ;+Y CARRIAGE LEFT
IF10,<DFSTEP==100.0> ;DEFAULT STEPS PER INCH
IF20,<DFSTEP==254.0>
;ACCUMULATOR DEFINITIONS
; 0 ;TEMP USED BY F4LIB
SC=1 ;SCALER IN BRM IN PLOT.
TX=2 ;TEMP FOR X IN PLOT.
TY=3 ;TEMP FOR Y IN PLOT.
; 4 ;CLOBBERED IN PLOT. BY IDIV
CHAR=5 ;CHARACTER IN SYMBOL
STROKE=6 ;STROKE BYTE POINTER
SCT=7 ;STROKE COUNT
XO=10 ;ORIGIN OF CHAR IN SYMBOL
YO=11 ;ORIGIN OF CHAR IN SYMBOL
TP=12 ;BYTE POINTER TO TEXT
TDX=13 ;TEMP FOR DAT FOR X IN PLOT.
TDY=14 ;TEMP FOR DAT FOR Y IN PLOT.
DAT=15 ;ARGUMENT FOR PLT1,TEMP IN SYMBOL
Q=16 ;JSA AC
EXTERN OPEN.,WTB.,IOLST.
EXTERN SIND.,COSD.,EXP2.,PLOT.A
HELLO (PLOTS)
SETZM @0(Q) ;MARK SUCCESS
HLRE T1,-1(Q) ;GET ARG COUNT
CAMG T1,[-2] ;MORE THAN 1?
SKIPN T1,@1(Q) ;YES, GET STEP SIZE
MOVSI T1,(DFSTEP) ;NONE, USE DEFAULT
MOVEM T1,STPSIZ ;SET STEP SIZE
MOVEI L,1+[XWD -5,0
BYTE (9)OK.UNIT (4)0 (5)0 (18)-7
BYTE (9)OK.ACC (4)TP%LIT (5)0 (18)[ASCIZ /SEQOUT/]
BYTE (9)OK.MOD (4)TP%LIT (5)0 (18)[ASCIZ /IMAGE/]
BYTE (9)OK.DEV (4)TP%LIT (5)0 (18)[ASCIZ /PLT/]
BYTE (9)OK.FIL (4)TP%LIT (5)0 (18)[ASCIZ /DATA.PLT/]]
PUSHJ P,OPEN. ;SET UP PLOT IO ON CHANNEL -7
PUSHJ P,PLTINI ;SET UP BUFFER
SETOM PEN ;MARK PEN DOWN TO FORCE RAISE
MOVEI L,1+[XWD -3,0
EXP X,Y,[-3]] ;MOVE TO HERE, RAISE PEN
PUSHJ P,PLOT
MOVE T1,[SETZ PLOT.A(CHAR)] ;SET POINTERS TO CHAR SET TABLE FOR SYMBOL
MOVEM T1,T1M
POPJ P,
;PLOT ROUTINE
HELLO (PLOT)
MOVEI 1,ARGS-1
PUSH 1,@0(Q) ;SVX
PUSH 1,@1(Q) ;SVY
PUSH 1,@2(Q) ;SVPEN
PUSHJ P,PLOT. ;DO WORK
POPJ P,
PLT1: SOSG POB+2
PUSHJ P,PLTOUT
IDPB DAT,POB+1
POPJ P,0
PLTOUT: PUSH P,T1 ;SAVE TEMP ACS
HRRZ T1,POB+1 ;POINT TO BYTE LAST STORED
SUBI T1,PLTBUF-1 ;GET COUNT OF WORDS IN BUFFER
JUMPE T1,PLTSKP ;NONE, SKIP OUTPUT
MOVEM T1,PLTN ;STORE WORD COUNT
MOVEI L,WTBARG ;WRITE BUFFER
PUSHJ P,WTB.
MOVEI L,IOLARG
PUSHJ P,IOLST.
JRST PLTSKP
PLTINI: PUSH P,T1
PLTSKP: MOVE T1,[POINT 6,PLTBUF-1,35] ;RESET POINTER
MOVEM T1,POB+1
MOVEI T1,6*PLTL ;RESET BYTE COUNT
MOVEM T1,POB+2
SETZM PLTBUF ;CLEAR BUFFER
MOVE T1,[PLTBUF,,PLTBUF+1]
BLT T1,PLTBUF+PLTL-1
POP P,T1
POPJ P,
XWD -1,0
WTBARG: BYTE (9)IK.UNIT (9)0 (18)-7
XWD -4,0
IOLARG: BYTE (9)2 (4)TP%INT (5)0 (18)PLTN ;SLIST: PLTN WORDS
BYTE (18)0 (18)1 ; BY 1
BYTE (9)0 (4)TP%INT (5)0 (18)PLTBUF ; STARTING AT PLTBUF
BYTE (9)4 (27)0 ;FIN
PLOT.:
PENCK: MOVM TX,SVPEN
CAIG TX,1
JRST PENOK
SUBI TX,3
CAMN TX,PEN
JRST PENOK
MOVEI DAT,PENUP
SKIPGE TX
MOVEI DAT,PENDWN
PUSHJ P,PLT1
MOVEM TX,PEN
PENOK: MOVE TX,SVX
FMPR TX,STPSIZ
FADRI TX,(0.5)
SKIPGE SVX
FSBRI TX,(1.0)
FIX 0,TX
MOVEM 0,ISX
MOVE TX,0
MOVE TY,SVY
FMPR TY,STPSIZ
FADRI TY,(0.5)
SKIPGE SVY
FSBRI TY,(1.0)
FIX 0,TY
MOVEM 0,ISY
MOVE TY,0
SUB TX,IX
MOVEI TDX,MVLFT
SKIPL TX
MOVEI TDX,MVRT
SUB TY,IY
MOVEI TDY,MVDWN
SKIPL TY
MOVEI TDY,MVUP
MOVMS TX
MOVMS TY
CAMG TY,TX
JRST NOSWAP
EXCH TX,TY
EXCH TDX,TDY
NOSWAP: JUMPE TX,ENDOU1 ;NO MOTION
JUMPE TY,NORM
MOVEI SC,0
NY: TLNE TY,200000
JRST NX
LSH TY,1
TRO TY,1
AOJA SC,NY
NX: SUBI SC,^D34
MKSC: IDIV TY,TX
MOVNS SC
LSH TY,0(SC)
NORM: MOVEM TY,STEP
MOVEI TY,0
IOR TDY,TDX
INLOOP: ADD TY,STEP
MOVE DAT,TDX
TLZE TY,200000
MOVE DAT,TDY
PUSHJ P,PLT1
SOJG TX,INLOOP
MOVE TY,ISX
MOVEM TY,IX
MOVE TY,SVX
MOVEM TY,X
MOVE TY,ISY
MOVEM TY,IY
MOVE TY,SVY
MOVEM TY,Y
ENDOU1: SKIPL SVPEN
JRST ENDOUT
PUSHJ P,PLTOUT
SETZM X
SETZM Y
SETZM IX
SETZM IY
ENDOUT: SETZM SVPEN
POPJ P,0
;ROUTINE TO PLOT CHARACTERS
HELLO (SYMBOL)
MOVEI 1,ARGS-1
PUSH 1,@0(Q) ;SVX
PUSH 1,@1(Q) ;SVY
MOVEI 1,SVSZ-1
PUSH 1,@2(Q) ;SVSZ
XMOVEI 0,@3(Q) ;SVTXT
PUSH 1,0
PUSH 1,@4(Q) ;SVOR
PUSH 1,@5(Q) ;SVNTXT
MOVEI L,1+[XWD -1,0
Z TP%SPR,SVOR]
PUSHJ P,COSD.
MOVEM 0,COSOR
MOVEI L,1+[XWD -1,0
Z TP%SPR,SVOR]
PUSHJ P,SIND.
MOVEM 0,SINOR
MOVEI TX,3
MOVEM TX,SVPEN ;PEN UP
PUSHJ P,PLOT. ;MOVE TO X,Y SUPPLIED
SKIPG SVSZ
JRST ENDTXT ;SIZE MUST BE >0
MOVE TP,SVTXT
HRLI TP,440700 ;POINTER TO ASCII
LP1: SOSGE SVNTXT
JRST ENDTXT
ILDB CHAR,TP ;GET TEXT CHAR
MOVSI STROKE,440500 ;SET UP FOR SYM STROKES
HRR STROKE,@T1M ;GET TABLE ADDRESS
HLRZ SCT,@T1M ;NUMBER OF STROKES
JUMPE SCT,LP1 ;UNDEFINED CHAR
MOVE XO,X
MOVE YO,Y ;ORIGIN OF THE CHARACTER
OUT1: ILDB TX,STROKE ;1 FOR MARK, 0 FOR BLANK
MOVNS TX
ADDI TX,3
MOVEM TX,SVPEN
ILDB TX,STROKE
ILDB TY,STROKE
SUBI TY,6 ;OFFSET FOR VERTICAL
FSC TX,230 ;FLOAT AND DIVIDE BY 8
FSC TY,230 ;"
FMPR TX,SVSZ
FMPR TY,SVSZ
MOVE DAT,TX
FMPR DAT,COSOR
MOVN 0,TY
FMPR 0,SINOR
FADR 0,DAT
FADR 0,XO
MOVEM 0,SVX
MOVE DAT,TY
FMPR DAT,COSOR
MOVE 0,TX
FMPR 0,SINOR
FADR 0,DAT
FADR 0,YO
MOVEM 0,SVY
PUSHJ P,PLOT.
SOJG SCT,OUT1
JRST LP1
ENDTXT: POPJ P,
;ROUTINE TO ALLOW USE OF DIFFERENT CHARACTER TABLE
HELLO (SETABL)
MOVE 1,@(Q)
SETZM @1(Q)
JUMPLE 1,NOGO
CAILE 1,12
JRST NOGO
MOVE 1,CTBL-1(1)
JUMPE 1,NOGO ;NO SUCH TABLE
HRRM 1,T1M ;RESET PARAMETERS IN SYMBOL
SKIPA
NOGO: SETOM @1(Q) ;GIVE ERROR INDICATION
POPJ P,
;ROUTINE TO ALLOW NEW TABLE TO BE CREATED
;GIVEN NUMBER AND POINTER TO NEW TABLE
HELLO (MKTBL)
MOVE 1,@(Q)
CAIG 1,12
SKIPG 1
JRST FOOT
MOVEM 1,SVTB
MOVEI 0,@1(Q)
EXCH 1,SVTB
MOVEM 0,CTBL-1(1) ;PUT IN POINTER
SKIPA 1,SVTB
FOOT: SETZM @0(Q)
POPJ P,
;ROUTINE TO GIVE BACK CURRENT X,Y POSITION
HELLO (WHERE)
MOVE 1,X ;RETURN X, Y
MOVEM 1,@0(L)
MOVE 1,Y
MOVEM 1,@1(L)
POPJ P,
;ROUTINE TO PLOT NUMBERS
HELLO (NUMBER)
MOVEI 1,NARGS-1
PUSH 1,@0(Q) ;SVXN
PUSH 1,@1(Q) ;SVYN
PUSH 1,@2(Q) ;SVSZN
PUSH 1,@3(Q) ;SVFN
PUSH 1,@4(Q) ;SVORN
PUSH 1,@5(Q) ;SVNN
MOVEI L,1+[XWD -3,0
EXP SVXN,SVYN,[3]]
PUSHJ P,PLOT
MOVSI 1,264000
SKIPGE SVFN
PUSHJ P,DECP2
MOVMS SVFN
SKIPGE 1,SVNN
MOVEI 1,0
MOVNM 1,T2T
MOVEI L,1+[XWD -2,0
Z TP%SPR,[10.0]
Z TP%SPR,T2T]
PUSHJ P,EXP2.
MOVEM 0,T2T
FSC 0,-1
FADRB 0,SVFN ;ROUND IN FIRST INSIGNIFICANT DIGIT
FDVR 0,T2T ;SCALE TO AN INTEGER
FIX 0,0 ;AN INTEGER INTEGER
MOVEM 0,UNITS
PUSHJ P,DECPLT
MOVSI 1,270000
SKIPN SVNN ;NEED A DEC. PT. IN ONE CASE
PUSHJ P,DECP2
ENDNUM: POPJ P,
DECPLT: MOVM 1,UNITS
SETZM DIGITS
DECP3: IDIVI 1,12
HRLM 2,0(P)
AOS DIGITS
SKIPE 1
PUSHJ P,DECP3
MOVE 0,DIGITS
CAMLE 0,SVNN
JRST DECP4
MOVSI 1,270000
PUSHJ P,DECP2 ;PLOT A "."
CAML 0,SVNN
JRST DECP4A
DECP5: MOVSI 1,300000 ;A ZERO
PUSHJ P,DECP2
AOS 1,DIGITS
CAMGE 1,SVNN
JRST DECP5
DECP4A: SETOM SVNN ;FAKE OUT TEST NEXT TIME AROUND
DECP4: SOS DIGITS
HLRZ 1,0(P)
TRO 1,60
ROT 1,-7
DECP2: MOVEM 1,TEMP
MOVEI L,1+[XWD -6,0
Z TP%SPR,X
Z TP%SPR,Y
Z TP%SPR,SVSZN
Z TP%SPR,TEMP
Z TP%SPR,SVORN
Z TP%INT,[1]]
PUSHJ P,SYMBOL
POPJ P,0
RELOC ;LOW SEG
;ALL SORTS TEMPS AND STUFF
POB: BLOCK 3
PLTL==200 ;LENGTH OF PLOT BUFFER
PLTBUF: BLOCK PLTL
PLTN==POB ;COUNT OF WORDS FILLED IN BUFFER
ARGS: ;ARGUMENT STORAGE - DO NOT REARRANGE
SVX: 0
SVY: 0
SVPEN: 0
SVSZ: 0
SVTXT: 0
SVOR: 0
SVNTXT: 0
NARGS:
SVXN: 0
SVYN: 0
SVSZN: 0
SVFN: 0
SVORN: 0
SVNN: 0
X: 0
Y: 0
PEN: 0
STEP: 0
UNITS: 0
DIGITS: 0
TEMP: 0
T2T: 0
SVTB: 0
COSOR: 0
SINOR: 0
ISX: 0
ISY: 0
IX: 0
IY: 0
STPSIZ: 0
T1M: 0
EXTERNAL PLOTC,PLOTF
CTBL: EXP PLOT.A ;LINE PRINTER CHARACTER SET
EXP PLOTC ;RUSSIAN OR 0 IF NOT LOADED
EXP PLOTF ;FAENORIAN OR 0 IF NOT LOADED
EXP 0,0,0,0,0,0,0
RELOC ;BACK TO HIGH SEG
PRGEND
TITLE PLOT.A ASCII CHARACTER DEFS
SUBTTL DAVE NEFF/DZN 25-Jul-79
; CHARS is a module defining a character set for plotting. It
;conforms to the specifications of FORTRAN's plotting subroutines,
;and therefore has the following format:
;
; XWD STROKS,ADDR
;
;where STROKS is the number of pen strokes in the character, and
;ADDR is the address of the following:
;
;ADDR: BYTE (5)PEN1,X1,Y1,PEN2,X2,Y2,...,PENn,Xn,Yn
;
;PENi is 1 for a visible stroke, and 0 for an invisible one. The
;Xi and Yi have a rather obscure format. The values of Xi and Yi
;can take on the values from 0 to 15, but a character is considered to
;start at (0,6). The character can wander about anywhere in the field of
;dots, but normal characters should end up at (8,6). In fact, all characters
;(except for things like underbars, and lower case characters that go
;below the line) will usually remain in the rectangle (0,6), (0,14), (6,14),
;and (6,6).
;
; The macros below allow the table to be defined in a manner that
;allows each stroke to be picked out easily. Unfortunately, this has
;required rather complex and obscure macros. Too bad.
SALL ;You delete this at your on risk
ENTRY PLOT.A
TWOSEG 400000
RADIX 10
DEFINE CLEAR<DEFINE CONCAT(FTXT)<DEFINE CONCAT(TEXT)<CON1 <TEXT>,<FTXT>>
DEFINE EXPAND<FTXT>>
DEFINE EXPAND<>>
DEFINE CON1(NTXT,OTXT)<DEFINE CONCAT(TEXT)<CON1<TEXT>,<OTXT','NTXT>>
DEFINE EXPAND<OTXT','NTXT>>
DEFINE C(LIST)<
$$Z==0
CLEAR
IRP LIST,<
$$Z==$$Z+1
CONCAT LIST>
$$Z,,[BYTE (5)EXPAND]
>
SUBTTL The ASCII Character Set for Plotters
;NUL ^@
PLOT.A: 0
; ^A
0
; ^B
0
; ^C
0
; ^D
0
; ^E
0
; ^F
0
;BEL ^G
0
;BS ^H
0
;TAB ^I
0
;LF ^J
0
;VT ^K
0
;FF ^L
0
;CR ^M
0
; ^N
0
; ^O
0
; ^P
0
; ^Q
0
; ^R
0
; ^S
0
; ^T
0
; ^U
0
; ^V
0
; ^W
0
; ^X
0
; ^Y
0
; ^Z
0
; ^[
0
; ^\
0
; ^]
0
; ^^
0
; ^_
0
; <space>
C <<0,8,6>>
; !
C <<0,3,6>,<1,2,7>,<1,3,8>,<1,4,7>,<1,3,6>,<0,3,9>,<1,2,14>,
<1,4,14>,<1,3,9>,<0,8,6>>
; "
C <<0,2,12>,<1,3,13>,<1,3,14>,<1,2,14>,<1,2,13>,<1,3,13>,<0,4,12>,
<1,5,13>,<1,5,14>,<1,4,14>,<1,4,13>,<1,5,13>,<0,8,6>>
; #
C <<0,2,7>,<1,2,13>,<0,4,13>,<1,4,7>,<0,6,9>,<1,0,9>,<0,0,11>,<1,6,11>,
<0,8,6>>
; $
C <<0,1,8>,<1,2,7>,<1,4,7>,<1,5,8>,<1,5,9>,<1,4,10>,<1,2,10>,<1,1,11>,<1,1,12>,
<1,2,13>,<1,4,13>,<1,5,12>,<0,3,14>,<1,3,6>,<0,8,6>>
; %
C <<1,6,14>,<0,2,14>,<1,0,14>,<1,0,12>,<1,2,12>,<1,2,14>,<0,4,6>,
<1,4,8>,<1,6,8>,<1,6,6>,<1,4,6>,<0,8,6>>
; &
C <<0,6,6>,<1,0,12>,<1,0,13>,<1,1,14>,<1,2,14>,<1,3,13>,<1,3,12>,<1,0,8>,
<1,0,7>,<1,1,6>,<1,3,6>,<1,6,9>,<0,8,6>>
; '
C <<0,2,12>,<1,4,14>,<0,8,6>>
; (
C <<0,4,6>,<1,3,7>,<1,2,9>,<1,2,11>,<1,3,13>,<1,4,14>,<0,8,6>>
; )
C <<0,2,6>,<1,3,7>,<1,4,9>,<1,4,11>,<1,3,13>,<1,2,14>,<0,8,6>>
; *
C <<0,0,10>,<1,6,10>,<0,5,12>,<1,1,8>,<0,3,7>,<1,3,13>,<0,1,12>,<1,5,8>,
<0,8,6>>
; +
C <<0,0,10>,<1,6,10>,<0,3,13>,<1,3,7>,<0,8,6>>
; ,
C <<0,2,5>,<1,3,6>,<1,3,7>,<1,2,7>,<1,2,6>,<1,3,6>,<0,8,6>>
; -
C <<0,0,10>,<1,6,10>,<0,8,6>>
; .
C <<0,3,6>,<1,2,6>,<1,2,7>,<1,3,7>,<1,3,6>,<0,8,6>>
; /
C <<1,6,14>,<0,8,6>>
; 0
C <<1,6,14>,<0,6,12>,<1,4,14>,<1,2,14>,<1,0,12>,<1,0,8>,<1,2,6>,<1,4,6>,
<1,6,8>,<1,6,12>,<0,8,6>>
; 1
C <<0,1,12>,<1,3,14>,<1,3,6>,<0,1,6>,<1,5,6>,<0,8,6>>
; 2
C <<0,0,13>,<1,1,14>,<1,5,14>,<1,6,13>,<1,6,11>,<1,5,10>,<1,1,8>,
<1,0,7>,<1,0,6>,<1,6,6>,<0,8,6>>
; 3
C <<0,0,13>,<1,1,14>,<1,5,14>,<1,6,13>,<1,6,11>,<1,5,10>,<1,3,10>,
<0,5,10>,<1,6,9>,<1,6,7>,<1,5,6>,<1,1,6>,<1,0,7>,<0,8,6>>
; 4
C <<0,5,6>,<1,5,14>,<1,0,9>,<1,6,9>,<0,8,6>>
; 5
C <<0,0,7>,<1,1,6>,<1,5,6>,<1,6,7>,<1,6,10>,<1,5,11>,<1,1,11>,<1,0,10>,
<1,1,14>,<1,6,14>,<0,8,6>>
; 6
C <<0,0,9>,<1,1,10>,<1,5,10>,<1,6,9>,<1,6,7>,<1,5,6>,<1,1,6>,<1,0,7>,
<1,0,10>,<1,1,12>,<1,2,13>,<1,4,14>,<1,5,14>,<0,8,6>>
; 7
C <<1,6,14>,<1,0,14>,<0,8,6>>
; 8
C <<0,1,10>,<1,0,11>,<1,0,13>,<1,1,14>,<1,5,14>,<1,6,13>,<1,6,11>,
<1,5,10>,<1,1,10>,<1,0,9>,<1,0,7>,<1,1,6>,<1,5,6>,<1,6,7>,<1,6,9>,
<1,5,10>,<0,8,6>>
; 9
C <<0,1,6>,<1,2,6>,<1,4,7>,<1,5,8>,<1,6,10>,<1,6,13>,<1,5,14>,
<1,1,14>,<1,0,13>,<1,0,11>,<1,1,10>,<1,5,10>,<1,6,11>,<0,8,6>>
; :
C <<0,3,6>,<1,3,7>,<1,2,7>,<1,2,6>,<1,3,6>,<0,3,9>,<1,3,10>,<1,2,10>,
<1,2,9>,<1,3,9>,<0,8,6>>
; ;
C <<0,2,5>,<1,3,6>,<1,3,7>,<1,2,7>,<1,2,6>,<1,3,6>,<0,3,9>,<1,3,10>,<1,2,10>,
<1,2,9>,<1,3,9>,<0,8,6>>
; <
C <<0,6,7>,<1,0,10>,<1,6,13>,<0,8,6>>
; =
C <<0,0,9>,<1,6,9>,<0,6,11>,<1,0,11>,<0,8,6>>
; >
C <<0,0,7>,<1,6,10>,<1,0,13>,<0,8,6>>
; ?
C <<0,3,6>,<1,2,7>,<1,3,8>,<1,4,7>,<1,3,6>,<0,0,13>,<1,1,14>,<1,5,14>,
<1,6,13>,<1,6,11>,<1,5,10>,<1,4,10>,<1,3,9>,<0,8,6>>
; @
C <<0,4,8>,<1,5,9>,<1,5,11>,<1,4,12>,<1,2,12>,<1,1,11>,<1,1,9>,
<1,2,8>,<1,5,8>,<1,6,9>,<1,6,12>,<1,4,14>,<1,2,14>,<1,0,12>,<1,0,8>,
<1,2,6>,<1,4,6>,<1,5,7>,<0,8,6>>
; A
C <<1,3,14>,<1,6,6>,<0,1,9>,<1,5,9>,<0,8,6>>
; B
C <<1,0,14>,<1,5,14>,<1,6,13>,<1,6,11>,<1,5,10>,<1,0,10>,<0,5,10>,<1,6,9>,
<1,6,7>,<1,5,6>,<1,0,6>,<0,8,6>>
; C
C <<0,6,13>,<1,5,14>,<1,1,14>,<1,0,13>,<1,0,7>,<1,1,6>,<1,5,6>,<1,6,7>,
<0,8,6>>
; D
C <<1,0,14>,<1,3,14>,<1,5,13>,<1,6,11>,<1,6,9>,<1,5,7>,<1,3,6>,<1,0,6>,
<0,8,6>>
; E
C <<1,0,14>,<1,6,14>,<0,4,10>,<1,0,10>,<0,0,6>,<1,6,6>,<0,8,6>>
; F
C <<1,0,14>,<1,6,14>,<0,4,10>,<1,0,10>,<0,8,6>>
; G
C <<0,3,10>,<1,6,10>,<1,6,7>,<1,5,6>,<1,1,6>,<1,0,7>,<1,0,13>,<1,1,14>,
<1,5,14>,<1,6,13>,<0,8,6>>
; H
C <<1,0,14>,<0,0,10>,<1,6,10>,<0,6,14>,<1,6,6>,<0,8,6>>
; I
C <<0,1,14>,<1,5,14>,<0,3,14>,<1,3,6>,<0,1,6>,<1,5,6>,<0,8,6>>
; J
C <<0,0,8>,<1,0,7>,<1,1,6>,<1,3,6>,<1,4,7>,<1,4,14>,<0,2,14>,<1,6,14>,
<0,8,6>>
; K
C <<1,0,14>,<0,0,10>,<1,6,14>,<0,0,10>,<1,6,6>,<0,8,6>>
; L
C <<0,0,14>,<1,0,6>,<1,6,6>,<0,8,6>>
; M
C <<1,0,14>,<1,3,10>,<1,6,14>,<1,6,6>,<0,8,6>>
; N
C <<1,0,14>,<1,6,6>,<1,6,14>,<0,8,6>>
; O
C <<0,0,7>,<1,0,13>,<1,1,14>,<1,5,14>,<1,6,13>,<1,6,7>,<1,5,6>,<1,1,6>,
<1,0,7>,<0,8,6>>
; P
C <<1,0,14>,<1,5,14>,<1,6,13>,<1,6,11>,<1,5,10>,<1,0,10>,<0,8,6>>
; Q
C <<0,1,6>,<1,0,7>,<1,0,13>,<1,1,14>,<1,5,14>,<1,6,13>,<1,6,7>,
<1,5,6>,<1,1,6>,<0,3,8>,<1,4,8>,<1,6,6>,<1,7,6>,<0,8,6>>
; R
C <<1,0,14>,<1,5,14>,<1,6,13>,<1,6,11>,<1,5,10>,<1,0,10>,<0,2,10>,
<1,6,6>,<0,8,6>>
; S
C <<0,0,7>,<1,1,6>,<1,5,6>,<1,6,7>,<1,6,9>,<1,5,10>,<1,1,10>,<1,0,11>,
<1,0,13>,<1,1,14>,<1,5,14>,<1,6,13>,<0,8,6>>
; T
C <<0,3,6>,<1,3,14>,<0,0,14>,<1,6,14>,<0,8,6>>
; U
C <<0,0,14>,<1,0,7>,<1,1,6>,<1,5,6>,<1,6,7>,<1,6,14>,<0,8,6>>
; V
C <<0,0,14>,<1,3,6>,<1,6,14>,<0,8,6>>
; W
C <<0,0,14>,<1,0,6>,<1,3,10>,<1,6,6>,<1,6,14>,<0,8,6>>
; X
C <<1,6,14>,<0,0,14>,<1,6,6>,<0,8,6>>
; Y
C <<0,3,6>,<1,3,10>,<1,0,14>,<0,6,14>,<1,3,10>,<0,8,6>>
; Z
C <<1,6,14>,<1,0,14>,<0,2,10>,<1,4,10>,<0,0,6>,<1,6,6>,<0,8,6>>
; [
C <<0,5,14>,<1,3,14>,<1,3,6>,<1,5,6>,<0,8,6>>
; \
C <<0,0,14>,<1,6,6>,<0,8,6>>
; ]
C <<0,1,14>,<1,3,14>,<1,3,6>,<1,1,6>,<0,8,6>>
; ^
C <<0,0,12>,<1,3,14>,<1,6,12>,<0,8,6>>
; _
C <<0,0,4>,<1,6,4>,<0,8,6>>
; `
C <<0,2,14>,<1,4,12>,<0,8,6>>
; a
C <<0,5,7>,<1,4,6>,<1,1,6>,<1,0,7>,<1,0,10>,<1,1,11>,<1,4,11>,
<1,5,10>,<0,5,11>,<1,5,6>,<0,8,6>>
; b
C <<1,0,14>,<0,0,10>,<1,1,11>,<1,4,11>,<1,5,10>,<1,5,7>,<1,4,6>,
<1,1,6>,<1,0,7>,<0,8,6>>
; c
C <<0,5,10>,<1,4,11>,<1,1,11>,<1,0,10>,<1,0,7>,<1,1,6>,<1,4,6>,
<1,5,7>,<0,8,6>>
; d
C <<0,5,14>,<1,5,6>,<0,5,7>,<1,4,6>,<1,1,6>,<1,0,7>,<1,0,10>,<1,1,11>,
<1,4,11>,<1,5,10>,<0,8,6>>
; e
C <<0,0,8>,<1,5,9>,<1,5,10>,<1,4,11>,<1,1,11>,<1,0,10>,<1,0,7>,
<1,1,6>,<1,4,6>,<1,5,7>,<0,8,6>>
; f
C <<0,0,10>,<1,2,10>,<0,1,6>,<1,1,13>,<1,2,14>,<1,4,14>,<1,5,13>,
<0,8,6>>
; g
C <<0,0,3>,<1,1,2>,<1,4,2>,<1,5,3>,<1,5,11>,<0,5,10>,<1,4,11>,
<1,1,11>,<1,0,10>,<1,0,7>,<1,1,6>,<1,4,6>,<1,5,7>,<0,8,6>>
; h
C <<1,0,14>,<0,0,10>,<1,1,11>,<1,4,11>,<1,5,10>,<1,5,6>,<0,8,6>>
; i
C <<0,2,6>,<1,4,6>,<0,3,6>,<1,3,11>,<1,2,11>,<0,3,12>,<1,3,13>,
<1,2,13>,<1,2,12>,<1,3,12>,<0,8,6>>
; j
C <<0,0,3>,<1,1,2>,<1,4,2>,<1,5,3>,<1,5,11>,<1,4,11>,<0,4,12>,
<1,4,13>,<1,5,13>,<1,5,12>,<1,4,12>,<0,8,6>>
; k
C <<1,0,14>,<0,0,9>,<1,4,11>,<1,5,11>,<0,2,10>,<1,5,6>,<0,8,6>>
; l
C <<0,2,6>,<1,4,6>,<0,3,6>,<1,3,14>,<1,2,14>,<0,8,6>>
; m
C <<1,0,11>,<0,0,10>,<1,1,11>,<1,2,11>,<1,3,10>,<1,3,6>,<0,3,10>,
<1,4,11>,<1,5,11>,<1,6,10>,<1,6,6>,<0,8,6>>
; n
C <<1,0,11>,<0,0,10>,<1,1,11>,<1,4,11>,<1,5,10>,<1,5,6>,<0,8,6>>
; o
C <<0,1,6>,<1,0,7>,<1,0,10>,<1,1,11>,<1,4,11>,<1,5,10>,<1,5,7>,
<1,4,6>,<1,1,6>,<0,8,6>>
; p
C <<0,0,7>,<1,1,6>,<1,4,6>,<1,5,7>,<1,5,10>,<1,4,11>,<1,1,11>,<1,0,10>,
<0,0,11>,<1,0,2>,<0,8,6>>
; q
C <<0,5,7>,<1,4,6>,<1,1,6>,<1,0,7>,<1,0,10>,<1,1,11>,<1,4,11>,<1,5,10>,
<0,5,11>,<1,5,2>,<0,8,6>>
; r
C <<0,1,6>,<1,1,10>,<1,0,11>,<0,1,10>,<1,2,11>,<1,4,11>,<1,5,10>,<0,8,6>>
; s
C <<0,0,7>,<1,1,6>,<1,4,6>,<1,5,7>,<1,4,8>,<1,1,9>,<1,0,10>,<1,1,11>,
<1,4,11>,<1,5,10>,<0,8,6>>
; t
C <<0,0,11>,<1,4,11>,<0,2,13>,<1,2,7>,<1,3,6>,<1,4,6>,<1,5,7>,<0,8,6>>
; u
C <<0,0,11>,<1,0,7>,<1,1,6>,<1,4,6>,<1,5,7>,<0,5,11>,<1,5,6>,<0,8,6>>
; v
C <<0,0,11>,<1,3,6>,<1,6,11>,<0,8,6>>
; w
C <<0,0,11>,<1,1,6>,<1,3,10>,<1,5,6>,<1,6,11>,<0,8,6>>
; x
C <<0,0,11>,<1,5,6>,<0,0,6>,<1,5,11>,<0,8,6>>
; y
C <<0,0,2>,<1,3,6>,<1,0,11>,<0,3,6>,<1,6,11>,<0,8,6>>
; z
C <<0,0,11>,<1,5,11>,<1,0,6>,<1,5,6>,<0,8,6>>
; {
C <<0,4,14>,<1,3,13>,<1,3,11>,<1,2,10>,<1,3,9>,<1,3,7>,<1,4,6>,<0,8,6>>
; |
C <<0,3,14>,<1,3,6>,<0,8,6>>
; }
C <<0,2,14>,<1,3,13>,<1,3,11>,<1,4,10>,<1,3,9>,<1,3,7>,<1,2,6>,<0,8,6>>
; ~
C <<0,0,13>,<1,2,14>,<1,4,12>,<1,6,13>,<0,8,6>>
;DEL
C <<1,0,10>,<1,1,9>,<1,1,7>,<1,0,6>,<0,3,10>,<1,2,10>,<1,2,6>,<1,3,6>,
<0,2,8>,<1,3,8>,<0,4,10>,<1,4,6>,<1,5,6>,<0,8,6>>
SUBTTL The End
LIT
PRGEND
TITLE PLOTCD (DUMMY PLOTC)
ENTRY PLOTC
NOSYM
PLOTC==0
PRGEND
TITLE PLOTFD (DUMMY PLOTF)
ENTRY PLOTF
NOSYM
PLOTF==0
END