Mercurial > hg > Members > kono > nitros9-code
view 3rdparty/packages/pacos9/board90.a @ 2320:3584407fea59
Fixed term_scdwt.dt to have $FF00 as address
| author | boisy |
|---|---|
| date | Tue, 05 Jan 2010 21:20:06 +0000 |
| parents | f351932fa6cd |
| children |
line wrap: on
line source
NAM BOARD TTL Routine to draw playing board * Program segment to be compiled using Level II RMA * This is not a mainline program segment * Written by Larry Olson IFP1 * use /h0/defs/os9defs.a ENDc STACK EQU 100 PSECT BOARD,0,0,0,STACK,BOARDC VSECT * Local variables XTEMP RMB 2 RMB STACK ENDSECT * These are the FCB's for board #1 B1STRT fcb $1b,$32,1 fcb $1b,$40,0,36,0,83,$1b,$46,0,36,0,8 fcb $1b,$46,2,88,0,8,$1b,$46,2,88,0,83 fcb $1b,$46,2,18,0,83,$1b,$46,2,18,0,69 fcb $1b,$46,2,82,0,69,$1b,$46,2,82,0,11 fcb $1b,$46,1,106,0,11,$1b,$46,1,106,0,29 fcb $1b,$46,1,18,0,29,$1b,$46,1,18,0,11 fcb $1b,$46,0,42,0,11,$1b,$46,0,42,0,69 fcb $1b,$46,0,106,0,69,$1b,$46,0,106,0,83 fcb $1b,$46,0,36,0,83 fcb $1b,$40,0,36,0,96,$1b,$46,0,36,0,180 fcb $1b,$46,2,88,0,180,$1b,$46,2,88,0,96 fcb $1b,$46,2,18,0,96,$1b,$46,2,18,0,110 fcb $1b,$46,2,82,0,110,$1b,$46,2,82,0,177 fcb $1b,$46,0,42,0,177,$1b,$46,0,42,0,110 fcb $1b,$46,0,106,0,110,$1b,$46,0,106,0,96 fcb $1b,$46,0,36,0,96 B11 fcb $1b,$40,0,66,0,24,$1b,$48,0,138,0,38 B12 fcb $1b,$40,0,162,0,24,$1b,$48,0,250,0,29 B14 fcb $1b,$40,1,130,0,24,$1b,$48,1,218,0,29 B15 fcb $1b,$40,1,242,0,24,$1b,$48,2,58,0,38 B16 fcb $1b,$40,0,66,0,51,$1b,$48,0,138,0,56 B17 fcb $1b,$40,0,162,0,42,$1b,$46,0,202,0,42 fcb $1b,$46,0,202,0,60,$1b,$46,0,250,0,60 fcb $1b,$46,0,250,0,65,$1b,$46,0,202,0,65 fcb $1b,$46,0,202,0,83,$1b,$46,0,130,0,83 fcb $1b,$46,0,130,0,69,$1b,$46,0,162,0,69 fcb $1b,$46,0,162,0,42 B18 fcb $1b,$40,0,226,0,42,$1b,$46,1,154,0,42 fcb $1b,$46,1,154,0,47,$1b,$46,1,106,0,47 fcb $1b,$46,1,106,0,65,$1b,$46,1,18,0,65 fcb $1b,$46,1,18,0,47,$1b,$46,0,226,0,47 fcb $1b,$46,0,226,0,42 B19 fcb $1b,$40,1,178,0,42,$1b,$46,1,218,0,42 fcb $1b,$46,1,218,0,69,$1b,$46,1,250,0,69 fcb $1b,$46,1,250,0,83,$1b,$46,1,178,0,83 fcb $1b,$46,1,178,0,65,$1b,$46,1,130,0,65 fcb $1b,$46,1,130,0,60,$1b,$46,1,178,0,60 fcb $1b,$46,1,178,0,42 B110 fcb $1b,$40,1,242,0,51,$1b,$48,2,58,0,56 B112 fcb $1b,$40,0,226,0,78,$1b,$48,1,154,0,92 B115 fcb $1b,$40,0,130,0,96,$1b,$48,0,202,0,110 B116 fcb $1b,$40,1,178,0,96,$1b,$48,1,250,0,110 B118 fcb $1b,$40,0,66,0,123,$1b,$46,0,138,0,123 fcb $1b,$46,0,138,0,128,$1b,$46,0,90,0,128 fcb $1b,$46,0,90,0,146,$1b,$46,0,66,0,146 fcb $1b,$46,0,66,0,123 B119 fcb $1b,$40,0,162,0,123,$1b,$48,0,250,0,128 B120 fcb $1b,$40,0,226,0,105,$1b,$46,1,154,0,105 fcb $1b,$46,1,154,0,110,$1b,$46,1,106,0,110 fcb $1b,$46,1,106,0,128,$1b,$46,1,18,0,128 fcb $1b,$46,1,18,0,110,$1b,$46,0,226,0,110 fcb $1b,$46,0,226,0,105 B121 fcb $1b,$40,1,130,0,123,$1b,$48,1,218,0,128 B122 fcb $1b,$40,1,242,0,123,$1b,$46,2,58,0,123 fcb $1b,$46,2,58,0,146,$1b,$46,2,34,0,146 fcb $1b,$46,2,34,0,128,$1b,$46,1,242,0,128 fcb $1b,$46,1,242,0,123 B123 fcb $1b,$40,0,66,0,159,$1b,$46,0,114,0,159 fcb $1b,$46,0,114,0,141,$1b,$46,0,202,0,141 fcb $1b,$46,0,202,0,159,$1b,$46,0,250,0,159 fcb $1b,$46,0,250,0,164,$1b,$46,0,66,0,164 fcb $1b,$46,0,66,0,159 B124 fcb $1b,$40,0,226,0,141,$1b,$46,1,154,0,141 fcb $1b,$46,1,154,0,146,$1b,$46,1,106,0,146 fcb $1b,$46,1,106,0,164,$1b,$46,1,18,0,164 fcb $1b,$46,1,18,0,146,$1b,$46,0,226,0,146 fcb $1b,$46,0,226,0,141 B125 fcb $1b,$40,1,178,0,141,$1b,$46,2,10,0,141 fcb $1b,$46,2,10,0,159,$1b,$46,2,58,0,159 fcb $1b,$46,2,58,0,164,$1b,$46,1,130,0,164 fcb $1b,$46,1,130,0,159,$1b,$46,1,178,0,159 fcb $1b,$46,1,178,0,141 B1END equ *-B1STRT * (board #2) B2STRT fcb $1b,$32,1 fcb $1b,$40,1,42,0,8,$1b,$46,0,36,0,8 fcb $1b,$46,0,36,0,180,$1b,$46,1,58,0,180 fcb $1b,$46,1,58,0,177,$1b,$46,0,42,0,177 fcb $1b,$46,0,42,0,146,$1b,$46,0,74,0,146 fcb $1b,$46,0,74,0,141,$1b,$46,0,42,0,141 fcb $1b,$46,0,42,0,11,$1b,$46,0,162,0,11 fcb $1b,$46,0,162,0,20,$1b,$46,1,42,0,20 fcb $1b,$46,1,42,0,8 fcb $1b,$40,1,66,0,8,$1b,$46,2,88,0,8 fcb $1b,$46,2,88,0,180,$1b,$46,1,82,0,180 fcb $1b,$46,1,82,0,177,$1b,$46,2,82,0,177 fcb $1b,$46,2,82,0,146,$1b,$46,2,50,0,146 fcb $1b,$46,2,50,0,141,$1b,$46,2,82,0,141 fcb $1b,$46,2,82,0,11,$1b,$46,1,218,0,11 fcb $1b,$46,1,218,0,20,$1b,$46,1,66,0,20 fcb $1b,$46,1,66,0,8 B21 fcb $1b,$40,0,66,0,24,$1b,$48,0,138,0,29 B22 fcb $1b,$40,0,66,0,42,$1b,$48,0,138,0,47 B23 fcb $1b,$40,0,66,0,60,$1b,$46,0,162,0,60 fcb $1b,$46,0,162,0,33,$1b,$46,0,202,0,33 fcb $1b,$46,0,202,0,60,$1b,$46,1,26,0,60 fcb $1b,$46,1,26,0,65,$1b,$46,0,202,0,65 fcb $1b,$46,0,202,0,83,$1b,$46,0,162,0,83 fcb $1b,$46,0,162,0,65,$1b,$46,0,66,0,65 fcb $1b,$46,0,66,0,60 B24 fcb $1b,$40,0,226,0,33,$1b,$46,1,154,0,33 fcb $1b,$46,1,154,0,47,$1b,$46,1,74,0,47 fcb $1b,$46,1,74,0,65,$1b,$46,1,50,0,65 fcb $1b,$46,1,50,0,47,$1b,$46,0,226,0,47 fcb $1b,$46,0,226,0,33 B25 fcb $1b,$40,1,98,0,60,$1b,$46,1,178,0,60 fcb $1b,$46,1,178,0,33,$1b,$46,1,218,0,33 fcb $1b,$46,1,218,0,60,$1b,$46,2,58,0,60 fcb $1b,$46,2,58,0,65,$1b,$46,1,218,0,65 fcb $1b,$46,1,218,0,83,$1b,$46,1,178,0,83 fcb $1b,$46,1,178,0,65,$1b,$46,1,98,0,65 fcb $1b,$46,1,98,0,60 B26 fcb $1b,$40,1,242,0,24,$1b,$48,2,58,0,29 B27 fcb $1b,$40,1,242,0,42,$1b,$48,2,58,0,47 B28 fcb $1b,$40,0,66,0,78,$1b,$48,0,90,0,110 B29 fcb $1b,$40,0,114,0,78,$1b,$48,0,138,0,110 B210 fcb $1b,$40,0,162,0,96,$1b,$48,0,202,0,110 B211 fcb $1b,$40,0,226,0,78,$1b,$48,1,154,0,92 B212 fcb $1b,$40,1,178,0,96,$1b,$48,1,218,0,110 B213 fcb $1b,$40,1,242,0,78,$1b,$48,2,10,0,110 B214 fcb $1b,$40,2,34,0,78,$1b,$48,2,58,0,110 B215 fcb $1b,$40,0,66,0,123,$1b,$46,0,138,0,123 fcb $1b,$46,0,138,0,146,$1b,$46,0,98,0,146 fcb $1b,$46,0,98,0,128,$1b,$46,0,66,0,128 fcb $1b,$46,0,66,0,123 B216 fcb $1b,$40,0,162,0,123,$1b,$48,1,26,0,128 B217 fcb $1b,$40,0,226,0,105,$1b,$46,1,154,0,105 fcb $1b,$46,1,154,0,110,$1b,$46,1,74,0,110 fcb $1b,$46,1,74,0,128,$1b,$46,1,50,0,128 fcb $1b,$46,1,50,0,110,$1b,$46,0,226,0,110 fcb $1b,$46,0,226,0,105 B218 fcb $1b,$40,1,98,0,123,$1b,$48,1,218,0,128 B219 fcb $1b,$40,1,242,0,123,$1b,$46,2,58,0,123 fcb $1b,$46,2,58,0,128,$1b,$46,2,26,0,128 fcb $1b,$46,2,26,0,146,$1b,$46,1,242,0,146 fcb $1b,$46,1,242,0,123 B220 fcb $1b,$40,0,66,0,159,$1b,$46,0,162,0,159 fcb $1b,$46,0,162,0,141,$1b,$46,0,202,0,141 fcb $1b,$46,0,202,0,159,$1b,$46,1,58,0,159 fcb $1b,$46,1,58,0,164,$1b,$46,0,66,0,164 fcb $1b,$46,0,66,0,159 B221 fcb $1b,$40,0,226,0,141,$1b,$48,1,154,0,146 B222 fcb $1b,$40,1,82,0,159,$1b,$46,1,178,0,159 fcb $1b,$46,1,178,0,141,$1b,$46,1,218,0,141 fcb $1b,$46,1,218,0,159,$1b,$46,2,58,0,159 fcb $1b,$46,2,58,0,164,$1b,$46,1,82,0,164 fcb $1b,$46,1,82,0,159 B2END equ *-B2STRT * These draw commands for borad #3 B3STRT fcb $1b,$32,1 * TOPBRD fcb $1b,$40,0,36,0,83,$1b,$46,0,36,0,80 fcb $1b,$46,0,132,0,80,$1b,$46,0,132,0,72 fcb $1b,$46,0,36,0,72,$1b,$46,0,36,0,8 fcb $1b,$46,2,89,0,8,$1b,$46,2,89,0,72 fcb $1b,$46,1,248,0,72,$1b,$46,1,248,0,80 fcb $1b,$46,2,89,0,80,$1b,$46,2,89,0,83 fcb $1b,$46,1,242,0,83,$1b,$46,1,242,0,69 fcb $1b,$46,2,83,0,69,$1b,$46,2,83,0,11 fcb $1b,$46,1,74,0,11,$1b,$46,1,74,0,29 fcb $1b,$46,1,50,0,29,$1b,$46,1,50,0,11 fcb $1b,$46,0,42,0,11,$1b,$46,0,42,0,69 fcb $1b,$46,0,138,0,69,$1b,$46,0,138,0,83 fcb $1b,$46,0,36,0,83 * fcb $1b,$40,0,36,0,96,$1b,$46,0,138,0,96 fcb $1b,$46,0,138,0,110,$1b,$46,0,42,0,110 fcb $1b,$46,0,42,0,141,$1b,$46,0,74,0,141 fcb $1b,$46,0,74,0,146,$1b,$46,0,42,0,146 fcb $1b,$46,0,42,0,177,$1b,$46,2,83,0,177 fcb $1b,$46,2,83,0,146,$1b,$46,2,50,0,146 fcb $1b,$46,2,50,0,141,$1b,$46,2,83,0,141 fcb $1b,$46,2,83,0,110,$1b,$46,1,242,0,110 fcb $1b,$46,1,242,0,96,$1b,$46,2,89,0,96 fcb $1b,$46,2,89,0,99,$1b,$46,1,248,0,99 fcb $1b,$46,1,248,0,107,$1b,$46,2,89,0,107 fcb $1b,$46,2,89,0,180,$1b,$46,0,36,0,180 fcb $1b,$46,0,36,0,107,$1b,$46,0,132,0,107 fcb $1b,$46,0,132,0,99,$1b,$46,0,36,0,99 fcb $1b,$46,0,36,0,96 B31 fcb $1b,$40,0,66,0,24,$1b,$48,0,138,0,38 B32 fcb $1b,$40,0,162,0,24,$1b,$48,1,26,0,29 B33 fcb $1b,$40,1,98,0,24,$1b,$48,1,218,0,29 B34 fcb $1b,$40,1,242,0,24,$1b,$48,2,58,0,38 B35 fcb $1b,$40,0,66,0,51,$1b,$48,0,138,0,56 B36 fcb $1b,$40,0,162,0,42,$1b,$46,0,202,0,42 fcb $1b,$46,0,202,0,60,$1b,$46,1,26,0,60 fcb $1b,$46,1,26,0,65,$1b,$46,0,202,0,65 fcb $1b,$46,0,202,0,83,$1b,$46,0,162,0,83 fcb $1b,$46,0,162,0,42 B37 fcb $1b,$40,0,226,0,42,$1b,$46,1,154,0,42 fcb $1b,$46,1,154,0,47,$1b,$46,1,74,0,47 fcb $1b,$46,1,74,0,65,$1b,$46,1,50,0,65 fcb $1b,$46,1,50,0,47,$1b,$46,0,226,0,47 fcb $1b,$46,0,226,0,42 B38 fcb $1b,$40,1,98,0,60,$1b,$46,1,178,0,60 fcb $1b,$46,1,178,0,42,$1b,$46,1,218,0,42 fcb $1b,$46,1,218,0,83,$1b,$46,1,178,0,83 fcb $1b,$46,1,178,0,65,$1b,$46,1,98,0,65 fcb $1b,$46,1,98,0,60 B39 fcb $1b,$40,1,242,0,51,$1b,$48,2,58,0,56 B310 fcb $1b,$40,0,226,0,78,$1b,$48,1,154,0,92 B311 fcb $1b,$40,0,162,0,96,$1b,$48,0,202,0,110 B312 fcb $1b,$40,0,226,0,105,$1b,$46,1,154,0,105 fcb $1b,$46,1,154,0,110,$1b,$46,1,74,0,110 fcb $1b,$46,1,74,0,128,$1b,$46,1,50,0,128 fcb $1b,$46,1,50,0,110,$1b,$46,0,226,0,110 fcb $1b,$46,0,226,0,105 B313 fcb $1b,$40,1,178,0,96,$1b,$48,1,218,0,110 B314 fcb $1b,$40,0,66,0,123,$1b,$46,0,138,0,123 fcb $1b,$46,0,138,0,146,$1b,$46,0,98,0,146 fcb $1b,$46,0,98,0,128,$1b,$46,0,66,0,128 fcb $1b,$46,0,66,0,123 B315 fcb $1b,$40,0,162,0,123,$1b,$48,1,26,0,128 B316 fcb $1b,$40,1,98,0,123,$1b,$48,1,218,0,128 B317 fcb $1b,$40,1,242,0,123,$1b,$46,2,58,0,123 fcb $1b,$46,2,58,0,128,$1b,$46,2,26,0,128 fcb $1b,$46,2,26,0,146,$1b,$46,1,242,0,146 fcb $1b,$46,1,242,0,123 B318 fcb $1b,$40,0,66,0,159,$1b,$46,0,162,0,159 fcb $1b,$46,0,162,0,141,$1b,$46,0,202,0,141 fcb $1b,$46,0,202,0,159,$1b,$46,1,26,0,159 fcb $1b,$46,1,26,0,164,$1b,$46,0,66,0,164 fcb $1b,$46,0,66,0,159 B319 fcb $1b,$40,0,226,0,141,$1b,$46,1,154,0,141 fcb $1b,$46,1,154,0,146,$1b,$46,1,74,0,146 fcb $1b,$46,1,74,0,164,$1b,$46,1,50,0,164 fcb $1b,$46,1,50,0,146,$1b,$46,0,226,0,146 fcb $1b,$46,0,226,0,141 B320 fcb $1b,$40,1,98,0,159,$1b,$46,1,178,0,159 fcb $1b,$46,1,178,0,141,$1b,$46,1,218,0,141 fcb $1b,$46,1,218,0,159,$1b,$46,2,58,0,159 fcb $1b,$46,2,58,0,164,$1b,$46,1,98,0,164 fcb $1b,$46,1,98,0,159 B3END equ *-B3STRT * These are the FCB's for board #4 B4STRT fcb $1b,$32,1 fcb $1b,$40,1,42,0,8,$1b,$46,0,36,0,8 fcb $1b,$46,0,36,0,180,$1b,$46,1,58,0,180 fcb $1b,$46,1,58,0,177,$1b,$46,0,42,0,177 fcb $1b,$46,0,42,0,146,$1b,$46,0,90,0,146 fcb $1b,$46,0,90,0,141,$1b,$46,0,42,0,141 fcb $1b,$46,0,42,0,110,$1b,$46,0,138,0,110 fcb $1b,$46,0,138,0,105,$1b,$46,0,58,0,105 fcb $1b,$46,0,58,0,74,$1b,$46,0,138,0,74 fcb $1b,$46,0,138,0,69,$1b,$46,0,42,0,69 fcb $1b,$46,0,42,0,11,$1b,$46,1,42,0,11 fcb $1b,$46,1,42,0,8 fcb $1b,$40,1,66,0,8,$1b,$46,2,88,0,8 fcb $1b,$46,2,88,0,180,$1b,$46,1,82,0,180 fcb $1b,$46,1,82,0,177,$1b,$46,2,82,0,177 fcb $1b,$46,2,82,0,146,$1b,$46,2,34,0,146 fcb $1b,$46,2,34,0,141,$1b,$46,2,82,0,141 fcb $1b,$46,2,82,0,110,$1b,$46,1,242,0,110 fcb $1b,$46,1,242,0,105,$1b,$46,2,66,0,105 fcb $1b,$46,2,66,0,74,$1b,$46,1,242,0,74 fcb $1b,$46,1,242,0,69,$1b,$46,2,82,0,69 fcb $1b,$46,2,82,0,11,$1b,$46,1,66,0,11 fcb $1b,$46,1,66,0,8 B41 fcb $1b,$40,0,66,0,24,$1b,$48,0,90,0,38 B42 fcb $1b,$40,0,114,0,24,$1b,$48,0,138,0,38 B43 fcb $1b,$40,0,162,0,24,$1b,$46,0,202,0,24 fcb $1b,$46,0,202,0,42,$1b,$46,0,234,0,42 fcb $1b,$46,0,234,0,47,$1b,$46,0,162,0,47 fcb $1b,$46,0,162,0,24 B44 fcb $1b,$40,0,226,0,24,$1b,$48,1,42,0,29 B45 fcb $1b,$40,1,66,0,24,$1b,$48,1,154,0,29 B46 fcb $1b,$40,1,2,0,42,$1b,$48,1,122,0,47 B47 fcb $1b,$40,1,178,0,24,$1b,$46,1,218,0,24 fcb $1b,$46,1,218,0,47,$1b,$46,1,146,0,47 fcb $1b,$46,1,146,0,42,$1b,$46,1,178,0,42 fcb $1b,$46,1,178,0,24 B48 fcb $1b,$40,1,242,0,24,$1b,$48,2,10,0,38 B49 fcb $1b,$40,2,34,0,24,$1b,$48,2,58,0,38 B410 fcb $1b,$40,0,66,0,51,$1b,$48,0,138,0,56 B411 fcb $1b,$40,1,242,0,51,$1b,$48,2,58,0,56 B412 fcb $1b,$40,0,162,0,60,$1b,$46,1,42,0,60 fcb $1b,$46,1,42,0,65,$1b,$46,0,202,0,65 fcb $1b,$46,0,202,0,83,$1b,$46,0,162,0,83 fcb $1b,$46,0,162,0,60 B413 fcb $1b,$40,1,66,0,60,$1b,$46,1,218,0,60 fcb $1b,$46,1,218,0,83,$1b,$46,1,178,0,83 fcb $1b,$46,1,178,0,65,$1b,$46,1,66,0,65 fcb $1b,$46,1,66,0,60 B414 fcb $1b,$40,0,82,0,87,$1b,$48,0,138,0,92 B415 fcb $1b,$40,0,226,0,78,$1b,$48,1,154,0,92 B416 fcb $1b,$40,1,242,0,87,$1b,$48,2,42,0,92 B417 fcb $1b,$40,0,162,0,96,$1b,$48,0,202,0,110 B418 fcb $1b,$40,0,226,0,105,$1b,$46,1,154,0,105 fcb $1b,$46,1,154,0,110,$1b,$46,1,74,0,110 fcb $1b,$46,1,74,0,128,$1b,$46,1,50,0,128 fcb $1b,$46,1,50,0,110,$1b,$46,0,226,0,110 fcb $1b,$46,0,226,0,105 B419 fcb $1b,$40,1,178,0,96,$1b,$48,1,218,0,110 B420 fcb $1b,$40,0,66,0,123,$1b,$48,0,138,0,128 B421 fcb $1b,$40,0,226,0,123,$1b,$48,1,26,0,128 B422 fcb $1b,$40,1,98,0,123,$1b,$48,1,154,0,128 B423 fcb $1b,$40,1,242,0,123,$1b,$48,2,58,0,128 B424 fcb $1b,$40,0,162,0,123,$1b,$46,0,202,0,123 fcb $1b,$46,0,202,0,164,$1b,$46,0,162,0,164 fcb $1b,$46,0,162,0,146,$1b,$46,0,114,0,146 fcb $1b,$46,0,114,0,141,$1b,$46,0,162,0,141 fcb $1b,$46,0,162,0,123 B425 fcb $1b,$40,1,178,0,123,$1b,$46,1,218,0,123 fcb $1b,$46,1,218,0,141,$1b,$46,2,10,0,141 fcb $1b,$46,2,10,0,146,$1b,$46,1,218,0,146 fcb $1b,$46,1,218,0,164,$1b,$46,1,178,0,164 fcb $1b,$46,1,178,0,123 B426 fcb $1b,$40,0,226,0,141,$1b,$48,1,154,0,146 B427 fcb $1b,$40,0,66,0,159,$1b,$48,0,138,0,164 B428 fcb $1b,$40,0,226,0,159,$1b,$48,1,58,0,164 B429 fcb $1b,$40,1,82,0,159,$1b,$48,1,154,0,164 B430 fcb $1b,$40,1,242,0,159,$1b,$48,2,58,0,164 B4END equ *-B4STRT * (board #5) B5STRT fcb $1b,$32,1 fcb $1b,$40,0,36,0,83,$1b,$46,0,36,0,8 fcb $1b,$46,2,88,0,8,$1b,$46,2,88,0,83 fcb $1b,$46,1,242,0,83,$1b,$46,1,242,0,78 fcb $1b,$46,2,82,0,78,$1b,$46,2,82,0,11 fcb $1b,$46,1,74,0,11,$1b,$46,1,74,0,29 fcb $1b,$46,1,50,0,29,$1b,$46,1,50,0,11 fcb $1b,$46,0,42,0,11,$1b,$46,0,42,0,78 fcb $1b,$46,0,138,0,78,$1b,$46,0,138,0,83 fcb $1b,$46,0,36,0,83 * Bottom half of board fcb $1b,$40,0,36,0,96,$1b,$46,0,36,0,180 fcb $1b,$46,2,88,0,180,$1b,$46,2,88,0,96 fcb $1b,$46,2,34,0,96,$1b,$46,2,34,0,101 fcb $1b,$46,2,82,0,101,$1b,$46,2,82,0,177 fcb $1b,$46,1,74,0,177,$1b,$46,1,74,0,159 fcb $1b,$46,1,50,0,159,$1b,$46,1,50,0,177 fcb $1b,$46,0,42,0,177,$1b,$46,0,42,0,101 fcb $1b,$46,0,90,0,101,$1b,$46,0,90,0,96 fcb $1b,$46,0,36,0,96 B51 fcb $1b,$40,0,114,0,24,$1b,$48,1,26,0,29 B52 fcb $1b,$40,1,98,0,24,$1b,$48,2,10,0,29 B53 fcb $1b,$40,0,66,0,24,$1b,$46,0,90,0,24 fcb $1b,$46,0,90,0,42,$1b,$46,0,138,0,42 fcb $1b,$46,0,138,0,47,$1b,$46,0,90,0,47 fcb $1b,$46,0,90,0,65,$1b,$46,0,66,0,65 fcb $1b,$46,0,66,0,24 B54 fcb $1b,$40,0,114,0,60,$1b,$46,0,162,0,60 fcb $1b,$46,0,162,0,42,$1b,$46,0,202,0,42 fcb $1b,$46,0,202,0,60,$1b,$46,1,26,0,60 fcb $1b,$46,1,26,0,65,$1b,$46,0,202,0,65 fcb $1b,$46,0,202,0,74,$1b,$46,0,162,0,74 fcb $1b,$46,0,162,0,65,$1b,$46,0,114,0,65 fcb $1b,$46,0,114,0,60 B55 fcb $1b,$40,1,98,0,60,$1b,$46,1,178,0,60 fcb $1b,$46,1,178,0,42,$1b,$46,1,218,0,42 fcb $1b,$46,1,218,0,60,$1b,$46,2,10,0,60 fcb $1b,$46,2,10,0,65,$1b,$46,1,218,0,65 fcb $1b,$46,1,218,0,74,$1b,$46,1,178,0,74 fcb $1b,$46,1,178,0,65,$1b,$46,1,98,0,65 fcb $1b,$46,1,98,0,60 B56 fcb $1b,$40,1,242,0,42,$1b,$46,2,34,0,42 fcb $1b,$46,2,34,0,24,$1b,$46,2,58,0,24 fcb $1b,$46,2,58,0,65,$1b,$46,2,34,0,65 fcb $1b,$46,2,34,0,47,$1b,$46,1,242,0,47 fcb $1b,$46,1,242,0,42 B57 fcb $1b,$40,0,226,0,78,$1b,$48,1,154,0,92 B58 fcb $1b,$40,0,114,0,96,$1b,$48,0,138,0,110 B59 fcb $1b,$40,0,66,0,114,$1b,$46,0,90,0,114 fcb $1b,$46,0,90,0,141,$1b,$46,0,138,0,141 fcb $1b,$46,0,138,0,146,$1b,$46,0,66,0,146 fcb $1b,$46,0,66,0,114 B510 fcb $1b,$40,0,114,0,123,$1b,$46,0,162,0,123 fcb $1b,$46,0,162,0,87,$1b,$46,0,202,0,87 fcb $1b,$46,0,202,0,105,$1b,$46,0,250,0,105 fcb $1b,$46,0,250,0,110,$1b,$46,0,202,0,110 fcb $1b,$46,0,202,0,146,$1b,$46,0,162,0,146 fcb $1b,$46,0,162,0,128,$1b,$46,0,114,0,128 fcb $1b,$46,0,114,0,123 B511 fcb $1b,$40,0,226,0,123,$1b,$46,1,18,0,123 fcb $1b,$46,1,18,0,105,$1b,$46,1,106,0,105 fcb $1b,$46,1,106,0,123,$1b,$46,1,154,0,123 fcb $1b,$46,1,154,0,128,$1b,$46,1,98,0,128 fcb $1b,$46,1,98,0,110,$1b,$46,1,26,0,110 fcb $1b,$46,1,26,0,128,$1b,$46,0,226,0,128 fcb $1b,$46,0,226,0,123 B512 fcb $1b,$40,1,130,0,105,$1b,$46,1,178,0,105 fcb $1b,$46,1,178,0,87,$1b,$46,1,218,0,87 fcb $1b,$46,1,218,0,123,$1b,$46,2,10,0,123 fcb $1b,$46,2,10,0,128,$1b,$46,1,218,0,128 fcb $1b,$46,1,218,0,146,$1b,$46,1,178,0,146 fcb $1b,$46,1,178,0,110,$1b,$46,1,130,0,110 fcb $1b,$46,1,130,0,105 B513 fcb $1b,$40,1,242,0,96,$1b,$48,2,10,0,110 B514 fcb $1b,$40,1,242,0,141,$1b,$46,2,34,0,141 fcb $1b,$46,2,34,0,114,$1b,$46,2,58,0,114 fcb $1b,$46,2,58,0,146,$1b,$46,1,242,0,146 fcb $1b,$46,1,242,0,141 B515 fcb $1b,$40,0,66,0,159,$1b,$48,1,26,0,164 B516 fcb $1b,$40,1,98,0,159,$1b,$48,2,58,0,164 B517 fcb $1b,$40,0,226,0,42,$1b,$46,1,154,0,42 fcb $1b,$46,1,154,0,47,$1b,$46,1,74,0,47 fcb $1b,$46,1,74,0,65,$1b,$46,1,50,0,65 fcb $1b,$46,1,50,0,47,$1b,$46,0,226,0,47 fcb $1b,$46,0,226,0,42 B518 fcb $1b,$40,0,226,0,141,$1b,$46,1,50,0,141 fcb $1b,$46,1,50,0,123,$1b,$46,1,74,0,123 fcb $1b,$46,1,74,0,141,$1b,$46,1,154,0,141 fcb $1b,$46,1,154,0,146,$1b,$46,0,226,0,146 fcb $1b,$46,0,226,0,141 B5END equ *-B5STRT * These fcb's are for board #6 B6STRT fcb $1b,$32,1 fcb $1b,$40,1,42,0,8,$1b,$46,0,36,0,8 fcb $1b,$46,0,36,0,180,$1b,$46,1,58,0,180 fcb $1b,$46,1,58,0,177,$1b,$46,0,42,0,177 fcb $1b,$46,0,42,0,11,$1b,$46,1,42,0,11 fcb $1b,$46,1,42,0,8 fcb $1b,$40,1,66,0,8,$1b,$46,2,88,0,8 fcb $1b,$46,2,88,0,180,$1b,$46,1,82,0,180 fcb $1b,$46,1,82,0,177,$1b,$46,2,82,0,177 fcb $1b,$46,2,82,0,11,$1b,$46,1,66,0,11 fcb $1b,$46,1,66,0,8 B61 fcb $1b,$40,0,66,0,24,$1b,$46,0,138,0,24 fcb $1b,$46,0,138,0,47,$1b,$46,0,114,0,47 fcb $1b,$46,0,114,0,29,$1b,$46,0,66,0,29 fcb $1b,$46,0,66,0,24 B62 fcb $1b,$40,0,162,0,24,$1b,$46,0,234,0,24 fcb $1b,$46,0,234,0,29,$1b,$46,0,186,0,29 fcb $1b,$46,0,186,0,47,$1b,$46,0,162,0,47 fcb $1b,$46,0,162,0,24 B63 fcb $1b,$40,1,2,0,24,$1b,$48,1,42,0,29 B64 fcb $1b,$40,1,66,0,24,$1b,$48,1,122,0,29 B65 fcb $1b,$40,1,146,0,24,$1b,$46,1,218,0,24 fcb $1b,$46,1,218,0,47,$1b,$46,1,194,0,47 fcb $1b,$46,1,194,0,29,$1b,$46,1,146,0,29 fcb $1b,$46,1,146,0,24 B66 fcb $1b,$40,1,242,0,24,$1b,$46,2,58,0,24 fcb $1b,$46,2,58,0,29,$1b,$46,2,10,0,29 fcb $1b,$46,2,10,0,47,$1b,$46,1,242,0,47 fcb $1b,$46,1,242,0,24 B67 fcb $1b,$40,0,66,0,42,$1b,$46,0,90,0,42 fcb $1b,$46,0,90,0,60,$1b,$46,0,138,0,60 fcb $1b,$46,0,138,0,65,$1b,$46,0,66,0,65 fcb $1b,$46,0,66,0,42 B68 fcb $1b,$40,0,210,0,42,$1b,$46,0,234,0,42 fcb $1b,$46,0,234,0,65,$1b,$46,0,162,0,65 fcb $1b,$46,0,162,0,60,$1b,$46,0,210,0,60 fcb $1b,$46,0,210,0,42 B69 fcb $1b,$40,1,2,0,42,$1b,$46,1,122,0,42 fcb $1b,$46,1,122,0,47,$1b,$46,1,74,0,47 fcb $1b,$46,1,74,0,65,$1b,$46,1,50,0,65 fcb $1b,$46,1,50,0,47,$1b,$46,1,2,0,47 fcb $1b,$46,1,2,0,42 B610 fcb $1b,$40,1,2,0,60,$1b,$48,1,26,0,65 B611 fcb $1b,$40,1,98,0,60,$1b,$48,1,122,0,65 B612 fcb $1b,$40,1,146,0,42,$1b,$46,1,170,0,42 fcb $1b,$46,1,170,0,60,$1b,$46,1,218,0,60 fcb $1b,$46,1,218,0,65,$1b,$46,1,146,0,65 fcb $1b,$46,1,146,0,42 B613 fcb $1b,$40,2,34,0,42,$1b,$46,2,58,0,42 fcb $1b,$46,2,58,0,65,$1b,$46,1,242,0,65 fcb $1b,$46,1,242,0,60,$1b,$46,2,34,0,60 fcb $1b,$46,2,34,0,42 B614 fcb $1b,$40,0,66,0,78,$1b,$48,0,90,0,83 B615 fcb $1b,$40,0,114,0,78,$1b,$46,0,202,0,78 fcb $1b,$46,0,202,0,83,$1b,$46,0,154,0,83 fcb $1b,$46,0,154,0,92,$1b,$46,0,114,0,92 fcb $1b,$46,0,114,0,78 B616 fcb $1b,$40,0,226,0,78,$1b,$48,1,154,0,92 B617 fcb $1b,$40,1,178,0,78,$1b,$46,2,10,0,78 fcb $1b,$46,2,10,0,92,$1b,$46,1,226,0,92 fcb $1b,$46,1,226,0,83,$1b,$46,1,178,0,83 fcb $1b,$46,1,178,0,78 B618 fcb $1b,$40,2,34,0,78,$1b,$48,2,58,0,83 B619 fcb $1b,$40,0,66,0,96,$1b,$48,0,90,0,110 B620 fcb $1b,$40,0,114,0,105,$1b,$46,0,178,0,105 fcb $1b,$46,0,178,0,96,$1b,$46,0,202,0,96 fcb $1b,$46,0,202,0,110,$1b,$46,0,114,0,110 fcb $1b,$46,0,114,0,105 B621 fcb $1b,$40,0,226,0,105,$1b,$46,1,154,0,105 fcb $1b,$46,1,154,0,110,$1b,$46,1,74,0,110 fcb $1b,$46,1,74,0,128,$1b,$46,1,50,0,128 fcb $1b,$46,1,50,0,110,$1b,$46,0,226,0,110 fcb $1b,$46,0,226,0,105 B622 fcb $1b,$40,1,178,0,96,$1b,$46,1,202,0,96 fcb $1b,$46,1,202,0,105,$1b,$46,2,10,0,105 fcb $1b,$46,2,10,0,110,$1b,$46,1,178,0,110 fcb $1b,$46,1,178,0,96 B623 fcb $1b,$40,2,34,0,96,$1b,$48,2,58,0,110 B624 fcb $1b,$40,0,66,0,123,$1b,$46,0,138,0,123 fcb $1b,$46,0,138,0,128,$1b,$46,0,90,0,128 fcb $1b,$46,0,90,0,146,$1b,$46,0,66,0,146 fcb $1b,$46,0,66,0,123 B625 fcb $1b,$40,0,162,0,123,$1b,$46,0,234,0,123 fcb $1b,$46,0,234,0,146,$1b,$46,0,210,0,146 fcb $1b,$46,0,210,0,128,$1b,$46,0,162,0,128 fcb $1b,$46,0,162,0,123 B626 fcb $1b,$40,1,2,0,123,$1b,$48,1,26,0,128 B627 fcb $1b,$40,1,98,0,123,$1b,$48,1,122,0,128 B628 fcb $1b,$40,1,146,0,123,$1b,$46,1,218,0,123 fcb $1b,$46,1,218,0,128,$1b,$46,1,170,0,128 fcb $1b,$46,1,170,0,146,$1b,$46,1,146,0,146 fcb $1b,$46,1,146,0,123 B629 fcb $1b,$40,1,242,0,123,$1b,$46,2,58,0,123 fcb $1b,$46,2,58,0,146,$1b,$46,2,34,0,146 fcb $1b,$46,2,34,0,128,$1b,$46,1,242,0,128 fcb $1b,$46,1,242,0,123 B630 fcb $1b,$40,0,66,0,159,$1b,$46,0,114,0,159 fcb $1b,$46,0,114,0,141,$1b,$46,0,138,0,141 fcb $1b,$46,0,138,0,164,$1b,$46,0,66,0,164 fcb $1b,$46,0,66,0,159 B631 fcb $1b,$40,0,162,0,141,$1b,$46,0,186,0,141 fcb $1b,$46,0,186,0,159,$1b,$46,0,234,0,159 fcb $1b,$46,0,234,0,164,$1b,$46,0,162,0,164 fcb $1b,$46,0,162,0,141 B632 fcb $1b,$40,1,2,0,141,$1b,$48,1,122,0,146 B633 fcb $1b,$40,1,2,0,159,$1b,$48,1,58,0,164 B634 fcb $1b,$40,1,82,0,159,$1b,$48,1,122,0,164 B635 fcb $1b,$40,1,146,0,159,$1b,$46,1,194,0,159 fcb $1b,$46,1,194,0,141,$1b,$46,1,218,0,141 fcb $1b,$46,1,218,0,164,$1b,$46,1,146,0,164 fcb $1b,$46,1,146,0,159 B636 fcb $1b,$40,1,242,0,141,$1b,$46,2,10,0,141 fcb $1b,$46,2,10,0,159,$1b,$46,2,58,0,159 fcb $1b,$46,2,58,0,164,$1b,$46,1,242,0,164 fcb $1b,$46,1,242,0,141 B6END equ *-B6STRT * (board #7) B7STRT fcb $1b,$32,1 fcb $1b,$40,0,36,0,83,$1b,$46,0,36,0,8 fcb $1b,$46,2,88,0,8,$1b,$46,2,88,0,83 fcb $1b,$46,2,50,0,83,$1b,$46,2,50,0,74 fcb $1b,$46,2,18,0,74,$1b,$46,2,18,0,69 fcb $1b,$46,2,82,0,69,$1b,$46,2,82,0,11 fcb $1b,$46,1,90,0,11,$1b,$46,1,90,0,29 fcb $1b,$46,1,34,0,29,$1b,$46,1,34,0,11 fcb $1b,$46,0,42,0,11,$1b,$46,0,42,0,69 fcb $1b,$46,0,106,0,69,$1b,$46,0,106,0,74 fcb $1b,$46,0,74,0,74,$1b,$46,0,74,0,83 fcb $1b,$46,0,36,0,83 * Bottom half of board fcb $1b,$40,0,36,0,96,$1b,$46,0,36,0,180 fcb $1b,$46,2,88,0,180,$1b,$46,2,88,0,96 fcb $1b,$46,2,50,0,96,$1b,$46,2,50,0,105 fcb $1b,$46,2,18,0,105,$1b,$46,2,18,0,110 fcb $1b,$46,2,82,0,110,$1b,$46,2,82,0,177 fcb $1b,$46,0,42,0,177,$1b,$46,0,42,0,110 fcb $1b,$46,0,106,0,110,$1b,$46,0,106,0,105 fcb $1b,$46,0,74,0,105,$1b,$46,0,74,0,96 fcb $1b,$46,0,36,0,96 B71 fcb $1b,$40,0,66,0,24,$1b,$46,0,106,0,24 fcb $1b,$46,0,106,0,38,$1b,$46,0,74,0,38 fcb $1b,$46,0,74,0,56,$1b,$46,0,66,0,56 fcb $1b,$46,0,66,0,24 B72 fcb $1b,$40,0,130,0,24,$1b,$46,0,138,0,24 fcb $1b,$46,0,138,0,56,$1b,$46,0,98,0,56 fcb $1b,$46,0,98,0,51,$1b,$46,0,130,0,51 fcb $1b,$46,0,130,0,24 B73 fcb $1b,$40,0,162,0,24,$1b,$46,1,10,0,24 fcb $1b,$46,1,10,0,29,$1b,$46,0,202,0,29 fcb $1b,$46,0,202,0,38,$1b,$46,0,162,0,38 fcb $1b,$46,0,162,0,24 B74 fcb $1b,$40,1,114,0,24,$1b,$46,1,218,0,24 fcb $1b,$46,1,218,0,38,$1b,$46,1,178,0,38 fcb $1b,$46,1,178,0,29,$1b,$46,1,114,0,29 fcb $1b,$46,1,114,0,24 B75 fcb $1b,$40,1,242,0,24,$1b,$46,1,250,0,24 fcb $1b,$46,1,250,0,51,$1b,$46,2,26,0,51 fcb $1b,$46,2,26,0,56,$1b,$46,1,242,0,56 fcb $1b,$46,1,242,0,24 B76 fcb $1b,$40,2,18,0,24,$1b,$46,2,58,0,24 fcb $1b,$46,2,58,0,56,$1b,$46,2,50,0,56 fcb $1b,$46,2,50,0,38,$1b,$46,2,18,0,38 fcb $1b,$46,2,18,0,24 B77 fcb $1b,$40,0,162,0,51,$1b,$46,0,202,0,51 fcb $1b,$46,0,202,0,60,$1b,$46,1,10,0,60 fcb $1b,$46,1,10,0,65,$1b,$46,0,162,0,65 fcb $1b,$46,0,162,0,51 B78 fcb $1b,$40,0,226,0,42,$1b,$46,1,154,0,42 fcb $1b,$46,1,154,0,47,$1b,$46,1,90,0,47 fcb $1b,$46,1,90,0,65,$1b,$46,1,34,0,65 fcb $1b,$46,1,34,0,47,$1b,$46,0,226,0,47 fcb $1b,$46,0,226,0,42 B79 fcb $1b,$40,1,114,0,60,$1b,$46,1,178,0,60 fcb $1b,$46,1,178,0,51,$1b,$46,1,218,0,51 fcb $1b,$46,1,218,0,65,$1b,$46,1,114,0,65 fcb $1b,$46,1,114,0,60 B710 fcb $1b,$40,0,98,0,87,$1b,$46,0,130,0,87 fcb $1b,$46,0,130,0,69,$1b,$46,0,138,0,69 fcb $1b,$46,0,138,0,92,$1b,$46,0,98,0,92 fcb $1b,$46,0,98,0,87 B711 fcb $1b,$40,0,162,0,78,$1b,$48,0,202,0,83 B712 fcb $1b,$40,0,226,0,78,$1b,$48,1,154,0,92 B713 fcb $1b,$40,1,178,0,78,$1b,$48,1,218,0,83 B714 fcb $1b,$40,1,242,0,69,$1b,$46,1,250,0,69 fcb $1b,$46,1,250,0,87,$1b,$46,2,26,0,87 fcb $1b,$46,2,26,0,92,$1b,$46,1,242,0,92 fcb $1b,$46,1,242,0,69 B715 fcb $1b,$40,0,130,0,105,$1b,$46,0,162,0,105 fcb $1b,$46,0,162,0,96,$1b,$46,0,202,0,96 fcb $1b,$46,0,202,0,110,$1b,$46,0,130,0,110 fcb $1b,$46,0,130,0,105 B716 fcb $1b,$40,1,178,0,96,$1b,$46,1,218,0,96 fcb $1b,$46,1,218,0,105,$1b,$46,1,250,0,105 fcb $1b,$46,1,250,0,110,$1b,$46,1,178,0,110 fcb $1b,$46,1,178,0,96 B717 fcb $1b,$40,0,66,0,123,$1b,$46,0,138,0,123 fcb $1b,$46,0,138,0,128,$1b,$46,0,90,0,128 fcb $1b,$46,0,90,0,146,$1b,$46,0,66,0,146 fcb $1b,$46,0,66,0,123 B718 fcb $1b,$40,0,162,0,123,$1b,$46,0,226,0,123 fcb $1b,$46,0,226,0,105,$1b,$46,0,250,0,105 fcb $1b,$46,0,250,0,123,$1b,$46,1,26,0,123 fcb $1b,$46,1,26,0,128,$1b,$46,0,162,0,128 fcb $1b,$46,0,162,0,123 B719 fcb $1b,$40,1,98,0,123,$1b,$46,1,130,0,123 fcb $1b,$46,1,130,0,105,$1b,$46,1,154,0,105 fcb $1b,$46,1,154,0,123,$1b,$46,1,218,0,123 fcb $1b,$46,1,218,0,128,$1b,$46,1,98,0,128 fcb $1b,$46,1,98,0,123 B720 fcb $1b,$40,1,242,0,123,$1b,$46,2,58,0,123 fcb $1b,$46,2,58,0,146,$1b,$46,2,34,0,146 fcb $1b,$46,2,34,0,128,$1b,$46,1,242,0,128 fcb $1b,$46,1,242,0,123 B721 fcb $1b,$40,0,66,0,159,$1b,$46,0,114,0,159 fcb $1b,$46,0,114,0,141,$1b,$46,0,154,0,141 fcb $1b,$46,0,154,0,164,$1b,$46,0,66,0,164 fcb $1b,$46,0,66,0,159 B722 fcb $1b,$40,0,178,0,141,$1b,$46,0,202,0,141 fcb $1b,$46,0,202,0,159,$1b,$46,1,26,0,159 fcb $1b,$46,1,26,0,164,$1b,$46,0,178,0,164 fcb $1b,$46,0,178,0,141 B723 fcb $1b,$40,1,98,0,159,$1b,$46,1,178,0,159 fcb $1b,$46,1,178,0,141,$1b,$46,1,202,0,141 fcb $1b,$46,1,202,0,164,$1b,$46,1,98,0,164 fcb $1b,$46,1,98,0,159 B724 fcb $1b,$40,1,226,0,141,$1b,$46,2,10,0,141 fcb $1b,$46,2,10,0,159,$1b,$46,2,58,0,159 fcb $1b,$46,2,58,0,164,$1b,$46,1,226,0,164 fcb $1b,$46,1,226,0,141 B725 fcb $1b,$40,1,74,0,164,$1b,$46,1,74,0,146 fcb $1b,$46,1,154,0,146,$1b,$46,1,154,0,141 fcb $1b,$46,1,74,0,141,$1b,$46,1,74,0,123 fcb $1b,$46,1,50,0,123,$1b,$46,1,50,0,141 fcb $1b,$46,0,226,0,141,$1b,$46,0,226,0,146 fcb $1b,$46,1,50,0,146,$1b,$46,1,50,0,164 fcb $1b,$46,1,74,0,164 B726 fcb $1b,$40,1,18,0,105,$1b,$48,1,106,0,110 B7END equ *-B7STRT B8STRT fcb $1b,$32,1 fcb $1b,$40,1,42,0,8,$1b,$46,0,36,0,8 fcb $1b,$46,0,36,0,180,$1b,$46,1,58,0,180 fcb $1b,$46,1,58,0,159,$1b,$46,1,50,0,159 fcb $1b,$46,1,50,0,177,$1b,$46,0,42,0,177 fcb $1b,$46,0,42,0,146,$1b,$46,0,90,0,146 fcb $1b,$46,0,90,0,141,$1b,$46,0,42,0,141 fcb $1b,$46,0,42,0,11,$1b,$46,1,34,0,11 fcb $1b,$46,1,34,0,29,$1b,$46,1,42,0,29 fcb $1b,$46,1,42,0,8 fcb $1b,$40,1,66,0,8,$1b,$46,2,88,0,8 fcb $1b,$46,2,88,0,180,$1b,$46,1,82,0,180 fcb $1b,$46,1,82,0,159,$1b,$46,1,90,0,159 fcb $1b,$46,1,90,0,177,$1b,$46,2,82,0,177 fcb $1b,$46,2,82,0,146,$1b,$46,2,34,0,146 fcb $1b,$46,2,34,0,141,$1b,$46,2,82,0,141 fcb $1b,$46,2,82,0,11,$1b,$46,1,74,0,11 fcb $1b,$46,1,74,0,29,$1b,$46,1,66,0,29 fcb $1b,$46,1,66,0,8 B81 fcb $1b,$40,0,66,0,24,$1b,$48,0,90,0,38 B82 fcb $1b,$40,0,114,0,24,$1b,$48,0,138,0,29 B83 fcb $1b,$40,0,242,0,24,$1b,$46,1,10,0,24 fcb $1b,$46,1,10,0,42,$1b,$46,1,42,0,42 fcb $1b,$46,1,42,0,47,$1b,$46,0,210,0,47 fcb $1b,$46,0,210,0,42,$1b,$46,0,242,0,42 fcb $1b,$46,0,242,0,24 B84 fcb $1b,$40,1,98,0,24,$1b,$46,1,122,0,24 fcb $1b,$46,1,122,0,42,$1b,$46,1,154,0,42 fcb $1b,$46,1,154,0,47,$1b,$46,1,66,0,47 fcb $1b,$46,1,66,0,42,$1b,$46,1,98,0,42 fcb $1b,$46,1,98,0,24 B85 fcb $1b,$40,1,242,0,24,$1b,$48,2,10,0,29 B86 fcb $1b,$40,2,34,0,24,$1b,$48,2,58,0,38 B87 fcb $1b,$40,0,66,0,51,$1b,$48,0,90,0,56 B88 fcb $1b,$40,0,114,0,42,$1b,$48,0,138,0,56 B89 fcb $1b,$40,0,162,0,24,$1b,$46,0,218,0,24 fcb $1b,$46,0,218,0,29,$1b,$46,0,186,0,29 fcb $1b,$46,0,186,0,60,$1b,$46,0,234,0,60 fcb $1b,$46,0,234,0,65,$1b,$46,0,162,0,65 fcb $1b,$46,0,162,0,24 B810 fcb $1b,$40,1,2,0,60,$1b,$48,1,106,0,65 B811 fcb $1b,$40,1,146,0,24,$1b,$46,1,218,0,24 fcb $1b,$46,1,218,0,65,$1b,$46,1,130,0,65 fcb $1b,$46,1,130,0,60,$1b,$46,1,178,0,60 fcb $1b,$46,1,178,0,29,$1b,$46,1,146,0,29 fcb $1b,$46,1,146,0,24 B812 fcb $1b,$40,1,242,0,42,$1b,$48,2,10,0,56 B813 fcb $1b,$40,2,34,0,51,$1b,$48,2,58,0,56 B814 fcb $1b,$40,0,66,0,87,$1b,$48,0,106,0,92 B815 fcb $1b,$40,0,66,0,69,$1b,$46,0,138,0,69 fcb $1b,$46,0,138,0,110,$1b,$46,0,66,0,110 fcb $1b,$46,0,66,0,105,$1b,$46,0,130,0,105 fcb $1b,$46,0,130,0,74,$1b,$46,0,66,0,74 fcb $1b,$46,0,66,0,69 B816 fcb $1b,$40,0,162,0,78,$1b,$48,0,202,0,83 B817 fcb $1b,$40,0,226,0,78,$1b,$48,1,154,0,92 B818 fcb $1b,$40,1,178,0,78,$1b,$48,1,218,0,83 B819 fcb $1b,$40,1,242,0,69,$1b,$46,2,58,0,69 fcb $1b,$46,2,58,0,74,$1b,$46,1,250,0,74 fcb $1b,$46,1,250,0,105,$1b,$46,2,58,0,105 fcb $1b,$46,2,58,0,110,$1b,$46,1,242,0,110 fcb $1b,$46,1,242,0,69 B820 fcb $1b,$40,2,18,0,87,$1b,$48,2,58,0,92 B821 fcb $1b,$40,0,162,0,96,$1b,$48,0,202,0,110 B822 fcb $1b,$40,0,226,0,105,$1b,$46,1,154,0,105 fcb $1b,$46,1,154,0,110,$1b,$46,1,74,0,110 fcb $1b,$46,1,74,0,128,$1b,$46,1,50,0,128 fcb $1b,$46,1,50,0,110,$1b,$46,0,226,0,110 fcb $1b,$46,0,226,0,105 B823 fcb $1b,$40,1,178,0,96,$1b,$48,1,218,0,110 B824 fcb $1b,$40,0,66,0,123,$1b,$48,0,138,0,128 B825 fcb $1b,$40,1,242,0,123,$1b,$48,2,58,0,128 B826 fcb $1b,$40,0,114,0,141,$1b,$46,0,162,0,141 fcb $1b,$46,0,162,0,123,$1b,$46,1,26,0,123 fcb $1b,$46,1,26,0,128,$1b,$46,0,202,0,128 fcb $1b,$46,0,202,0,159,$1b,$46,0,234,0,159 fcb $1b,$46,0,234,0,164,$1b,$46,0,162,0,164 fcb $1b,$46,0,162,0,146,$1b,$46,0,114,0,146 fcb $1b,$46,0,114,0,141 B827 fcb $1b,$40,0,226,0,141,$1b,$46,1,58,0,141 fcb $1b,$46,1,58,0,146,$1b,$46,1,26,0,146 fcb $1b,$46,1,26,0,164,$1b,$46,1,2,0,164 fcb $1b,$46,1,2,0,146,$1b,$46,0,226,0,146 fcb $1b,$46,0,226,0,141 B828 fcb $1b,$40,1,82,0,141,$1b,$46,1,170,0,141 fcb $1b,$46,1,170,0,146,$1b,$46,1,138,0,146 fcb $1b,$46,1,138,0,164,$1b,$46,1,114,0,164 fcb $1b,$46,1,114,0,146,$1b,$46,1,82,0,146 fcb $1b,$46,1,82,0,141 B829 fcb $1b,$40,1,98,0,123,$1b,$46,1,218,0,123 fcb $1b,$46,1,218,0,141,$1b,$46,2,10,0,141 fcb $1b,$46,2,10,0,146,$1b,$46,1,218,0,146 fcb $1b,$46,1,218,0,164,$1b,$46,1,162,0,164 fcb $1b,$46,1,162,0,159,$1b,$46,1,194,0,159 fcb $1b,$46,1,194,0,128,$1b,$46,1,98,0,128 fcb $1b,$46,1,98,0,123 B830 fcb $1b,$40,0,66,0,159,$1b,$48,0,138,0,164 B831 fcb $1b,$40,1,242,0,159,$1b,$48,2,58,0,164 B8END equ *-B8STRT * These fcb bytes are transfered to the score RMB's in MAIN * they are used to fill SCRPOS,SCRASC,SCORE,POINTS,SHCNT, * SCRPO2,SCRAS2 and SCORE2. SCRSET fcb 2,64,32 fcb 32,32,32,32,32,48 fcb 0,0,0,0,0,0,0 fcb 2,66,32 fcb 32,32,32,32,32,48 fcb 0,0,0 SCNSET fcb $1b,$32,9 fcb 2,70,35,76,118 fcb 2,71,36,32 * * Start of BOARD routines * Using current board number, point to * board draw fcb's and output them * BOARDB: lda BRDNUM Get board number deca bne SEL2 leax B1STRT,pcr ldy #B1END bra BRDOUT SEL2 deca bne SEL3 leax B2STRT,pcr ldy #B2END bra BRDOUT SEL3 deca bne SEL4 leax B3STRT,pcr ldy #B3END bra BRDOUT SEL4 deca bne SEL5 leax B4STRT,pcr ldy #B4END bra BRDOUT SEL5 deca bne SEL6 leax B5STRT,pcr ldy #B5END bra BRDOUT SEL6 deca bne SEL7 leax B6STRT,pcr ldy #B6END bra BRDOUT SEL7 deca bne SEL8 leax B7STRT,pcr ldy #B7END bra BRDOUT SEL8 leax B8STRT,pcr ldy #B8END BRDOUT lda PATH,U os9 I$Write lbcs ERR1 * Now put board number at bottom of screen SCNUMB lda BRDNUM Get current board # adda #48 Convert to ascii leax SCNNUM,U Point to string sta 11,X Put board# in string ldy #12 Output 12 bytes lbsr OUTSTR rts * These routines are used at start of game, after * being used once then BOARDB is used. BOARDC: nop leax FSCORE,U Point to high score array leax 15,X Point to highest score leay HSCASC,U ldb #6 HLOOP lda ,X+ Transfer file high score sta ,Y+ decb bne HLOOP * These 9 bytes are used to put the board * number on screen SETSCN leax SCNSET,pcr leay SCNNUM,U ldb #12 Transfer 12 bytes SELOOP lda ,X+ Get a byte sta ,Y+ Transfer it decb bne SELOOP Loop till done lbsr BOARDB Go select start screen * Transfer score set bytes to the rmb's in MAIN SETSCR leax SCRSET,pcr Point to bytes to transfer leay SCRPOS,U Point to where bytes go ldb #28 Transfer 28 bytes SLOOP lda ,X+ Get a byte sta ,Y+ Store it decb Decrement counter bne SLOOP Loop till done * This routine will place the DOTS and POWER PILLS on the screen * This routine will also be used to reset the screen when * pacman gets caught by the ghosts. PDOTS: leax ARRAY,U Point to start of array leax 70,X Set X reg. to first dot location stx XTEMP,U Save offset ldd #52 std PXLOC,U ldd #16 std PYLOC DOTLOP ldx XTEMP,U Get offset from start of array ldb #56 Prepare to setup for buffer #56 lda ,X Get a byte from the array beq STORIT bmi MOVE cmpa #1 Is it an intersection ? beq STORIT ldb #40 bita #2 Is it a regular dot ? bne STORIT bita #4 Is it a power dot ? beq MOVE If not, then just move on ldb #50 Set for buffer # 50 STORIT stb PBFN,U Store appropriate Putblk buff # cmpb #49 Is it a power dot ? bls NOPOW ldd PXLOC,U Get screen X location subd #2 Subtract 2 from it std PXLOC,U put it back NOPOW lbsr PUTBLK Go output putblk code lda PBFN,U cmpa #49 Did we write a power dot ? bls MOVE ldd PXLOC,U addd #2 Return to original count std PXLOC,U MOVE ldx XTEMP,U Get current array position cmpx #ARREND-71 Are we done yet ? bge PUTGHST If so then leave this routine leax 2,X Add 2 to offset stx XTEMP,U Save new offset ldd PXLOC,U Get current screen X location addd #16 Add 16 to it cmpd #596 Have we gone past 580 yet ? bne NOVERT If not, then go store PXLOC ldx XTEMP,U leax 139,X stx XTEMP,U ldd PYLOC,U Get current screen Y location addd #9 Add 9 to it std PYLOC,U Save new screen Y location ldd #52 Reset X location to 52 NOVERT std PXLOC,U Store new screen X location lbra DOTLOP Keep looping * Put ghosts on the screen PUTGHST leax G1OFST,U Point to ghost #1 table lda 11,X Get buff # sta PGBFN,U Give buffer # to PUTGH ldd 4,X Get screen Y location std PGYLOC,U Set screen Y location ldd 2,X Get screen X location std PGXLOC,U Set screen X location lbsr PUTGHT Go do putght leax G2OFST,U Point to ghost #2 table lda 11,X Get buff # sta PGBFN,U Set buffer ldd 2,X std PGXLOC,U Set screen X location lbsr PUTGHT Go do putght leax G3OFST,U Point to ghost #3 table lda 11,X Get buff # sta PGBFN,U Set buffer ldd 2,X std PGXLOC,U Set screen X location lbsr PUTGHT Go do putght leax G4OFST,U Point to ghost #4 table lda 11,X Get buff # sta PGBFN,U Set buffer ldd 2,X std PGXLOC,U Set screen X location lbsr PUTGHT Go do putght * Put pacman and extra men on screen PUTPAC ldd #181 std PYLOC,U Set screen Y location lda #37 Buff# for blank pacman sta PBFN,U Set up buffer # for PUTBLK ldd #450 Set left most extra pacman -30 std PXLOC,U position lda #5 Set counter ldb PACMAN Get # of men left for player pshs A Save count pshs B Save for later PUTLOP puls B Get count incb Increment it cmpb #6 bne FLIPON lda #28 Set for left facing pacman sta PBFN,U FLIPON puls A deca beq PUTPC2 pshs A pshs B Save new count ldd PXLOC,U Get last X screen location addd #30 Move right 30 pixels std PXLOC,U Give new value to PUTBLK lbsr PUTBLK Go do putblk bra PUTLOP PUTPC2 ldd #94 std PYLOC,U Set screen Y location ldd #308 std PXLOC,U Set screen X location lbsr PUTBLK Go do putblk rts Return to main ENDSECT