mt.inf equ $00 trap #1 mt.free equ $06 mt.alchp equ $18 mt.rechp equ $19 mt.liod equ $20 io.open equ $01 trap #2 io.close equ $02 io.fbyte equ $01 trap #3 io.fstrg equ $03 io.sbyte equ $05 io.sstrg equ $07 sd.extop equ $09 sd.wdef equ $0d sd.setin equ $29 fs.posab equ $42 fs.posre equ $43 fs.headr equ $47 fs.load equ $48 iop_pinf equ $70 iop.rptr equ $71 mm.alchp equ $c0 vectored utilities mm.rechp equ $c2 ut.scr equ $c8 ut.mint equ $ce ut.mtext equ $d0 bp.init equ $110 ca.gtint equ $112 ca.gtstr equ $116 ca.gtlin equ $118 io.name equ $122 bv.chrix equ $11a * trk equ $00 wrd equ $10 pad equ $20 blk equ $30 pol equ $90 polygon not supported inf equ $80 end equ $f0 lab_mask equ $0fff lib_mask equ $7fff comp_mask equ $8000 ncomp_mask equ $7fff type_mask equ $f0 lay_mask equ $3f via_mask equ $c0 size_mask equ $3f label text size mask ctrl_mask equ $c0 label text control mask mbit equ 7 mirror bit obit equ 6 orientation bit inv_lay equ $3f lsw_mask equ $80 label switch bit mask nlsw_mask equ $7f not label switch bit mask bga_len equ $02 minimum x,y size of ball grid array lab_vert equ 35 label vertical spacing * mem_ptr equ 24 Current MEM pointer buff_id equ 28 Word ID of buffer chan_link equ 30 Channel list pointer buff_addr equ 34 Buffer start address buff_flag equ 38 Word persistence flag * start tst.w d1 beq.s auto_scr lea par,a4 move.w d1,300(a4) window width move.w d1,186(a4) screen width move.w d2,302(a4) window height move.w d2,188(a4) screen height move.l d3,18(a4) screen address cmpi.w #8,258(a4) bne.s ntmde81 lsr.w #1,d1 ntmde81 move.w d1,296(a4) screen width in pixels auto_scr move.w bp.init,a0 bp.init vector lea.l define,a1 jsr (a0) * lea.l serio_ptrs,a0 set up SERIO linkage lea.l io_ready,a2 move.l a2,(a0)+ lea.l fetch_byte,a2 move.l a2,(a0)+ lea.l send_byte,a2 move.l a2,(a0)+ lea.l io_pointer,a0 set up device linkage lea.l io_code,a2 move.l a2,(a0)+ lea.l open_code,a2 move.l a2,(a0)+ lea.l close_code,a2 move.l a2,(a0)+ lea.l linkage,a0 link the MEM device moveq #mt.liod,d0 trap #1 rts return D0 to caller * linkage dc.l 0 link to next device io_pointer dc.l 0 pointer to I/O code dc.l 0 pointer to OPEN code dc.l 0 pointer to CLOSE code * buff_ptr dc.l 0 start of buffer list chan_ptr dc.l 0 start of channel list * * code to handle trap #3 calls: io.pend, fbyte, fline, * fstrg, sbyte, sstrg, extop, posab, posre, load, save * io_code cmp.b #9,d0 call to fs.extop? beq vector_a2 move.l mem_ptr(a0),a5 a5 -> mem address cmp.b #fs.posab,d0 call to fs.posab? beq.s set_abspos cmp.b #fs.posre,d0 call to fs.posre? beq.s set_relpos move.w 234,a2 use io.serio vector jsr (a2) do other serial i/o serio_ptrs dc.l 0 pointer for io.pend dc.l 0 pointer for io.fetch dc.l 0 pointer for io.send rts return from serio * set_abspos tst.l d1 negative parameter? bpl.s use_posn move.l buff_addr(a0),d1 get default base use_posn move.l d1,a5 set position bra.s set_memptr set_relpos adda.l d1,a5 offset position move.l a5,d1 return new value bra.s set_memptr send_byte move.b d1,(a5)+ bra.s set_memptr fetch_byte move.b (a5)+,d1 set_memptr move.l a5,mem_ptr(a0) reset mem pointer io_ready moveq #0,d0 rts * * code to handle trap #2 calls: open and close * open_code subq.l #6,a7 make space on stack move.l a7,a3 a3 -> parameters move.w io.name,a2 use io.name vector jsr (a2) bra.s exit_open name faulty bra.s exit_open parameters faulty bra.s open_ok name parsed ok dc.w 3 length of name dc.b 'MEM' dc.w 3 max. 3 parameters dc.w -1,-1 buffer number dc.w ' _',-1 buffer size dc.w 2,'PT' permanent/temporary * open_ok move.l a3,a5 a5 -> parameters moveq #40,d1 40 bytes needed move.w mm.alchp,a2 mm.alchp vector jsr (a2) allocate memory beq.s do_buffers go on if ram permits exit_open addq.l #6,a7 deallocate stack space tst.l d0 error code is in D0 rts * do_buffers move.w (a5),d7 get buffer id move.w d7,buff_id(a0) keep buffer id bmi.s exit_open no buffer, exit move.w 4(a5),buff_flag(a0) keep p/t flag move.l a0,a4 save channel base lea.l buff_ptr,a3 search buffer list bsr.s scanner does the buffer exist? beq.s new_one no it doesn't lea.l 6(a3),a0 a0 -> start of buffer moveq #0,d0 opened without errors bra.s set_addr tell the channel * new_one move.w 2(a5),d1 was a size specified? bmi.s no_size if not, complain! addq.w #8,d1 allow for a header ext.l d1 d1 = total buffer size moveq #0,d2 permanent allocation moveq #mt.alchp,d0 mt.alchp key trap #1 try to allocate memory tst.l d0 did that work? bne.s no_room if not, complain move.l a0,d2 keep buffer base move.w d7,(a0)+ record buffer id lea.l buff_ptr,a3 extend the buffer list move.l (a3),(a0)+ move.l d2,(a3) start with new buffer sub.w #24,d1 ignore header bytes move.w d1,(a0)+ store buffer length set_addr move.l a0,buff_addr(a4) record buffer start move.l a0,mem_ptr(a4) initialise pointer lea.l chan_ptr,a3 extend channel list move.l (a3),chan_link(a4) lea.l buff_id(a4),a2 move.l a2,(a3) move.l a4,a0 a0 -> channel block bra.s exit_open * no_room move.l a4,a0 retrieve channel bsr.s lose_chan moveq #-3,d0 no room for the buffer bra.s exit_open report out of memory no_size bsr.s lose_chan moveq #-15,d0 size needed but absent bra.s exit_open report bad parameter * scanner move.l a3,a2 find the id in d7.w move.l (a2),d0 try the next link beq.s not_found no such luck, quit move.l d0,a3 a3 -> buffer id.w cmp.w (a3)+,d7 is it what we want? bne.s scanner if no, try the next tst.l d0 yes, return a2 & a3 not_found rts return d0=0 if absent * close_code lea.l buff_id(a0),a4 get list position lea.l chan_ptr,a3 purge channel list bsr.s purge_list move.w (a4),d7 is a buffer in use? bmi.s lose_chan no, just zap channel subq.w #1,buff_flag(a0) is buffer permanent? beq.s lose_chan yes, just zap channel lea.l chan_ptr,a3 is the buffer busy? bsr.s scanner search channel list bne.s lose_chan if busy keep buffer move.l buff_addr(a0),a4 find buffer subq.l #8,a4 include header lea.l buff_ptr,a3 scan buffer list bsr.s purge_list un-link buffer exg a4,a0 swap pointers over moveq #mt.rechp,d0 mt.rechp key trap #1 deallocate buffer move.l a4,a0 restore channel base lose_chan move.w mm.rechp,a2 mm.rechp vector vector_a2 jmp (a2) deallocate channel * purge_list move.l a3,a2 remove link to (a4) move.l (a2),d0 beq.s bizarre no more - abort! move.l d0,a3 a3 -> buffer id.w addq.l #2,a3 skip buffer id cmp.l a4,d0 have we found it? bne.s purge_list no, look further move.l (a3),(a2) de-list the entry bizarre rts * exit01 moveq #0,d0 rts * startup lea par,a4 tst.l 18(a4) bne allocscr screen parameters already present move.l #0,a0 move.w ut.scr,a0 ***** lea.l win1,a1 * initialise window jsr (a0) * move.l a0,86(a4) * store channel id * scr_x_size moveq #sd.wdef,d0 moveq #0,d1 border colour moveq #0,d2 border width moveq #-1,d3 timeout lea scr_size,a1 addi.w #2,(a1) increment window width trap #3 tst.w d0 beq.s scr_x_size lea scr_size,a1 subi.w #2,(a1) scr_y_size moveq #sd.wdef,d0 moveq #0,d1 moveq #0,d2 moveq #-1,d3 lea scr_size,a1 addi.w #1,2(a1) increment window height trap #3 tst.w d0 beq.s scr_y_size lea scr_size,a1 subi.w #1,2(a1) * move.w (a1),d0 lea par,a4 move.w d0,186(a4) store screen width move.w d0,300(a4) store window width move.w 2(a1),188(a4) store screen height move.w 2(a1),302(a4) store window height cmpi.w #8,258(a4) bne.s ntmde82 lsr.w #1,d0 ntmde82 move.w d0,296(a4) store screen width in pixels * move.l 86(a4),a0 restore channel id moveq #sd.extop,d0 trap code moveq #-1,d3 timeout lea extop,a2 routine to call via sd_extop trap #3 tst.l d0 bne.s badcall a1 = rubbish lea par,a4 move.l a1,18(a4) * move.l 86(a4),a0 restore channel id moveq #io.close,d0 trap #2 close channel * allocscr move.w 186(a4),d1 d0 = window width muls 188(a4),d1 window height asr.l #2,d1 tst.b 263(a4) check for hi colour beq.s nothicol asl.l #3,d1 hi colour needs 8 times more memory nothicol moveq #0,d2 permanent allocation moveq #mt.alchp,d0 mt.alchp key trap #1 try to allocate memory tst.l d0 did that work? bne.s badcall if not, complain move.l a0,150(a4) * badcall rts * extop move.l $32(a0),a1 screen base moveq #0,d0 no errors rts * badpar1 moveq #-15,d0 rts * window move.w ca.gtlin,a0 jsr (a0) bne exit01 tst.w d3 beq.s nopars cmpi.w #4,d3 bne.s badpar1 lea par,a4 tst.w 186(a4) beq.s badpar1 tst.w 188(a4) beq.s badpar1 move.w 2(a6,a1.l),d0 width move.w 6(a6,a1.l),d1 height move.w 10(a6,a1.l),d2 x offset move.w 14(a6,a1.l),d3 y offset cmp.w 186(a4),d0 bgt.s badpar1 window too wide cmp.w 188(a4),d1 bgt.s badpar1 window too high cmp.w #0,d2 blt.s badpar1 window too far left of screen cmp.w #0,d3 blt.s badpar1 window too far up screen move.w d0,d4 add.w d2,d4 cmp.w 186(a4),d4 bgt.s badpar1 window too far right of screen move.w d1,d4 add.w d3,d4 cmp.w 188(a4),d4 bgt.s badpar1 window too far down screen * move.w d0,300(a4) save window parameters move.w d1,302(a4) move.w d2,304(a4) move.w d3,306(a4) cmpi.w #8,258(a4) bne.s ntmde83 lsr.w #1,d0 lsr.w #1,d2 ntmde83 move.w d0,296(a4) window width in pixels move.w d2,298(a4) window offset in pixels * nopars lea win1,a2 move.w 304(a4),d0 addi.w #12,d0 move.w d0,8(a2) move.w 302(a4),d0 add.w 306(a4),d0 subi.w #10,d0 move.w d0,10(a2) * lea win2,a2 move.w 300(a4),d0 add.w 304(a4),d0 subi.w #144,d0 move.w d0,8(a2) move.w 302(a4),d0 add.w 306(a4),d0 subi.w #10,d0 move.w d0,10(a2) * lea win3,a2 move.w 300(a4),d0 asr.w #1,d0 add.w 304(a4),d0 subi.w #198,d0 move.w d0,8(a2) move.w 302(a4),d0 add.w 306(a4),d0 subi.w #10,d0 move.w d0,10(a2) * tst.b 260(a4) bne.s windowsop windows already open move.l #0,a0 ***** move.w ut.scr,a0 * lea win1,a1 * open windows jsr (a0) * move.l a0,86(a4) * move.l #0,a0 * move.w ut.scr,a0 * lea win2,a1 * jsr (a0) * move.l a0,90(a4) * move.l #0,a0 * move.w ut.scr,a0 * lea win3,a1 * jsr (a0) * move.l a0,158(a4) ***** move.b #1,260(a4) set windows open flag moveq #0,d0 rts * windowsop move.l 86(a4),a0 change window parameters lea win1_def,a1 bsr.s changewin move.l 90(a4),a0 lea win2_def,a1 bsr.s changewin move.l 158(a4),a0 lea win3_def,a1 moveq #0,d0 rts * changewin moveq #sd.wdef,d0 moveq #0,d1 moveq #0,d2 moveq #-1,d3 trap #3 moveq #7,d1 * set ink needed due to bsr sdsetink * QDOS bug rts * shutdown lea par,a4 tst.b 260(a4) beq exit01 windows not open moveq #io.close,d0 ***** move.l 86(a4),a0 * trap #2 * close windows moveq #io.close,d0 * move.l 90(a4),a0 * trap #2 * moveq #io.close,d0 * move.l 158(a4),a0 * trap #2 ***** move.b #0,260(a4) windows are closed move.l 150(a4),a0 moveq #mt.rechp,d0 mt.rechp key trap #1 deallocate memory moveq #0,d0 rts * win1 dc.b 0 dc.b 0 dc.b 0 dc.b 7 win1_def dc.w 264 dc.w 10 dc.w 12 dc.w 246 * win2 dc.b 0 dc.b 0 dc.b 0 dc.b 7 win2_def dc.w 132 dc.w 10 dc.w 348 dc.w 246 * win3 dc.b 0 dc.b 0 dc.b 0 dc.b 7 win3_def dc.w 396 dc.w 10 dc.w 60 dc.w 246 * define dc.w 228 seventy four procedures + data space dc.w prt_stat-* 1 (number of procs+number of chars+7)/8 dc.b 10,'PCBPrtStat' dc.w cursor-* 2 dc.b 9,'PCBCursor' dc.w scale-* 3 dc.b 8,'PCBScale' dc.w grid_step-* 4 dc.b 11,'PCBGridStep' dc.w set_grid-* 5 dc.b 9,'PCBGridOn' dc.w fast-* 6 dc.b 7,'PCBFast' dc.w text-* 7 dc.b 7,'PCBText' dc.w update-* 8 dc.b 9,'PCBUpdate' dc.w relocate-* 9 dc.b 11,'PCBRelocate' dc.w origin-* 10 dc.b 9,'PCBOrigin' dc.w cad_edit-* 11 dc.b 7,'PCBEdit' dc.w set_edit-* 12 dc.b 10,'PCBSetEdit' dc.w edit_del-* 13 dc.b 10,'PCBEditDel' dc.w edit_kill-* 14 dc.b 11,'PCBEditKill' dc.w edit_move-* 15 dc.b 11,'PCBEditMove' dc.w edit_make-* 16 dc.b 11,'PCBEditMake' dc.w edit_copy-* 17 dc.b 11,'PCBEditCopy' dc.w edit_inv-* 18 dc.b 10,'PCBEditInv' dc.w edit_lay-* 19 dc.b 12,'PCBEditLayer' dc.w edit_siz-* 20 dc.b 11,'PCBEditSize' dc.w edit_lab-* 21 dc.b 12,'PCBEditLabel' dc.w ed_layexg-* 22 dc.b 10,'PCBEditExg' dc.w edit_rot-* 23 dc.b 10,'PCBEditRot' dc.w edit_krump-* 24 dc.b 12,'PCBEditKrump' dc.w edit_dn-* 25 dc.b 9,'PCBEditDn' dc.w mask-* 26 dc.b 7,'PCBMask' dc.w area-* 27 dc.b 7,'PCBArea' dc.w area_inv-* 28 dc.b 10,'PCBAreaInv' dc.w area_move-* 29 dc.b 11,'PCBAreaMove' dc.w area_del-* 30 dc.b 10,'PCBAreaDel' dc.w area_copy-* 31 dc.b 11,'PCBAreaCopy' dc.w area_refid-* 32 dc.b 12,'PCBAreaRefID' dc.w area_make-* 33 dc.b 11,'PCBAreaMake' dc.w cad_base-* 34 dc.b 10,'PCBArtBase' dc.w cad_top-* 35 dc.b 9,'PCBArtTop' dc.w save_base-* 36 dc.b 11,'PCBSaveBase' dc.w lib_base-* 37 dc.b 10,'PCBLibBase' dc.w lib_set-* 38 dc.b 9,'PCBLibSet' dc.w save_scr-* 39 dc.b 10,'PCBSaveScr' dc.w load_scr-* 40 dc.b 10,'PCBLoadScr' dc.w do_it-* 41 dc.b 7,'PCBDoIt' dc.w undo-* 42 dc.b 7,'PCBUndo' dc.w swaplib-* 43 dc.b 10,'PCBSwapLib' dc.w pad_s_l-* 44 dc.b 9,'PCBSetPad' dc.w track_s_l-* 45 dc.b 11,'PCBSetTrack' dc.w hdens-* 46 dc.b 11,'PCBSetHDens' dc.w block_s_l-* 47 dc.b 11,'PCBSetBlock' dc.w circle_s_l-* 48 dc.b 12,'PCBSetCircle' dc.w via_s-* 49 dc.b 9,'PCBSetVia' dc.w set_comp-* 50 dc.b 10,'PCBSetComp' dc.w do_label-* 51 dc.b 10,'PCBDoLabel' dc.w set_buff-* 52 dc.b 10,'PCBSetBuff' dc.w whole-* 53 dc.b 12,'PCBWholeMode' dc.w m_element-* 54 dc.b 14,'PCBMoveElement' dc.w type_size-* 55 dc.b 11,'PCBTypeSize' dc.w type-* 56 dc.b 7,'PCBType' dc.w cad_load-* 57 dc.b 7,'PCBLoad' dc.w prt_logo-* 58 dc.b 10,'PCBPrtLogo' dc.w set_key-* 59 dc.b 9,'PCBSetKey' dc.w tp_size-* 60 dc.b 9,'PCBTPSize' dc.w snap-* 61 dc.b 7,'PCBSnap' dc.w setlab-* 62 dc.b 9,'PCBSetLab' dc.w blklab_off-* 63 dc.b 12,'PCBBlkLabOff' dc.w layerexg-* 64 dc.b 9,'PCBLayerX' dc.w therm_bs-* 65 dc.b 12,'PCBThermalBS' dc.w layers-* 66 dc.b 8,'PCBLayer' dc.w shutdown-* 67 dc.b 11,'PCBShutdown' dc.w startup-* 68 dc.b 10,'PCBStartup' dc.w window-* 69 dc.b 9,'PCBWindow' dc.w lay_zero-* 70 dc.b 10,'PCBLayZero' dc.w holes-* 71 dc.b 8,'PCBHoles' dc.w dpi-* 72 dc.b 6,'PCBDPI' dc.w pin_inv-* 73 dc.b 6,'PCBInv' dc.w lab_dens-* 74 dc.b 10,'PCBLabDens' dc.w 0 dc.w 50 twenty four functions dc.w cad_rev-* 1 dc.b 7,'PCBRev$' dc.w file_len-* 2 dc.b 13,'PCBFileLength' dc.w search-* 3 dc.b 9,'PCBSearch' dc.w grid-* 4 dc.b 7,'PCBGrid' dc.w edit_addr-* 5 dc.b 11,'PCBEditAddr' dc.w text_addr-* 6 dc.b 11,'PCBTextAddr' dc.w mask_col-* 7 dc.b 10,'PCBMaskCol' dc.w lib-* 8 dc.b 6,'PCBLib' dc.w lib_id-* 9 dc.b 8,'PCBLibID' dc.w fstat-* 10 dc.b 8,'PCBFStat' dc.w page_sze-* 11 dc.b 11,'PCBPageSize' dc.w moden-* 12 dc.b 8,'PCBModeN' dc.w last_key-* 13 dc.b 10,'PCBLastKey' dc.w editn-* 14 dc.b 8,'PCBEditN' dc.w fr_mem-* 15 dc.b 10,'PCBFreeMem' dc.w read_net-* 16 dc.b 9,'PCBRdNet$' dc.w lab_mode-* 17 dc.b 10,'PCBLabMode' dc.w edt_size-* 18 dc.b 10,'PCBEdtSize' dc.w pad_chk-* 19 dc.b 9,'PCBPadChk' dc.w lay_chk-* 20 dc.b 9,'PCBLayChk' dc.w states-* 21 dc.b 9,'PCBStates' dc.w mousebt-* 22 dc.b 10,'PCBMouseBt' dc.w qptr-* 23 dc.b 7,'PCBQPTR' dc.w test_ret-* 24 dc.b 7,'PCBTest' dc.w 0 * scr_size dc.w 512 dc.w 256 dc.w 0 dc.w 0 * message dc.w 30 dc.b ' (C) 1989-2011' dc.b ' Malcolm Lear' * cad_rev lea revision,a4 bra str_ret revision dc.w 7 dc.b 'Ver 124' * get_ptr moveq #mt.inf,d0 trap #1 a0 = system variables move.l $78(a0),a0 a0 = base of channel table move.l (a0),a0 a0 = channel definition block move.l 4(a0),a0 a0 = driver linkage address move.w $20(a0),d0 d0 = x mouse position move.w $22(a0),d1 d1 = y mouse position * sub.w 304(a4),d0 x window offset blt.s off_scr1 sub.w 306(a4),d1 y window offset move.w d1,d4 move.w 302(a4),d1 window height sub.w #1,d1 sub.w d4,d1 invert y coordinates blt.s off_scr1 * move.w 300(a4),d4 check inside window cmp.w d4,d0 bge.s off_scr1 move.w 302(a4),d4 cmp.w d4,d1 bge.s off_scr1 * cmpi.w #8,258(a4) bne.s ntmde85 asr.w #1,d0 is mode 8 * ntmde85 sub.w 6(a4),d0 find cursor offsets sub.w 8(a4),d1 move.b 10(a4),d4 tst.b 11(a4) beq.s pscale15 asr.w d4,d0 asr.w d4,d1 bra.s nscale15 pscale15 asl.w d4,d0 asl.w d4,d1 nscale15 move.w 82(a4),d2 ext.l d0 ext.l d1 divs d2,d0 divs d2,d1 muls d2,d0 muls d2,d1 tst.w d0 bne.s on_scr1 d0 = x offset tst.w d1 bne.s on_scr1 d1 = y offset off_scr1 moveq #-1,d7 rts on_scr1 moveq #0,d7 exit02 rts * line move.w ca.gtlin,a0 jsr (a0) bne exit02 moveq #-15,d0 cmpi.w #4,d3 bne exit02 lea par,a4 move.w 2(a6,a1.l),36(a4) x source move.w 6(a6,a1.l),38(a4) y source move.w 10(a6,a1.l),40(a4) x destination move.w 14(a6,a1.l),42(a4) y destination drwline1 bsr plot01 move.w 40(a4),d1 d1 = x destination move.w 42(a4),d2 d2 = y destination move.l #$10001,d3 sub.w 36(a4),d1 subtract x source from destination beq vert_plot bgt.s ok01 if positive then ok neg.w d1 invert neg.w d3 ok01 swap d3 sub.w 38(a4),d2 subtract y source from destination beq draw_h_v bgt.s ok02 if positive then ok neg.w d2 invert neg.w d3 ok02 move.w d1,d0 or.w d2,d0 beq.s exit03 move.l d3,d4 move.w d2,d0 cmp.w d1,d0 bcs.s ok03 andi.l #$0000ffff,d4 exg d1,d2 bra.s ok04 ok03 andi.l #$ffff0000,d4 ok04 moveq #0,d7 move.w d1,d7 subq.w #1,d7 move.w d1,d6 lsr.w #1,d6 ok08 move.w d6,d0 add.w d2,d0 bcs.s ok05 cmp.w d1,d0 bcs.s ok06 ok05 sub.w d1,d0 move.w d0,d6 move.l d3,d5 bra.s ok07 ok06 move.w d0,d6 move.l d4,d5 ok07 add.w d5,38(a4) swap d5 add.w d5,36(a4) movem.l d1-d5,-(a7) bsr.s plot01 movem.l (a7)+,d1-d5 no_plot dbra d7,ok08 exit03 moveq #0,d0 no error return rts * * print point at x y * plot01 move.w 36(a4),d1 blt.s exit03 cmp.w 296(a4),d1 x resolution bge.s exit03 move.w 38(a4),d1 blt.s exit03 cmp.w 302(a4),d1 y resolution bge.s exit03 * move.l 18(a4),a5 a5 = screen addr move.w 4(a4),d3 d3 = ink tst.b 263(a4) bne hi_plot cmpi.w #4,258(a4) check screen mode beq.s m4_plot * m8_plot move.w 38(a4),d1 d1 = y move.w 302(a4),d4 sub.w d4,d1 not.w d1 reverse y coord add.w 306(a4),d1 move.w 186(a4),d4 d4 = screen width lsr.w #2,d4 muls.w d4,d1 multiply y by bytes per line adda.l d1,a5 add y position move.w 36(a4),d1 d1 = x add.w 298(a4),d1 move.w d1,d4 lsr.w #1,d1 divide x by 2 for word boundry andi.l #$fffe,d1 x = even numbers adda.l d1,a5 add x pos to screen memory andi.w #3,d4 calc x pixel pos in word lsl.b #1,d4 multi pixel pos by 2 ror.w d4,d3 rotate pixel data cmpi.b #1,184(a4) bgt.s not_xor1 eor.w d3,(a5) rts not_xor1 cmpi.b #2,184(a4) bgt.s not_or1 or.w d3,(a5) rts not_or1 not.w d3 and.w d3,(a5) rts * m4_plot andi.w #$8080,d3 extract red and green bits move.w 38(a4),d1 move.w 302(a4),d4 sub.w d4,d1 not.w d1 add.w 306(a4),d1 move.w 186(a4),d4 d4 = screen width lsr.w #2,d4 muls.w d4,d1 adda.l d1,a5 move.w 36(a4),d1 add.w 298(a4),d1 move.w d1,d4 lsr.w #2,d1 andi.l #$fffe,d1 adda.l d1,a5 andi.w #7,d4 ror.w d4,d3 cmpi.b #1,184(a4) bgt.s not_xor2 eor.w d3,(a5) rts not_xor2 cmpi.b #2,184(a4) bgt.s not_or2 or.w d3,(a5) rts not_or2 not.w d3 and.w d3,(a5) rts * hi_plot move.w 38(a4),d1 move.w 302(a4),d4 sub.w d4,d1 not.w d1 add.w 306(a4),d1 move.w 186(a4),d4 d4 = screen width lsl.w #1,d4 muls.w d4,d1 adda.l d1,a5 move.w 36(a4),d1 add.w 298(a4),d1 lsl.w #1,d1 adda.w d1,a5 cmpi.b #1,184(a4) bgt.s not_xor3 eor.w d3,(a5) rts not_xor3 cmpi.b #2,184(a4) bgt.s not_or3 or.w d3,(a5) rts not_or3 not.w d3 and.w d3,(a5) rts * *********horizontal or vertical fast line ******************** * draw_h_v moveq #0,d1 moveq #0,d2 move.w 36(a4),d1 d1 = x source move.w 40(a4),d2 d2 = x dest cmp.w d1,d2 beq vert_plot move.w 38(a4),d3 blt exit04 cmp.w 302(a4),d3 bge exit04 cmp.w d1,d2 bgt.s hor_ok exg d1,d2 hor_ok tst.b 263(a4) bne hi_hor * *********ql colour horizontal ********************************* move.w 38(a4),d0 d0 = y source move.w 302(a4),d5 sub.w d5,d0 not.w d0 add.w 306(a4),d0 move.l 18(a4),d5 d5 = screen base move.w 186(a4),d3 d3 = screen width lsr.w #2,d3 d3 = bytes per line muls.w d3,d0 add.l d0,d5 d5 = screen base + y offset move.l d5,a5 a5 = screen base + y offset move.w 4(a4),d3 d3 = colour * tst.w d1 bge.s onscr1 ?? moveq #0,d1 * onscr1 move.w 296(a4),d0 d0 = window width ntmde4a cmp.w d0,d1 bge.s offscr1 if smallest to right cmp.w d0,d2 blt.s onscr2 ?? move.w d0,d2 subi.w #1,d2 * onscr2 tst.w d2 blt.s offscr1 if largest to left * d1 = line start offset add.w 298(a4),d1 add.w 298(a4),d2 sub.w d1,d2 d2 = on screen line length * cmpi.w #4,258(a4) bne.s ntmde4b * andi.w #$8080,d3 extract red and green bits cmpi.b #1,184(a4) check for writing mode bgt.s not_xor4 qlh1 move.w d1,d0 lsr.w #2,d0 andi.l #$fffe,d0 move.l d5,a5 adda.l d0,a5 move.w d3,d4 move.w d1,d0 andi.w #7,d0 ror.w d0,d4 eor.w d4,(a5) addq.w #1,d1 dbra d2,qlh1 offscr1 rts * not_xor4 cmpi.b #2,184(a4) bgt.s not_or4 qlh2 move.w d1,d0 lsr.w #2,d0 andi.l #$fffe,d0 move.l d5,a5 adda.l d0,a5 move.w d3,d4 move.w d1,d0 andi.w #7,d0 ror.w d0,d4 or.w d4,(a5) addq.w #1,d1 dbra d2,qlh2 rts * not_or4 not.w d3 qlh3 move.w d1,d0 lsr.w #2,d0 andi.l #$fffe,d0 move.l d5,a5 adda.l d0,a5 move.w d3,d4 move.w d1,d0 andi.w #7,d0 ror.w d0,d4 and.w d4,(a5) addq.w #1,d1 dbra d2,qlh3 rts * ntmde4b cmpi.b #1,184(a4) check for writing mode bgt.s not_xor5 qlm8h1 move.w d1,d0 lsr.w #1,d0 andi.l #$fffe,d0 move.l d5,a5 adda.l d0,a5 move.w d3,d4 move.w d1,d0 andi.w #3,d0 lsl.w #1,d0 ror.w d0,d4 eor.w d4,(a5) addq.w #1,d1 dbra d2,qlm8h1 rts * not_xor5 cmpi.b #2,184(a4) bgt.s not_or5 qlm8h2 move.w d1,d0 lsr.w #1,d0 andi.l #$fffe,d0 move.l d5,a5 adda.l d0,a5 move.w d3,d4 move.w d1,d0 andi.w #3,d0 lsl.w #1,d0 ror.w d0,d4 or.w d4,(a5) addq.w #1,d1 dbra d2,qlm8h2 rts * not_or5 not.w d3 qlm8h3 move.w d1,d0 lsr.w #1,d0 andi.l #$fffe,d0 move.l d5,a5 adda.l d0,a5 move.w d3,d4 move.w d1,d0 andi.w #3,d0 lsl.w #1,d0 ror.w d0,d4 and.w d4,(a5) addq.w #1,d1 dbra d2,qlm8h3 exit04 rts * vert_plot move.w 36(a4),d3 blt.s exit04 cmp.w 296(a4),d3 x resolution bge.s exit04 move.w 38(a4),d1 d1 = y source move.w 42(a4),d2 d2 = y dest cmp.w d1,d2 bgt.s vert_ok exg d1,d2 d1=smaller d2=larger vert_ok tst.b 263(a4) bne hi_vert * *********ql colour vertical *********************************** move.l 18(a4),d5 d5 = screen addr move.w 36(a4),d0 d0 = x add.w 298(a4),d0 move.w d0,d4 cmpi.w #4,258(a4) bne.s nt_mde4c * lsr.w #2,d0 andi.l #$fffe,d0 add.l d0,d5 andi.w #7,d4 move.w 4(a4),d3 andi.w #$8080,d3 bra.s mde4 * nt_mde4c lsr.w #1,d0 divide x by 2 for word boundry andi.l #$fffe,d0 x = even numbers add.l d0,d5 add x pos to screen memory andi.w #3,d4 calc x pixel pos in word lsl.b #1,d4 multi pixel pos by 2 move.w 4(a4),d3 d3 = ink mde4 move.l d5,a5 ror.w d4,d3 rotate pixel data * * move.w 302(a4),d5 sub.w d5,d1 sub.w d5,d2 not.w d1 not.w d2 * bge.s onscr3 ?? moveq #0,d2 * onscr3 cmp.w 302(a4),d2 bge.s offscr2 if smallest off bottom cmp.w 302(a4),d1 blt.s onscr4 ?? move.w 302(a4),d1 subi.w #1,d1 * onscr4 tst.w d1 blt.s offscr2 if largest off top * add.w 306(a4),d1 add.w 306(a4),d2 moveq #0,d0 move.w 186(a4),d0 d0 = screen width lsr.w #2,d0 sub.w d2,d1 muls.w d0,d2 adda.l d2,a5 * cmpi.b #1,184(a4) check for writing mode bgt.s not_xor6 qlv1 eor.w d3,(a5) adda.l d0,a5 dbra d1,qlv1 offscr2 rts * not_xor6 cmpi.b #2,184(a4) bgt.s not_or6 qlv2 or.w d3,(a5) adda.l d0,a5 dbra d1,qlv2 rts * not_or6 not.w d3 qlv3 and.w d3,(a5) adda.l d0,a5 dbra d1,qlv3 exit05 rts * *********hi colour vertical *********************************** hi_vert moveq #0,d0 move.l 18(a4),d5 d5 = screen base move.w 36(a4),d0 d0 = x source add.w 298(a4),d0 lsl.w #1,d0 extend x to word boundary add.l d0,d5 d5 = screen base + x offset move.l d5,a5 a5 = screen base + x offset move.w 4(a4),d3 d3 = colour * move.w 302(a4),d5 d5 = y screen size sub.w d5,d1 convert d1 to screen coordinates sub.w d5,d2 not.w d1 they need y inversion not.w d2 * bge.s onscr5 ?? moveq #0,d2 * onscr5 cmp.w 302(a4),d2 bge.s offscr3 if smallest off bottom cmp.w 302(a4),d1 blt.s onscr6 ?? move.w 302(a4),d1 subi.w #1,d1 * onscr6 tst.w d1 blt.s offscr3 if largest off top * add.w 306(a4),d1 add.w 306(a4),d2 move.w 186(a4),d0 d0 = screen width lsl.w #1,d0 d0 = bytes per line sub.w d2,d1 d1 = on screen line length muls.w d0,d2 d2 = line start offset adda.l d2,a5 a5 = screen address + x + offsets * cmpi.b #1,184(a4) check for writing mode bgt.s not_xor7 hiv1 eor.w d3,(a5) adda.l d0,a5 dbra d1,hiv1 offscr3 rts * not_xor7 cmpi.b #2,184(a4) bgt.s not_or7 hiv2 or.w d3,(a5) adda.l d0,a5 dbra d1,hiv2 rts * not_or7 not.w d3 hiv3 and.w d3,(a5) adda.l d0,a5 dbra d1,hiv3 rts * *********hi colour horizontal ********************************* hi_hor move.w 38(a4),d0 d0 = y source move.w 302(a4),d5 sub.w d5,d0 not.w d0 add.w 306(a4),d0 move.l 18(a4),d5 d5 = screen base move.w 186(a4),d3 d5 = screen width lsl.w #1,d3 d3 = bytes per line muls.w d3,d0 add.l d0,d5 d5 = screen base + y offset move.l d5,a5 a5 = screen base + y offset move.w 4(a4),d3 d3 = colour * tst.w d1 bge.s onscr7 ?? moveq #0,d1 * onscr7 move.w 296(a4),d0 d0 = window width cmp.w d0,d1 bge.s offscr4 if smallest to right cmp.w d0,d2 blt.s onscr8 ?? move.w d0,d2 subi.w #1,d2 * onscr8 tst.w d2 blt.s offscr4 if largest to left * add.w 298(a4),d1 add.w 298(a4),d2 moveq #2,d0 sub.w d1,d2 d2 = on screen line length lsl.w #1,d1 d1 = line start offset adda.l d1,a5 a5 = screen address + y + offsets * cmpi.b #1,184(a4) check for writing mode bgt.s not_xor8 hih1 eor.w d3,(a5) adda.l d0,a5 dbra d2,hih1 offscr4 rts * not_xor8 cmpi.b #2,184(a4) bgt.s not_or8 hih2 or.w d3,(a5) adda.l d0,a5 dbra d2,hih2 rts * not_or8 not.w d3 hih3 and.w d3,(a5) adda.l d0,a5 dbra d2,hih3 rts * *************************************************************** qptr move.w ca.gtlin,a0 jsr (a0) bne exit06 moveq #-15,d0 cmpi.w #1,d3 bne exit06 moveq #0,d1 moveq #0,d4 btst.b #0,3(a6,a1.l) bne.s qptr_det moveq #0,d4 bra.s noqptr01 force qptr off qptr_det moveq #0,d0 channel zero add.l $30(a6),d0 add table start address cmp.l $34(a6),d0 valid ? bge.s ch_err no, channel # off end of table move.l (a6,d0.l),d0 channel id blt.s ch_err channel closed move.l d0,a0 moveq #0,d2 no extra space required moveq #iop_pinf,d0 moveq #-1,d3 trap #3 moveq #0,d4 tst.l d0 is trap ok bne.s noqptr01 no moveq #1,d4 qptr ok noqptr01 lea par,a4 move.b d4,135(a4) save flag bra int_ret2 ch_err moveq #-6,d4 channel error bra int_ret2 * ink_mask dc.w 8 layer 0 b dc.w 26 layer 1 g dc.w 4 layer 2 t dc.w 16 layer 3 p dc.w 10 layer 4 s1 dc.w 22 layer 5 s2 * dc.w 20 layer 6 tsr dc.w 2 layer 7 tss dc.w 18 layer 8 tsp dc.w 14 layer 9 tm dc.w 0 layer 10 tp dc.w 0 layer 11 tre dc.w 0 layer 12 spare dc.w 24 layer 13 bsr dc.w 30 layer 14 bss dc.w 6 layer 15 bsp dc.w 28 layer 16 bm dc.w 12 layer 17 bp dc.w 0 layer 18 bre dc.w 0 layer 19 spare * dc.w $0000 black + layer 16 dc.w $0040 blue dc.w $0080 red dc.w $00c0 purple dc.w $8000 green dc.w $8040 cyan dc.w $8080 yellow dc.w $80c0 white dc.w $4000 black + flash bit dc.w $4040 blue + flash bit dc.w $4080 red + flash bit dc.w $40c0 purple + flash bit dc.w $c000 green + flash bit dc.w $c040 cyan + flash bit dc.w $c080 yellow + flash bit dc.w $c0c0 white + flash bit * * qpc ggwbbbbbrrrrrggg * 4307654376543765 * dc.w $2529 near black qpc2v2 hi colour dc.w $1f00 blue dc.w $00f8 red dc.w $1ff8 purple dc.w $c007 green dc.w $df07 cyan dc.w $c0ff yellow dc.w $dfff white dc.w $8a52 dark grey dc.w $1000 blue dark dc.w $0080 red dark dc.w $1080 purple dark dc.w $0004 green dark dc.w $1004 cyan dark dc.w $0084 yellow dark dc.w $55ad light grey * * q40 gggggrrrrrbbbbbw * 7654376543765430 * dc.w $294a near black q40 hi colour dc.w $003e blue dc.w $07c0 red dc.w $07fe purple dc.w $f800 green dc.w $f83e cyan dc.w $ffc0 yellow dc.w $fffe white dc.w $5294 dark grey dc.w $0020 blue dark dc.w $0400 red dark dc.w $0420 purple dark dc.w $8000 green dark dc.w $8020 cyan dark dc.w $8400 yellow dark dc.w $ad6a light grey * mask move.w ca.gtlin,a0 jsr (a0) bne exit05 moveq #-15,d0 cmpi.w #2,d3 bne exit05 moveq #0,d1 move.b 3(a6,a1.l),d1 layer number move.b 7(a6,a1.l),d2 colour of that layer cmpi.w #19,d1 bgt exit05 twenty layers andi.b #$f,d2 sixteen colours on thor lsl.b #1,d1 lsl.b #1,d2 lea ink_mask,a4 move.b d2,1(a4,d1.w) moveq #0,d0 rts * layers move.w ca.gtlin,a0 jsr (a0) bne.s exit06 moveq #-15,d0 cmpi.w #2,d3 bne.s exit06 moveq #0,d0 move.w 2(a6,a1.l),d1 move.w 6(a6,a1.l),d2 cmpi.w #19,d1 layer bgt.s exit06 andi.w #1,d2 on off lea par,a4 move.l 518(a4),d3 tst.b d2 beq.s layer_off bset.l d1,d3 bra.s setlay layer_off bclr.l d1,d3 setlay move.l d3,518(a4) exit06 rts * mask_col move.w ca.gtlin,a0 jsr (a0) bne.s exit06 moveq #-15,d0 cmpi.w #1,d3 bne.s exit06 moveq #0,d1 moveq #0,d4 move.b 3(a6,a1.l),d1 cmpi.w #19,d1 twenty layers bgt.s exit06 lsl.b #1,d1 lea ink_mask,a4 move.b 1(a4,d1.w),d4 lsr.b #1,d4 int_ret2 moveq #2,d1 move.w bv.chrix,a0 jsr (a0) move.l $58(a6),a1 addq.l #2,a1 move.l a1,$58(a6) move.w d4,0(a1,a6.l) moveq #3,d4 moveq #0,d0 rts * hdens move.w ca.gtlin,a0 jsr (a0) bne.s exit06 moveq #-15,d0 cmpi.w #1,d3 bne.s exit06 move.w 2(a6,a1.l),d1 cmpi.w #2,d1 bgt.s exit06 lea par,a4 move.b d1,264(a4) moveq #0,d0 rts * set_ink1 btst.b #0,80(a4) set ink set colours for tracks etc beq.s ed_off d4 and d5 ok to use cmp.l 350(a4),a2 blt.s ed_off ed_on moveq #7,d6 set ink to white cmp.w 70(a4),d1 bne set_ink2 cmp.l 72(a4),a2 blt set_ink2 moveq #5,d6 set ink to cyan bra set_ink2 ed_off cmpi.b #inv_lay,d0 bne.s layeron layeroff moveq #0,d6 move.w d6,4(a4) rts layeron cmpi.b #0,d0 bne.s notzero btst.b #0,392(a4) check for view layer zero beq.s notzero move.w 388(a4),d6 set ink to dark blue bra set_ink2 notzero btst.b #0,394(a4) beq.s notholes btst.b #0,393(a4) beq.s notholes move.w 390(a4),d6 bra set_ink2 notholes lea ink_mask,a3 tst.b 263(a4) bne.s not_ql move.w #40,382(a4) is ql bra.s mode_set not_ql cmpi.b #32,263(a4) bne.s not_qpc move.w #72,382(a4) is qpc bra.s mode_set not_qpc move.w #104,382(a4) must be q40 mode_set moveq #0,d6 d0 = layer number * move.l 518(a4),d4 d4 = layer on/off mask cmpi.b #10,d0 bne.s nt1lay10 btst.l #6,d4 beq.s layeroff move.b #6,d0 bra mask_lay nt1lay10 cmpi.b #11,d0 bne.s nt1lay11 btst.l #7,d4 beq layeroff move.b #7,d0 bra mask_lay nt1lay11 cmpi.b #14,d0 bne.s nt1lay14 btst.l #13,d4 beq layeroff move.b #13,d0 bra mask_lay nt1lay14 cmpi.b #15,d0 bne.s nt1lay15 btst.l #14,d4 beq layeroff move.b #14,d0 bra mask_lay nt1lay15 cmpi.b #26,d0 bne.s nt1lay26 btst.l #8,d4 beq layeroff move.b #8,d0 bra mask_lay nt1lay26 cmpi.b #27,d0 bne.s nt1lay27 btst.l #9,d4 beq layeroff move.b #9,d0 bra mask_lay nt1lay27 cmpi.b #30,d0 bne.s nt1lay30 btst.l #15,d4 beq layeroff move.b #15,d0 bra mask_lay nt1lay30 cmpi.b #31,d0 bne.s nt1lay31 btst.l #16,d4 beq layeroff move.b #16,d0 bra mask_lay nt1lay31 cmpi.b #42,d0 bne.s nt1lay42 btst.l #10,d4 beq layeroff move.b #10,d0 bra mask_lay nt1lay42 cmpi.b #43,d0 bne.s nt1lay43 btst.l #11,d4 beq layeroff move.b #11,d0 bra mask_lay nt1lay43 cmpi.b #46,d0 bne.s nt1lay46 btst.l #17,d4 beq layeroff move.b #17,d0 bra mask_lay nt1lay46 cmpi.b #47,d0 bne.s nt1lay47 btst.l #18,d4 beq layeroff move.b #18,d0 bra mask_lay nt1lay47 cmpi.b #58,d0 bne.s nt1lay58 btst.l #12,d4 beq layeroff move.b #12,d0 bra mask_lay nt1lay58 cmpi.b #62,d0 bne.s chk_bit0 btst.l #19,d4 beq layeroff move.b #19,d0 bra mask_lay * chk_bit0 move.w #0,4(a4) clear colour btst.l #0,d4 beq.s chk_bit1 btst.l #0,d0 beq.s chk_bit1 move.w (a3),d6 d6 colour assigned to layer 1 add.w 382(a4),d6 move.w (a3,d6.w),4(a4) chk_bit1 btst.l #1,d4 beq.s chk_bit2 btst.l #1,d0 beq.s chk_bit2 move.w 2(a3),d6 d6 colour assigned to layer 2 add.w 382(a4),d6 move.w (a3,d6.w),d6 or.w d6,4(a4) chk_bit2 btst.l #2,d4 beq.s chk_bit3 btst.l #2,d0 beq.s chk_bit3 move.w 4(a3),d6 d6 colour assigned to layer 4 add.w 382(a4),d6 move.w (a3,d6.w),d6 or.w d6,4(a4) chk_bit3 btst.l #3,d4 beq.s chk_bit4 btst.l #3,d0 beq.s chk_bit4 move.w 6(a3),d6 d6 colour assigned to layer 8 add.w 382(a4),d6 move.w (a3,d6.w),d6 or.w d6,4(a4) chk_bit4 btst.l #4,d4 beq.s chk_bit5 btst.l #4,d0 beq.s chk_bit5 move.w 8(a3),d6 d6 colour assigned to layer 16 add.w 382(a4),d6 move.w (a3,d6.w),d6 or.w d6,4(a4) chk_bit5 btst.l #5,d4 beq.s col_set btst.l #5,d0 beq.s col_set move.w 10(a3),d6 d6 colour assigned to layer 32 add.w 382(a4),d6 move.w (a3,d6.w),d6 or.w d6,4(a4) col_set rts * mask_lay lsl.b #1,d0 move.w (a3,d0.w),d6 d6 colour assigned to the layer add.w 382(a4),d6 add table offset move.w (a3,d6.w),4(a4) rts * set_ink2 lsl.w #1,d6 lea ink_mask,a3 tst.b 263(a4) beq.s ql_mode2 cmpi.b #32,263(a4) beq.s qpc_mode2 q40_mode2 move.w 104(a3,d6.w),4(a4) q40 hi colour rts qpc_mode2 move.w 72(a3,d6.w),4(a4) qpc hi colour rts ql_mode2 move.w 40(a3,d6.w),4(a4) ql colour rts * lay_zero move.w ca.gtint,a0 jsr (a0) bne.s exit07 moveq #-15,d0 cmpi.w #2,d3 bne.s exit07 moveq #0,d0 lea par,a4 move.b 1(a6,a1.l),d1 andi.b #1,d1 move.w 2(a6,a1.l),d2 move.b d1,392(a4) move.w d2,388(a4) exit07 rts holes move.w ca.gtint,a0 jsr (a0) bne.s exit07 moveq #-15,d0 cmpi.w #2,d3 bne.s exit07 moveq #0,d0 lea par,a4 move.w (a6,a1.l),d1 cmpi.w #255,d1 bgt.s exit07 move.w 2(a6,a1.l),d2 cmpi.w #0,d1 bge.s hole_size cmpi.w #-1,d1 beq.s holes_on move.b #0,393(a4) bra.s holes_off holes_on move.b #1,393(a4) holes_off move.w d2,390(a4) rts hole_size cmpi.w #63,d2 bgt.s exit07 lea hole_dia,a0 move.b d2,(a0,d1.w) rts hole_dia dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 dc.l 0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0 * set_over andi.b #3,d6 0=norm 1=xor 2=put 3=take lea par,a4 move.b d6,184(a4) rts * cursor move.w ca.gtint,a0 jsr (a0) bne.s exit08 moveq #1,d6 bsr set_over move.b #0,117(a4) moveq #7,d6 bsr set_ink2 tst.w d3 bgt.s rel_mve1 * tst.b 135(a4) beq.s noqptr02 bsr get_ptr move.w #1,d4 tst.w d7 beq.s abs_mve1 noqptr02 moveq #0,d0 pointer is off screen exit08 rts * rel_mve1 cmpi.w #1,d3 bne.s not_size move.w (a6,a1.l),(a4) cursor size bra.s noqptr02 not_size move.l (a6,a1.l),d0 beq.s no_xy1 tst.b 135(a4) bne.s noqptr02 no_xy1 move.l d0,d1 move.l d1,d4 swap d0 abs_mve1 move.w (a4),d2 add.w d0,58(a4) add.w d1,60(a4) move.w 58(a4),d0 move.w 60(a4),d1 cmpi.l #0,d4 bne.s move_cur bra.s place move_cur movem.l d0-d1,-(a7) bsr.s blank movem.l (a7)+,d0-d1 new x y move.w (a4),d2 restore size place movem.l d0-d2,-(a7) bsr prt_c movem.l (a7)+,d0-d2 move.w 12(a4),d4 add.w d4,d0 move.w 14(a4),d4 add.w d4,d1 moveq #0,d4 move.b 10(a4),d4 tst.b 11(a4) beq.s pscale2 asl.w d4,d0 asl.w d4,d1 bra.s nscale2 pscale2 asr.w d4,d0 asr.w d4,d1 nscale2 move.w d0,6(a4) store x move.w d1,8(a4) store y move.w d2,(a4) store size tst.b 135(a4) bne.s isqptr05 tst.w d0 blt redraw check if cursor off edge cmp.w 296(a4),d0 bge redraw check if cursor off edge tst.w d1 blt redraw check if cursor off edge cmp.w 302(a4),d1 bge redraw check if cursor off edge isqptr05 bra.s draw_cur * blank move.w (a4),d2 restore size move.w 6(a4),d0 restore x move.w 8(a4),d1 restore y draw_cur sub.w d2,d0 subtract from x move.w d0,36(a4) x source coor move.w d1,38(a4) y source coor add.w d2,d0 add.w d2,d0 move.w d0,40(a4) x dest coor move.w d1,42(a4) y dest coor bsr draw_h_v move.w 6(a4),d0 d0 = x move.w 38(a4),d1 d1 = y move.w (a4),d2 d2 = size sub.w d2,d1 move.w d0,36(a4) move.w d1,38(a4) add.w d2,d1 add.w d2,d1 move.w d0,40(a4) move.w d1,42(a4) bsr draw_h_v cmpi.b #3,80(a4) beq.s wh_cursor moveq #0,d0 rts wh_cursor move.w 6(a4),d0 d0 = x coord move.w 8(a4),d1 d1 = y coord move.w (a4),d2 d2 = size subi.w #4,d1 sub.w d2,d0 move.w d0,36(a4) move.w d1,38(a4) addi.w #8,d1 move.w d0,40(a4) move.w d1,42(a4) bsr draw_h_v move.w 6(a4),d0 move.w 8(a4),d1 move.w (a4),d2 subi.w #4,d1 add.w d2,d0 move.w d0,36(a4) move.w d1,38(a4) addi.w #8,d1 move.w d0,40(a4) move.w d1,42(a4) bsr draw_h_v moveq #0,d0 exit09 rts * set_grid move.w ca.gtlin,a0 jsr (a0) bne.s exit09 moveq #-15,d0 lea par,a4 cmpi.w #3,d3 bne.s full_upd move.w 6(a6,a1.l),386(a4) grid colour move.b 3(a6,a1.l),171(a4) grid on off moveq #0,d0 rts full_upd cmpi.w #2,d3 bne.s nogrid_col move.w 6(a6,a1.l),d6 move.w d6,386(a4) grid colour bra.s isgrid_col nogrid_col cmpi.w #1,d3 bne.s exit09 isgrid_col move.b 3(a6,a1.l),d1 move.b d1,171(a4) grid on off move.b #1,d6 bsr set_over moveq #7,d6 bsr set_ink2 bsr blank bsr.s put_grid move.b #1,d6 bsr set_over moveq #7,d6 bsr set_ink2 bra blank put_grid move.b #3,d6 tst.b 171(a4) beq.s no_grid1 prt_grid move.b #2,d6 no_grid1 bsr set_over move.w 386(a4),d6 grid colour bsr set_ink2 move.b 10(a4),d0 scale move.w #5,d6 5 on scale less than -1 tst.b 11(a4) bne.s setgrid move.w #50,d6 50 on scales 0 to 3 cmpi.b #4,d0 blt.s setgrid move.w #500,d6 500 on scale greater than 4 setgrid move.w 12(a4),d1 x offset ext.l d1 divs d6,d1 muls d6,d1 move.w 12(a4),d2 sub.w d1,d2 bgt.s gt_x add.w d6,d2 gt_x move.w 14(a4),d1 y offset ext.l d1 divs d6,d1 muls d6,d1 move.w 14(a4),d5 sub.w d1,d5 bgt.s gset_end add.w d6,d5 gset_end move.w d2,54(a4) move.w d5,d1 tst.b 11(a4) beq.s pscale12 asl.w d0,d1 bra.s nscale12 pscale12 asr.w d0,d1 ****************** nscale12 move.w d1,38(a4) g_loop2 move.w d2,d1 tst.b 11(a4) beq.s pscale13 asl.w d0,d1 bra.s nscale13 pscale13 asr.w d0,d1 ****************** nscale13 move.w d1,36(a4) cmp.w 296(a4),d1 blt.s g_cont1 move.w 54(a4),d2 add.w d6,d5 move.w d5,d1 tst.b 11(a4) beq.s pscale14 asl.w d0,d1 bra.s nscale14 pscale14 asr.w d0,d1 ****************** nscale14 move.w d1,38(a4) cmp.w 302(a4),d1 bge.s exit10 bra.s g_loop2 g_cont1 bsr plot01 add.w d6,d2 bra.s g_loop2 exit10 moveq #0,d0 rts * scale move.w ca.gtlin,a0 jsr (a0) bne.s exit11 moveq #-15,d0 cmpi.w #1,d3 bne.s exit11 lea par,a4 move.w 2(a6,a1.l),d3 bge.s pscale1 move.b #1,11(a4) neg.w d3 bra.s nscale1 pscale1 move.b #0,11(a4) nscale1 andi.b #7,d1 move.b d3,10(a4) tst.b 135(a4) beq.s exit10 * move.w 6(a4),d0 x cursor in pixels move.w 8(a4),d1 y cursor in pixels tst.b 11(a4) beq.s pscale16 lsr.w d3,d0 lsr.w d3,d1 bra.s nscale16 pscale16 lsl.w d3,d0 x cursor in mils lsl.w d3,d1 y cursor in mils nscale16 sub.w 58(a4),d0 sub.w 60(a4),d1 move.w d0,12(a4) move.w d1,14(a4) moveq #0,d0 exit11 rts int_ret move.l #0,a0 moveq #2,d1 move.w bv.chrix,a0 jsr (a0) move.l $58(a6),a1 subq.l #2,a1 move.l a1,$58(a6) move.w d4,0(a1,a6.l) moveq #3,d4 moveq #0,d0 exit12 rts fast move.w ca.gtlin,a0 jsr (a0) bne.s exit12 moveq #-15,d0 cmpi.w #1,d3 bne.s exit12 lea par,a4 move.b 3(a6,a1.l),d0 andi.b #3,d0 move.b d0,16(a4) moveq #0,d0 exit13 rts text move.w ca.gtlin,a0 jsr (a0) bne.s exit13 moveq #-15,d0 cmpi.w #1,d3 bne.s exit13 lea par,a4 move.b 3(a6,a1.l),d0 andi.b #1,d0 move.b d0,17(a4) moveq #0,d0 exit14 rts * file_len lea par,a4 bsr findeof move.l 76(a4),d1 sub.l 26(a4),d1 * * convert d1.l into floating point value * flo_ret move.l #0,a0 move.w d1,d4 move.l d1,d5 beq.s normal move.w #2079,d4 add.l d1,d1 bvs.s normal subq.w #1,d4 move.l d1,d5 moveq #16,d0 * fix_it move.l d5,d1 asl.l d0,d1 bvs.s too_far sub.w d0,d4 move.l d1,d5 too_far asr.w #1,d0 bne.s fix_it normal moveq #6,d1 move.w bv.chrix,a0 jsr (a0) move.l $58(a6),a1 subq.l #6,a1 move.l a1,$58(a6) move.l d5,2(a1,a6.l) move.w d4,0(a1,a6.l) moveq #2,d4 type is floating point exit15 moveq #0,d0 rts * cad_top move.w ca.gtlin,a0 jsr (a0) bne.s exit15 moveq #-15,d0 cmpi.w #1,d3 bne.s exit15 move.l (a6,a1.l),d0 subi.l #12,d0 lea par,a4 move.l d0,198(a4) upper via address moveq #0,d0 rts * save_base move.w ca.gtlin,a0 jsr (a0) bne.s exit15 moveq #-15,d0 cmpi.w #1,d3 bne.s exit15 move.l (a6,a1.l),d0 lea par,a4 move.l d0,108(a4) moveq #0,d0 rts * set_key move.w ca.gtlin,a0 jsr (a0) bne.s exit15 moveq #-15,d0 cmpi.w #1,d3 bne.s exit15 move.b 3(a6,a1.l),d3 moveq #mt.inf,d0 trap #1 move.b d3,$8b(a0) moveq #0,d0 rts * last_key moveq #mt.inf,d0 trap #1 moveq #0,d4 move.b $8b(a0),d4 bra int_ret * editn lea par,a4 moveq #0,d4 move.b 80(a4),d4 andi.b #2,d4 mask out bit bra int_ret * fr_mem moveq #mt.free,d0 new smsq version trap #1 bra flo_ret * elements moveq #0,d4 moveq #0,d0 btst.b #0,80(a4) beq.s ed_off3 cmp.l 350(a4),a2 blt.s ed_off3 moveq #1,d6 bsr set_over ed_off3 bsr segment1 print segments at base a2 tst.w d0 check for error bne exit15 bra.s elements * update move.w ca.gtlin,a0 jsr (a0) bne exit16 moveq #-15,d0 lea par,a4 cmpi.w #1,d3 bgt exit16 blt.s noqptr10 * redraw tst.b 135(a4) beq.s noqptr10 move.w 12(a4),d0 move.w 14(a4),d1 bsr.s update3 bra.s chk4area noqptr10 bsr.s update2 chk4area tst.b 117(a4) check for area mode bne exit15 put_cur move.b #1,d6 bsr set_over set exor moveq #7,d6 bsr set_ink2 set ink 7 move.w 58(a4),d0 retrieve x coor move.w 60(a4),d1 retrieve y coor move.w (a4),d2 retrieve size bra place print new cursor * update2 move.b 10(a4),d3 move.w 296(a4),d0 width in pixels move.w 302(a4),d1 height in pixels tst.b 11(a4) beq.s pscale3 lsr.w d3,d0 lsr.w d3,d1 bra.s nscale3 pscale3 lsl.w d3,d0 d0 width in mils lsl.w d3,d1 d1 height in mils nscale3 asr.w #1,d0 d0 centre of screen in mils asr.w #1,d1 d1 centre of screen in mils move.w 58(a4),d3 cursor x sub.w d3,d0 move.w 60(a4),d3 cursor y sub.w d3,d1 move.w d0,12(a4) set x offset in mils move.w d1,14(a4) set y offset in mils update3 moveq #2,d6 bsr set_over bsr clr_scr move.l 26(a4),a2 start address for art file bsr elements move.l a2,76(a4) tst.b 116(a4) beq.s no_area moveq #0,d6 move.b #1,d6 bsr set_over moveq #7,d6 bsr set_ink2 moveq #0,d6 bsr ud_area no_area tst.b 171(a4) beq.s no_grid2 bsr prt_grid no_grid2 tst.b 196(a4) check for logo mode bne.s exit16 bra prt_s * exit16 rts cad_edit move.w ca.gtlin,a0 jsr (a0) bne.s exit16 moveq #-15,d0 cmpi.w #1,d3 bne.s exit16 move.b 3(a6,a1.l),d0 lea par,a4 andi.b #1,d0 beq.s edit_off edit_on btst.b #0,80(a4) bne mde_ret edit mode already on btst.b #1,80(a4) check whole mode beq.s ed_on_ret ori.b #1,80(a4) set edit bit bra exor_cur replace cursor ed_on_ret ori.b #1,80(a4) set edit bit bra.s mde_ret * edit_off btst.b #0,80(a4) beq.s mde_ret edit mode already off btst.b #1,80(a4) check whole mode beq.s ed_off_ret andi.b #$fe,80(a4) clear edit bit bra.s exor_cur ed_off_ret andi.b #$fe,80(a4) clear edit bit bra.s mde_ret * whole_on btst.b #1,80(a4) bne.s mde_ret whole mode already on btst.b #0,80(a4) check edit mode beq.s wh_on_ret ori.b #2,80(a4) set whole bit bra.s exor_cur replace cursor wh_on_ret ori.b #2,80(a4) set whole bit bra.s mde_ret * whole_off btst.b #1,80(a4) beq.s mde_ret whole mode already off btst.b #0,80(a4) check edit mode beq.s wh_off_ret andi.b #$fd,80(a4) clear whole bit bra.s exor_cur replace cursor wh_off_ret andi.b #$fd,80(a4) clear whole bit bra.s mde_ret * w_off_e_on cmpi.b #1,80(a4) beq.s mde_ret whole off and edit on cmpi.b #3,80(a4) check for whole and edit mode bne.s w_e_ret move.b #1,80(a4) set edit and clear whole bits bra.s exor_cur replace cursor w_e_ret move.b #1,80(a4) set edit and clear whole bits mde_ret moveq #0,d0 rts * exor_cur move.b #1,d6 bsr set_over moveq #7,d6 bsr set_ink2 bra wh_cursor * do_label move.w ca.gtlin,a0 jsr (a0) bne.s txt_ret1 moveq #-15,d0 cmpi.w #1,d3 bne.s txt_ret1 lea par,a4 move.l (a6,a1.l),d0 move.l d0,376(a4) save element base move.l d0,a2 move.w (a2),d1 andi.w #lab_mask,d1 d1 = num of label blocks move.w d1,250(a4) save num of label blocks move.w #10,482(a4) ref id label length is 10 moveq #0,d0 rts * text_addr lea par,a4 move.l 376(a4),a2 restore element base move.w 250(a4),d1 beq.s no_txt01 no labels move.l 166(a4),a3 move.b #0,(a3) clear first character move.b #1,380(a4) set plotter flag bsr.s prt_txt2 move.w #12,482(a4) other labels are 12 long move.b #0,380(a4) clear flag subi.w #3,250(a4) next label move.l 166(a4),d1 bra flo_ret * no_txt01 nop a2 = element base * moveq #0,d1 bra flo_ret * txt_ret1 rts * prt_txt1 move.w #10,482(a4) ref id label length is 10 move.w 194(a4),d1 beq.s no_txt02 no labels tst.b 17(a4) bne.s no_txt02 no text move.w d1,250(a4) txt_lp02 bsr.s prt_txt2 move.w #12,482(a4) other labels are 12 long subi.w #3,250(a4) next label bne.s txt_lp02 no_txt02 rts a2 = element base * prt_txt2 move.w 2(a2),d1 d1 = element length sub.w 250(a4),d1 d1 = num of blocks move.l a2,a1 mulu.w #6,d1 add.l d1,a1 a1 = base of label move.w 194(a4),510(a4) save number of label blocks move.w #0,194(a4) no blocks for text move.w 70(a4),512(a4) move.w #0,70(a4) move.l a2,a0 a0 = base of element movem.l a2,-(a7) save a2 tst.b 380(a4) bne.s ed_off5 cmp.l 350(a4),a0 blt.s ed_off5 move.l 198(a4),a2 a2 = upper address for text bra.s ed_on5 ed_off5 move.l 166(a4),a2 a2 = lower address for text ed_on5 move.l a2,a5 moveq #0,d2 moveq #0,d6 moveq #12,d0 d0 = offset for label control block btst.b #7,12(a1) bne.s end_lab1 do not print net label txt_lp01 moveq #0,d3 move.b (a1,d2.w),d3 d3 = asc char beq.s end_lab1 look for last char cmpi.b #1,d3 bne.s not_null move.b #192,d3 not_null subi.w #33,d3 blt.s is_spc01 check for space character bsr.s mv_txt01 is_spc01 addi.w #1,d2 increment character count cmp.w 482(a4),d2 bne.s txt_lp01 * end_lab1 tst.w d6 beq.s no_txt03 move.b #wrd,(a2) text element move.b #0,1(a2) no label blocks move.w d6,2(a2) element length move.w #0,4(a2) library tst.b 380(a4) bne.s no_drawing moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 bsr text_type moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 no_txt03 move.w 512(a4),70(a4) restore segment picked up move.w 510(a4),194(a4) restore label count no_drawing movem.l (a7)+,a2 restore a2 moveq #0,d0 rts * mv_txt01 andi.l #$ffff,d3 lea txt_dat1,a3 lsl.w #1,d3 move.w (a3,d3.w),d3 add.l d3,a3 move.w 2(a3),d5 d5 = char element length add.l d5,d6 d6 = total length move.b #inv_lay,(a5)+ * header layer tst.b 380(a4) bne.s isplt1 btst.b #1,16(a4) beq.s isplt1 move.b #0,(a5)+ * header size bra.s ntplt1 isplt1 move.b 262(a4),(a5)+ * header size ntplt1 move.l #0,(a5)+ * header x y add.l #6,a3 subi.w #1,d5 mv_txt02 cmpi.b #inv_lay,(a3) look for invisible layer bne.s nt_inv01 move.b #inv_lay,(a5)+ bra.s is_inv01 nt_inv01 move.b (a1,d0.w),(a5)+ layer is_inv01 tst.b 380(a4) bne.s isplt2 btst.b #1,16(a4) beq.s isplt2 move.b #0,(a5)+ bra.s ntplt2 isplt2 move.b 262(a4),(a5)+ size ntplt2 add.l #2,a3 move.w (a3)+,d7 x btst.b #mbit,1(a1,d0.w) check for mirror beq.s nomirr01 neg.w d7 nomirr01 move.b 1(a1,d0.w),d1 get size btst.l #obit,d1 bne.s u_d01 * andi.w #size_mask,d1 left right text mulu.w d1,d7 asr.w #2,d7 mulu.w d2,d1 mulu.w #30,d1 asr.w #2,d1 btst.b #mbit,1(a1,d0.w) beq.s nomirr02 sub.w d1,d7 bra.s mirror01 nomirr02 add.w d1,d7 mirror01 add.w 2(a1,d0.w),d7 add.w 8(a0),d7 x offset move.w d7,(a5)+ move.w (a3)+,d7 y move.b 1(a1,d0.w),d1 get size andi.w #size_mask,d1 mulu.w d1,d7 asr.w #2,d7 add.w 4(a1,d0.w),d7 add.w 10(a0),d7 y offset bra.s l_r01 * u_d01 andi.w #size_mask,d1 up down text mulu.w d1,d7 asr.w #2,d7 add.w 2(a1,d0.w),d7 add.w 8(a0),d7 x offset move.w d7,(a5)+ move.w (a3)+,d7 y move.b 1(a1,d0.w),d1 get size andi.w #size_mask,d1 mulu.w d1,d7 asr.w #2,d7 mulu.w d2,d1 mulu.w #30,d1 asr.w #2,d1 sub.w d1,d7 add.w 4(a1,d0.w),d7 add.w 10(a0),d7 y offset * l_r01 move.w d7,(a5)+ subi.w #1,d5 bne mv_txt02 move.b #inv_lay,-6(a5) last segment is invisible rts * exit17 rts segment1 moveq #0,d0 clear data registers moveq #0,d1 moveq #0,d2 moveq #0,d3 move.w (a2),194(a4) andi.w #lab_mask,194(a4) move.b (a2),d1 d1 element type andi.b #type_mask,d1 cmpi.b #pad,d1 beq.s pad_type cmpi.b #wrd,d1 beq word_type cmpi.b #trk,d1 beq track_type cmpi.b #blk,d1 beq block_type cmpi.b #end,d1 beq.s fle_fin1 moveq #0,d1 move.w 2(a2),d1 element length mulu.w #6,d1 length in bytes adda.l d1,a2 moveq #0,d0 exit ok from segments rts fle_fin1 moveq #-7,d0 file end flag rts * pad_end1 move.w 194(a4),d0 mulu.w #6,d0 add.l d0,a2 addq.l #6,a2 move base to next element moveq #0,d0 exit ok from segments rts pad_type bsr prt_txt1 move.w 2(a2),d1 d1 = element length sub.w 194(a4),d1 next_pad subi.w #1,d1 beq.s pad_end1 addq.l #6,a2 base to next coord btst.b #0,393(a4) beq no_holes moveq #0,d0 move.b (a2),d0 ink colour andi.b #lay_mask,d0 cmpi.b #5,d0 beq.s hashole cmpi.b #6,d0 beq.s hashole cmpi.b #9,d0 beq.s hashole cmpi.b #48,d0 beq.s hashole bra no_holes hashole move.b #1,394(a4) bsr set_ink1 move.b #0,394(a4) lea hole_dia,a0 moveq #0,d2 move.b 1(a2),d2 d2 pad size move.b (a0,d2.w),d2 d2 = hole size mulu.w #5,d2 move.b 10(a4),d0 scale tst.b 11(a4) beq.s pscale17 lsl.w d0,d2 bra.s nscale17 pscale17 lsr.w d0,d2 size divided by scale nscale17 lsr.w #1,d2 move.w d2,d3 lsr.w #1,d3 d3 pad size divided by two move.w 2(a2),d4 x move.w 4(a2),d5 y move.b 10(a4),d0 scale moveq #0,d6 d6 used in set ink move.w 12(a4),d7 x offset add.w d7,d4 move.w 14(a4),d7 y offset add.w d7,d5 tst.b 11(a4) beq.s pscale18 asl.w d0,d4 asl.w d0,d5 bra.s nscale18 pscale18 asr.w d0,d4 scale x asr.w d0,d5 scale y nscale18 tst.w d4 blt.s no_holes cmp.w 296(a4),d4 bge.s no_holes tst.w d5 blt.s no_holes cmp.w 302(a4),d5 bge.s no_holes sub.w d3,d4 * rem d3 = half pad size sub.w d2,d5 * rem d2 = pad size move.w d4,40(a4) first x coord x start move.w d5,42(a4) first y coord y start add.w d2,d4 new d4 x end bsr drw_bit1 draw first line add.w d3,d4 add.w d3,d5 bsr drw_bit1 add.w d2,d5 bsr drw_bit1 sub.w d3,d4 add.w d3,d5 bsr drw_bit1 sub.w d2,d4 bsr drw_bit1 sub.w d3,d4 sub.w d3,d5 bsr drw_bit1 sub.w d2,d5 bsr drw_bit1 add.w d3,d4 * 11/9/94 sub.w d3,d5 * bsr drw_bit1 * no_holes moveq #0,d2 move.b 1(a2),d2 d2 pad size cmpi.w #192,d2 beq.s b_pad01 board marker blt.s pads_ok1 move.w #10,d2 undefined pads from 193 to 255 are round size 10 pads_ok1 cmpi.w #64,d2 blt.s r_pad01 cmpi.w #128,d2 blt.s s_pad01 move.b #3,34(a4) 3 = thermal pad subi.w #128,d2 bra.s n_pad01 s_pad01 move.b #0,34(a4) 0 = square subi.w #64,d2 bra.s n_pad01 b_pad01 move.b #2,34(a4) 2 = board marker move.w #40,d2 bra.s n_pad01 r_pad01 move.b #1,34(a4) 1 = round n_pad01 mulu.w #5,d2 beq.s pdnorm1 cmpi.b #1,264(a4) blt.s pdnorm1 bgt.s shd1 btst.l #0,d2 hi density bne.s pdnorm1 subi.w #2,d2 bra.s pdnorm1 shd1 btst.l #0,d2 super hi density beq.s pdnorm1 subi.w #1,d2 pdnorm1 move.b 10(a4),d0 scale tst.b 11(a4) beq.s pscale4 lsl.w d0,d2 bra.s nscale4 pscale4 lsr.w d0,d2 size divided by scale nscale4 lsr.w #1,d2 move.w d2,d3 lsr.w #1,d3 d3 pad size divided by two moveq #0,d0 move.b (a2),d0 ink colour andi.b #lay_mask,d0 bsr set_ink1 move.w 2(a2),d4 x move.w 4(a2),d5 y move.b 10(a4),d0 scale via_type moveq #0,d6 d6 used in set ink move.w 12(a4),d7 x offset add.w d7,d4 move.w 14(a4),d7 y offset add.w d7,d5 tst.b 11(a4) beq.s pscale5 asl.w d0,d4 asl.w d0,d5 bra.s nscale5 pscale5 asr.w d0,d4 scale x asr.w d0,d5 scale y nscale5 tst.w d4 blt next_pad cmp.w 296(a4),d4 bge next_pad tst.w d5 blt next_pad cmp.w 302(a4),d5 bge next_pad tst.b 34(a4) beq.s square_pad btst.b #0,16(a4) bne.s square_pad cmpi.b #3,34(a4) * thermal pad beq therm_pad * 11/9/94 sub.w d3,d4 * rem d3 = half pad size sub.w d2,d5 * rem d2 = pad size move.w d4,40(a4) first x coord x start move.w d5,42(a4) first y coord y start add.w d2,d4 new d4 x end bsr.s drw_bit1 draw first line add.w d3,d4 add.w d3,d5 bsr.s drw_bit1 add.w d2,d5 bsr.s drw_bit1 sub.w d3,d4 add.w d3,d5 bsr.s drw_bit1 sub.w d2,d4 bsr.s drw_bit1 sub.w d3,d4 sub.w d3,d5 bsr.s drw_bit1 sub.w d2,d5 bsr.s drw_bit1 add.w d3,d4 * 11/9/94 sub.w d3,d5 * bsr.s drw_bit1 * cmpi.b #2,34(a4) beq bomsite1 * short out of range bra next_pad square_pad move.w d2,d0 lsl.w #1,d0 sub.w d2,d4 subtract from x sub.w d2,d5 subtract from y move.w d4,40(a4) move.w d5,42(a4) add.w d0,d4 add to x bsr draw_squ add.w d0,d5 add to y bsr draw_squ sub.w d0,d4 sub from x bsr draw_squ sub.w d0,d5 sub from y bsr draw_squ bra next_pad drw_bit1 move.l 40(a4),36(a4) move.w d4,40(a4) move.w d5,42(a4) movem.l d0-d5,-(a7) bsr drwline1 movem.l (a7)+,d0-d5 rts therm_pad sub.w d3,d4 sub.w d2,d5 * move.w d4,40(a4) * move.w d5,42(a4) * sub.w d3,d4 * sub.w d3,d5 * bsr.s drw_bit1 * add.w d2,d4 * add.w d2,d4 bsr.s drw_bit1 * sub.w d3,d4 * add.w d3,d5 * bsr.s drw_bit1 * sub.w d2,d4 bsr.s drw_bit1 * sub.w d3,d4 * add.w d3,d5 * add.w d2,d5 move.w d4,40(a4) * move.w d5,42(a4) * sub.w d3,d4 * add.w d3,d5 * bsr.s drw_bit1 * sub.w d2,d5 * sub.w d2,d5 bsr.s drw_bit1 * add.w d3,d4 * add.w d3,d5 * bsr.s drw_bit1 * add.w d2,d5 bsr.s drw_bit1 * add.w d3,d4 * add.w d2,d4 add.w d3,d5 * move.w d4,40(a4) * move.w d5,42(a4) * add.w d3,d4 * add.w d3,d5 * bsr.s drw_bit1 * sub.w d2,d4 * sub.w d2,d4 bsr.s drw_bit1 * add.w d3,d4 * sub.w d3,d5 * bsr drw_bit1 * add.w d2,d4 bsr drw_bit1 * add.w d3,d4 * sub.w d3,d5 * sub.w d2,d5 move.w d4,40(a4) * move.w d5,42(a4) * add.w d3,d4 * sub.w d3,d5 * bsr drw_bit1 * add.w d2,d5 * add.w d2,d5 bsr drw_bit1 * sub.w d3,d4 * sub.w d3,d5 * bsr drw_bit1 * sub.w d2,d5 bsr drw_bit1 bra next_pad * draw_squ move.l 40(a4),36(a4) move.w d4,40(a4) move.w d5,42(a4) movem.l d0-d5,-(a7) bsr draw_h_v movem.l (a7)+,d0-d5 rts bomsite1 add.w d3,d4 move.w d4,40(a4) add.w d3,d5 add.w d3,d5 add.w d2,d5 bsr drw_bit1 horizontal cross wire sub.w d3,d4 sub.w d3,d4 sub.w d2,d5 move.w d4,40(a4) move.w d5,42(a4) add.w d2,d4 add.w d3,d4 add.w d3,d4 bsr drw_bit1 vertical cross wire bra next_pad * word_type tst.b 17(a4) check if words should be used beq track_type move.w 2(a2),d1 mulu.w #6,d1 element length adda.l d1,a2 move base to next element moveq #0,d0 exit ok from segments rts * via01 cmpi.b #62,84(a4) bgt postvia1 cmpi.b #62,d0 bgt postvia1 movem.l d0-d5,-(a7) exg a2,a1 save base cmp.l 350(a4),a1 blt.s ed_off4 cmp.l 72(a4),a1 bge.s padnorm moveq #0,d1 ensure pad is white padnorm move.l 198(a4),a2 upper pad addr bra.s ed_on4 ed_off4 move.l 166(a4),a2 lower pad addr ed_on4 bsr set_ink1 move.w 4(a4),d2 move.b 84(a4),d0 bsr set_ink1 or.w d2,4(a4) or seg 1 seg 2 colours move.w 2(a1),d4 x coord move.w 4(a1),d5 y coord moveq #0,d0 moveq #0,d1 moveq #0,d2 moveq #0,d3 move.b #1,34(a4) round pad move.b #25,d2 pad size cmpi.b #0,149(a4) beq.s via_set1 move.b #20,d2 via size cmpi.b #1,149(a4) beq.s via_set1 move.b #15,d2 via size cmpi.b #2,149(a4) beq.s via_set1 move.b #10,d2 via size via_set1 btst.b #0,264(a4) beq.s vinorm1 subi.w #1,d2 vinorm1 move.b 10(a4),d0 scale tst.b 11(a4) beq.s pscale6 lsl.w d0,d2 bra.s nscale6 pscale6 lsr.w d0,d2 nscale6 move.b d2,d3 lsr.w #1,d3 move.w #1,d1 element length bsr via_type exg a1,a2 a2 = base movem.l (a7)+,d0-d5 bra postvia1 * trk_end1 move.w 194(a4),d0 mulu.w #6,d0 add.l d0,a2 adda.l #12,a2 move base to next element moveq #0,d0 exit ok from segments rts track_type bsr prt_txt1 text_type move.w 2(a2),d1 d1 = element length move.b 6(a2),84(a4) store colour of first segment andi.b #lay_mask,84(a4) sub.w 194(a4),d1 next_track subi.w #1,d1 cmpi.w #1,d1 beq.s trk_end1 addq.l #6,a2 base moved to next coord move.b 1(a2),d2 d2 = track size mulu.w #5,d2 multiply by five beq.s trnorm1 cmpi.b #1,264(a4) blt.s trnorm1 bgt.s shd2 btst.l #0,d2 hi density bne.s trnorm1 subi.w #2,d2 bra.s trnorm1 shd2 btst.l #0,d2 super hi density beq.s trnorm1 subi.w #1,d2 trnorm1 move.b 10(a4),d0 scale tst.b 11(a4) beq.s pscale7 lsl.w d0,d2 bra.s nscale7 pscale7 lsr.w d0,d2 size divided by scale nscale7 lsr.w #1,d2 divide by two moveq #0,d0 move.b (a2),d0 andi.b #via_mask,d0 lsr.b #6,d0 move.b d0,149(a4) save via size move.b (a2),d0 ink colour andi.b #lay_mask,d0 cmp.b 84(a4),d0 bne via01 postvia1 move.b d0,84(a4) cmpi.b #62,d0 bgt.s next_track bsr set_ink1 d0 d6 d7 * moveq #0,d6 moveq #0,d7 move.w 2(a2),d4 x source move.w 8(a2),d5 x dest move.b 10(a4),d0 scale move.w 12(a4),d7 x offset add.w d7,d4 add.w d7,d5 tst.b 11(a4) beq.s pscale8 asl.w d0,d4 asl.w d0,d5 move.w d4,44(a4) move.w d5,48(a4) * move.w 4(a2),d4 move.w 10(a2),d5 move.w 14(a4),d7 add.w d7,d4 add.w d7,d5 asl.w d0,d4 asl.w d0,d5 bra.s nscale8 pscale8 asr.w d0,d4 asr.w d0,d5 move.w d4,44(a4) save x source , dest move.w d5,48(a4) * move.w 4(a2),d4 y source move.w 10(a2),d5 y dest move.w 14(a4),d7 add.w d7,d4 add.w d7,d5 asr.w d0,d4 asr.w d0,d5 nscale8 move.w d4,46(a4) save y source , dest move.w d5,50(a4) cmp.w d4,d5 compare y source , dest bgt.s pol_ok01 exg d4,d5 d4=smaller d5=greater pol_ok01 tst.w d5 blt next_track cmp.w 302(a4),d4 bge next_track move.w 44(a4),d4 d4 = x source move.w 48(a4),d5 d5 = x dest cmp.w d4,d5 compare x source , dest bgt.s pol_ok02 exg d4,d5 d4=smaller d5=greater pol_ok02 tst.w d5 blt next_track cmp.w 296(a4),d4 bge next_track btst.b #1,16(a4) bne fastrak1 tst.w d2 beq fastrak1 if track width = 0 then fast move.w 44(a4),d3 d3 = x source move.w 46(a4),d4 d4 = y source move.w 48(a4),d5 d5 = x dest move.w 50(a4),d6 d6 = y dest sub.w d3,d5 sub x source dest bgt.s inverse1 neg.w d5 inverse1 sub.w d4,d6 sub y source dest bgt.s inverse2 neg.w d6 inverse2 cmp.w d5,d6 compare y diff , x diff bgt.s u_d02 d3=xs d4=ys d1=length d2=size move.w 48(a4),d5 cmp.w d3,d5 compare x source , dest bgt.s inverse3 move.w 50(a4),d6 retrieve y dest exg d3,d5 exg d4,d6 move.w d3,44(a4) move.w d4,46(a4) move.w d5,48(a4) move.w d6,50(a4) inverse3 add.w d2,d4 move.w d3,40(a4) move.w d4,42(a4) sub.w d2,d3 sub.w d2,d4 bsr drw_bit2 add.w d2,d3 sub.w d2,d4 bsr drw_bit2 move.w 48(a4),d3 move.w 50(a4),d4 sub.w d2,d4 bsr.s drw_bit2 add.w d2,d3 add.w d2,d4 bsr.s drw_bit2 sub.w d2,d3 add.w d2,d4 bsr.s drw_bit2 move.w 44(a4),d3 move.w 46(a4),d4 add.w d2,d4 bsr.s drw_bit2 bra next_track u_d02 move.w 50(a4),d6 cmp.w d4,d6 bgt.s inverse4 move.w 48(a4),d5 retrieve x dest exg d3,d5 exg d4,d6 move.w d3,44(a4) move.w d4,46(a4) move.w d5,48(a4) move.w d6,50(a4) inverse4 sub.w d2,d3 move.w d3,40(a4) move.w d4,42(a4) add.w d2,d3 sub.w d2,d4 bsr.s drw_bit2 add.w d2,d3 add.w d2,d4 bsr.s drw_bit2 move.w 48(a4),d3 retrieve x dest move.w 50(a4),d4 y dest add.w d2,d3 bsr.s drw_bit2 sub.w d2,d3 add.w d2,d4 bsr.s drw_bit2 sub.w d2,d3 sub.w d2,d4 bsr.s drw_bit2 move.w 44(a4),d3 move.w 46(a4),d4 sub.w d2,d3 bsr.s drw_bit2 bra next_track drw_bit2 move.l 40(a4),36(a4) move.w d3,40(a4) move.w d4,42(a4) movem.l d1-d4,-(a7) bsr drwline1 movem.l (a7)+,d1-d4 rts fastrak1 move.w 44(a4),36(a4) move.w 46(a4),38(a4) move.w 48(a4),40(a4) move.w 50(a4),42(a4) movem.l d1-d2,-(a7) save element length and size bsr drwline1 movem.l (a7)+,d1-d2 recall element length ,size bra next_track * blk_end1 move.w 194(a4),d0 mulu.w #6,d0 add.l d0,a2 adda.l #6,a2 moveq #0,d0 rts block_type bsr prt_txt1 move.w 2(a2),d1 d1 = element length sub.w 194(a4),d1 move.w d1,266(a4) subq.l #6,a2 move to first coordinates next_block move.w 266(a4),d1 addq.l #6,a2 subi.w #1,d1 beq.s blk_end1 partly deleted by area delete addq.l #6,a2 subi.w #1,d1 beq.s blk_end1 end of element move.w d1,266(a4) moveq #0,d6 moveq #0,d7 move.w 2(a2),d4 d4 = first x coordinate move.w 8(a2),d5 d5 = second x coordinate move.b 10(a4),d0 move.w 12(a4),d7 add.w d7,d4 add.w d7,d5 tst.b 11(a4) beq.s pscale9 * asl.w d0,d4 asl.w d0,d5 move.w d4,44(a4) move.w d5,48(a4) * move.w 4(a2),d4 d4 = first y coordinate move.w 10(a2),d5 d5 = second y coordinate move.w 14(a4),d7 add.w d7,d4 add.w d7,d5 asl.w d0,d4 asl.w d0,d5 bra.s nscale9 * pscale9 asr.w d0,d4 asr.w d0,d5 move.w d4,44(a4) x s move.w d5,48(a4) x d * move.w 4(a2),d4 move.w 10(a2),d5 move.w 14(a4),d7 add.w d7,d4 add.w d7,d5 asr.w d0,d4 asr.w d0,d5 * nscale9 move.w d4,46(a4) y s move.w d5,50(a4) y d btst.b #0,80(a4) beq.s ed_off2 cmp.l 350(a4),a2 blt.s ed_off2 bsr ed_on move.w 44(a4),36(a4) move.w 46(a4),38(a4) move.w 44(a4),40(a4) move.w 50(a4),42(a4) bsr draw_h_v move.w 50(a4),38(a4) move.w 48(a4),40(a4) bsr draw_h_v move.w 48(a4),36(a4) move.w 46(a4),42(a4) bsr draw_h_v move.w 46(a4),38(a4) move.w 44(a4),40(a4) bsr draw_h_v bra next_block ed_off2 moveq #0,d0 move.b (a2),d0 ink colour andi.b #lay_mask,d0 bsr ed_off set ink move.w 44(a4),d0 x source move.w 48(a4),d1 x dest cmp.w d0,d1 bgt.s no_exg01 exg d0,d1 bra.s no_exg01 fill1 addi.w #1,d0 no_exg01 tst.b 16(a4) beq.s nt_hashed move.w d0,d3 andi.w #3,d3 bne.s fill1 cmp.w d0,d1 ble next_block nt_hashed move.w 46(a4),38(a4) move.w 50(a4),42(a4) move.w d0,36(a4) move.w d0,40(a4) movem.l d0-d1,-(a7) bsr vert_plot movem.l (a7)+,d0-d1 cmp.w d0,d1 bgt.s fill1 bra next_block * relocate moveq #0,d0 lea par,a4 move.l 26(a4),a2 moveq #0,d5 move.w 58(a4),d1 move.w 60(a4),d2 sub.w d1,62(a4) offset area sub.w d2,64(a4) offset area move.l #0,58(a4) zero cursor move.l #0,104(a4) zero area tst.b 135(a4) beq.s nxt_el01 add.w d1,12(a4) add.w d2,14(a4) nxt_el01 move.w (a2),194(a4) andi.w #lab_mask,194(a4) move.b (a2),d5 d5 = type andi.b #type_mask,d5 cmpi.b #pad,d5 beq.s t_p_w_b cmpi.b #trk,d5 beq.s t_p_w_b cmpi.b #wrd,d5 beq.s t_p_w_b cmpi.b #blk,d5 beq.s t_p_w_b cmpi.b #end,d5 beq.s fle_fin2 moveq #0,d5 move.w 2(a2),d5 mulu.w #6,d5 adda.l d5,a2 bra.s nxt_el01 fle_fin2 tst.b 135(a4) bne prt_c bra redraw t_p_w_b move.w 2(a2),d5 d5 = element length sub.w 194(a4),d5 next_coor addq.l #6,a2 base to next coord move.w 2(a2),d3 x move.w 4(a2),d4 y sub.w d1,d3 add x offset sub.w d2,d4 add y offset move.w d3,2(a2) move.w d4,4(a2) subi.w #1,d5 cmpi.w #1,d5 bne.s next_coor move.w 194(a4),d0 mulu.w #6,d0 add.l d0,a2 moveq #0,d0 addq.l #6,a2 bra nxt_el01 * reassign cmpi.b #10,d2 * bne.s nt2lay10 * moveq #6,d2 * rts * nt2lay10 cmpi.b #11,d2 * bne.s nt2lay11 * moveq #7,d2 * rts * nt2lay11 cmpi.b #26,d2 * bne.s nt2lay26 * moveq #8,d2 * rts * nt2lay26 cmpi.b #27,d2 * bne.s nt2lay27 * moveq #9,d2 * rts * nt2lay27 cmpi.b #42,d2 * bne.s nt2lay42 * moveq #10,d2 * rts * nt2lay42 cmpi.b #43,d2 * bne.s nt2lay43 * moveq #11,d2 * rts nt2lay43 cmpi.b #58,d2 * bne.s nt2lay58 * moveq #12,d2 * rts * nt2lay58 cmpi.b #14,d2 * bne.s nt2lay14 * moveq #13,d2 * rts * nt2lay14 cmpi.b #15,d2 * bne.s nt2lay15 * moveq #14,d2 * rts * nt2lay15 cmpi.b #30,d2 * bne.s nt2lay30 * moveq #15,d2 * rts * nt2lay30 cmpi.b #31,d2 * bne.s nt2lay31 * moveq #16,d2 * rts * nt2lay31 cmpi.b #46,d2 * bne.s nt2lay46 * moveq #17,d2 * rts * nt2lay46 cmpi.b #47,d2 * bne.s nt2lay47 * moveq #18,d2 * rts * nt2lay47 cmpi.b #62,d2 * bne.s nt2lay62 * moveq #19,d2 * rts * nt2lay62 and.b d0,d2 * bne.s visible * moveq #0,d0 * force off moveq #0,d2 * rts * visible move.w #1,d0 * force on moveq #0,d2 * exit18 rts * blk_el move.w (a2),d5 andi.w #lab_mask,d5 cmpi.w #3,d5 bgt.s has_rf1 move.w 4(a2),d5 andi.w #lib_mask,d5 bne.s has_rf1 move.b #1,281(a4) bra.s no_rf1 has_rf1 move.b #0,281(a4) no_rf1 move.l a2,276(a4) save element base for label adjust move.w 2(a2),d5 move.w d5,30(a4) save element length for moving sub.w 194(a4),d5 move.w d5,266(a4) subq.l #6,a2 move.b #1,274(a4) bra.s first_co new_co6 move.b #0,274(a4) first_co move.w 266(a4),d5 addq.l #6,a2 subi.w #1,d5 beq blk_exit addq.l #6,a2 subi.w #1,d5 beq blk_exit move.w d5,266(a4) moveq #0,d2 move.b (a2),d2 ink andi.b #lay_mask,d2 cmpi.b #inv_lay,d2 check for invisible layer beq.s invis1 need to pick up invisible layer * move.l 518(a4),d0 * tst.b d2 ****check for layer 0 beq.s invis1 ****layer used for pdf background bsr reassign * btst.l d2,d0 * beq new_co6 * layer switched off invis1 move.w 2(a2),d0 d0 = coor x d4 = grid step move.w 58(a4),d3 d3 = x cursor coord sub.w d4,d3 left side cmp.w d0,d3 bgt.s swp_x add.w d4,d3 add grid to x cursor add.w d4,d3 right side of cursor cmp.w d0,d3 blt.s swp_x bra.s chk_y * swp_x tst.b 274(a4) beq.s ntswplx movem.l d4-d5/a2,-(a7) save d4, d5 and a2 move.l 276(a4),a2 moveq #0,d5 move.w 8(a2),d4 sub.w 14(a2),d4 swap x for labels bsr blkmv_l2 movem.l (a7)+,d4-d5/a2 restore d4, d5 and a2 ntswplx move.w 8(a2),2(a2) swap x source and x dest coords move.w d0,8(a2) move.w 2(a2),d0 * move.w 58(a4),d3 sub.w d4,d3 cmp.w d0,d3 bgt new_co6 add.w d4,d3 add.w d4,d3 cmp.w d0,d3 blt new_co6 * chk_y move.w 4(a2),d0 move.w 60(a4),d3 sub.w d4,d3 cmp.w d0,d3 bgt.s swp_y add.w d4,d3 add.w d4,d3 cmp.w d0,d3 blt.s swp_y bra.s blk_got * swp_y tst.b 274(a4) beq.s ntswply movem.l d4-d5/a2,-(a7) save d4, d5 and a2 move.l 276(a4),a2 moveq #0,d4 move.w 10(a2),d5 sub.w 16(a2),d5 swap y for labels bsr blkmv_l2 movem.l (a7)+,d4-d5/a2 restore d4, d5 and a2 ntswply move.w 10(a2),4(a2) swap y source and y dest coords move.w d0,10(a2) move.w 4(a2),d0 * move.w 60(a4),d3 sub.w d4,d3 cmp.w d0,d3 bgt new_co6 add.w d4,d3 add.w d4,d3 cmp.w d0,d3 blt new_co6 * blk_got move.b 281(a4),280(a4) addi.w #1,d5 move.w 2(a2),d0 move.w 4(a2),d2 bra set_offset * blk_exit move.w 194(a4),d0 mulu.w #6,d0 add.l d0,a2 addq.l #6,a2 moveq #0,d0 bra.s nxt_el02 exit19 moveq #0,d0 exit20 rts search lea par,a4 move.l 26(a4),d6 beq.s exit20 move.l d6,a2 moveq #0,d5 moveq #0,d4 bsr.s nxt_el02 tst.w d4 bne int_ret move.l 26(a4),a2 moveq #0,d5 move.w 82(a4),d4 d4 = grid step bsr.s nxt_el02 bra int_ret nxt_el02 move.w (a2),194(a4) andi.w #lab_mask,194(a4) move.l a2,d1 d1 = base of element move.b (a2),d5 d5 = type andi.b #type_mask,d5 cmpi.b #pad,d5 beq.s t_p_w2 cmpi.b #wrd,d5 beq.s w2 cmpi.b #trk,d5 beq.s t_p_w2 cmpi.b #blk,d5 beq blk_el cmpi.b #end,d5 beq.s fle_fin3 bra.s new_el_type fle_fin3 moveq #0,d4 rts w2 tst.b 17(a4) check if words are on screen beq.s t_p_w2 new_el_type moveq #0,d5 move.w 2(a2),d5 mulu.w #6,d5 adda.l d5,a2 bra.s nxt_el02 t_p_w2 move.w 2(a2),d5 move.w d5,30(a4) save element length for moving sub.w 194(a4),d5 new_coord addq.l #6,a2 moveq #0,d2 move.b (a2),d2 ink andi.b #lay_mask,d2 cmpi.b #inv_lay,d2 check for invisible layer beq.s invisible need to pick up invisible layer * move.l 518(a4),d0 * bsr reassign * btst.l d2,d0 * beq.s cont1 * layer switched off invisible move.w 2(a2),d0 d0 = coor x d4 = grid step move.w 58(a4),d3 d3 = x cursor coor sub.w d4,d3 left side cmp.w d0,d3 bgt.s cont1 add.w d4,d3 add.w d4,d3 right side of cursor cmp.w d0,d3 blt.s cont1 move.w 4(a2),d2 d2 = coor y d1 = grid step move.w 60(a4),d3 d3 = y cursor coor sub.w d4,d3 top side cmp.w d2,d3 bgt.s cont1 add.w d4,d3 add.w d4,d3 bottom side cmp.w d2,d3 blt.s cont1 subi.w #1,d5 set_offset move.w d5,70(a4) save section of element move.l d1,72(a4) save element base tst.b 135(a4) beq.s noqptr07 move.w d0,d1 move.w d2,d4 sub.w 58(a4),d1 sub.w 60(a4),d4 sub.w d1,12(a4) sub.w d4,14(a4) move.b #0,294(a4) unset cursor move flag or.w d1,d4 beq.s move_mem move.b #1,294(a4) set cursor move flag noqptr07 move.w d0,58(a4) d0=x coord move.w d2,60(a4) d2=y coord bra.s move_mem * cont1 subi.w #1,d5 cmpi.w #1,d5 bne new_coord move.w 194(a4),d0 mulu.w #6,d0 add.l d0,a2 moveq #0,d0 addq.l #6,a2 bra nxt_el02 * move_mem move.l 26(a4),a2 ************ move.b #0,291(a4) * clear flag nxt_el03 move.b (a2),d5 * d5 = type andi.b #type_mask,d5 * cmpi.b #end,d5 * beq setcomp * move.w 4(a2),d5 * andi.w #comp_mask,d5 * bne istrailer * btst.b #0,291(a4) * test for component beq nocomp * move.b #0,291(a4) * cmp.l 72(a4),a2 * is end of component ble.s isheader * if a2 dc.b 1,3,0,5,0,0 dc.b 1,3,0,15,0,10 dc.b 1,3,0,5,0,20 t63 dc.b wrd,0,0,10,0,0 63 ? dc.b 1,3,0,0,0,17 dc.b 1,3,0,3,0,20 dc.b 1,3,0,17,0,20 dc.b 1,3,0,20,0,17 dc.b 1,3,0,20,0,13 dc.b 1,3,0,17,0,10 dc.b 1,3,0,13,0,10 dc.b 1,3,0,10,0,7 dc.b 1,3,0,10,0,0 t64 dc.b wrd,0,0,16,0,0 64 @ dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,10 dc.b 1,3,0,15,0,5 dc.b 1,3,0,15,0,15 dc.b 1,3,0,10,0,15 dc.b 1,3,0,5,0,10 dc.b 1,3,0,10,0,5 dc.b 1,3,0,15,0,10 t65 dc.b wrd,0,0,6,0,0 65 A dc.b 1,3,0,0,0,0 dc.b 1,3,0,10,0,20 dc.b 63,3,0,20,0,0 dc.b 1,3,0,17,0,6 dc.b 1,3,0,3,0,6 t66 dc.b wrd,0,0,13,0,0 66 B dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,20 dc.b 1,3,0,17,0,20 dc.b 1,3,0,20,0,17 dc.b 1,3,0,20,0,13 dc.b 1,3,0,17,0,10 dc.b 63,3,0,0,0,10 dc.b 1,3,0,17,0,10 dc.b 1,3,0,20,0,7 dc.b 1,3,0,20,0,3 dc.b 1,3,0,17,0,0 dc.b 1,3,0,0,0,0 t67 dc.b wrd,0,0,9,0,0 67 C dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 t68 dc.b wrd,0,0,8,0,0 68 D dc.b 1,3,0,0,0,0 dc.b 1,3,0,15,0,0 dc.b 1,3,0,20,0,5 dc.b 1,3,0,20,0,15 dc.b 1,3,0,15,0,20 dc.b 1,3,0,0,0,20 dc.b 1,3,0,0,0,0 t69 dc.b wrd,0,0,8,0,0 69 E dc.b 1,3,0,20,0,0 dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,10 dc.b 63,3,0,10,0,10 dc.b 1,3,0,0,0,10 dc.b 1,3,0,0,0,20 dc.b 1,3,0,20,0,20 t70 dc.b wrd,0,0,7,0,0 70 F dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,10 dc.b 63,3,0,10,0,10 dc.b 1,3,0,0,0,10 dc.b 1,3,0,0,0,20 dc.b 1,3,0,20,0,20 t71 dc.b wrd,0,0,11,0,0 71 G dc.b 1,3,0,15,0,7 dc.b 1,3,0,20,0,7 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 t72 dc.b wrd,0,0,7,0,0 72 H dc.b 1,3,0,0,0,0 dc.b 63,3,0,0,0,20 dc.b 1,3,0,0,0,10 dc.b 63,3,0,20,0,10 dc.b 1,3,0,20,0,20 dc.b 1,3,0,20,0,0 t73 dc.b wrd,0,0,7,0,0 73 I dc.b 1,3,0,5,0,0 dc.b 63,3,0,15,0,0 dc.b 1,3,0,10,0,0 dc.b 63,3,0,10,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,5,0,20 t74 dc.b wrd,0,0,7,0,0 74 J dc.b 1,3,0,0,0,5 dc.b 1,3,0,5,0,0 dc.b 1,3,0,15,0,0 dc.b 1,3,0,20,0,5 dc.b 1,3,0,20,0,20 dc.b 1,3,0,10,0,20 t75 dc.b wrd,0,0,7,0,0 75 K dc.b 1,3,0,0,0,0 dc.b 63,3,0,0,0,20 dc.b 1,3,0,20,0,20 dc.b 63,3,0,0,0,6 dc.b 1,3,0,6,0,10 dc.b 1,3,0,20,0,0 t76 dc.b wrd,0,0,4,0,0 76 L dc.b 1,3,0,0,0,20 dc.b 1,3,0,0,0,0 dc.b 1,3,0,20,0,0 t77 dc.b wrd,0,0,6,0,0 77 M dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,20 dc.b 1,3,0,10,0,10 dc.b 1,3,0,20,0,20 dc.b 1,3,0,20,0,0 t78 dc.b wrd,0,0,5,0,0 78 N dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,20 dc.b 1,3,0,20,0,0 dc.b 1,3,0,20,0,20 t79 dc.b wrd,0,0,10,0,0 79 O dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 1,3,0,5,0,0 t80 dc.b wrd,0,0,8,0,0 80 P dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,20 dc.b 1,3,0,16,0,20 dc.b 1,3,0,20,0,16 dc.b 1,3,0,20,0,10 dc.b 1,3,0,16,0,6 dc.b 1,3,0,0,0,6 t81 dc.b wrd,0,0,13,0,0 81 Q dc.b 1,3,0,20,0,0 dc.b 1,3,0,15,0,5 dc.b 63,3,0,10,0,5 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 1,3,0,5,0,0 t82 dc.b wrd,0,0,10,0,0 82 R dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,20 dc.b 1,3,0,16,0,20 dc.b 1,3,0,20,0,16 dc.b 1,3,0,20,0,10 dc.b 1,3,0,16,0,6 dc.b 63,3,0,0,0,6 dc.b 1,3,0,14,0,6 dc.b 1,3,0,20,0,0 t83 dc.b wrd,0,0,13,0,0 83 S dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,17,0,0 dc.b 1,3,0,20,0,3 dc.b 1,3,0,20,0,7 dc.b 1,3,0,17,0,10 dc.b 1,3,0,3,0,10 dc.b 1,3,0,0,0,13 dc.b 1,3,0,0,0,17 dc.b 1,3,0,3,0,20 dc.b 1,3,0,17,0,20 dc.b 1,3,0,20,0,17 t84 dc.b wrd,0,0,5,0,0 84 T dc.b 1,3,0,10,0,0 dc.b 63,3,0,10,0,20 dc.b 1,3,0,0,0,20 dc.b 1,3,0,20,0,20 t85 dc.b wrd,0,0,7,0,0 85 U dc.b 1,3,0,0,0,20 dc.b 1,3,0,0,0,5 dc.b 1,3,0,5,0,0 dc.b 1,3,0,15,0,0 dc.b 1,3,0,20,0,5 dc.b 1,3,0,20,0,20 t86 dc.b wrd,0,0,4,0,0 86 V dc.b 1,3,0,0,0,20 dc.b 1,3,0,10,0,0 dc.b 1,3,0,20,0,20 t87 dc.b wrd,0,0,6,0,0 87 W dc.b 1,3,0,0,0,20 dc.b 1,3,0,5,0,0 dc.b 1,3,0,10,0,10 dc.b 1,3,0,15,0,0 dc.b 1,3,0,20,0,20 t88 dc.b wrd,0,0,5,0,0 88 X dc.b 1,3,0,0,0,0 dc.b 63,3,0,20,0,20 dc.b 1,3,0,0,0,20 dc.b 1,3,0,20,0,0 t89 dc.b wrd,0,0,6,0,0 89 Y dc.b 1,3,0,10,0,0 dc.b 1,3,0,10,0,10 dc.b 63,3,0,0,0,20 dc.b 1,3,0,10,0,10 dc.b 1,3,0,20,0,20 t90 dc.b wrd,0,0,5,0,0 90 Z dc.b 1,3,0,20,0,0 dc.b 1,3,0,0,0,0 dc.b 1,3,0,20,0,20 dc.b 1,3,0,0,0,20 t91 dc.b wrd,0,0,5,0,0 91 [ dc.b 1,3,0,15,0,0 dc.b 1,3,0,10,0,0 dc.b 1,3,0,10,0,20 dc.b 1,3,0,15,0,20 t92 dc.b wrd,0,0,3,0,0 92 dc.b 1,3,0,20,0,0 dc.b 1,3,0,0,0,20 t93 dc.b wrd,0,0,5,0,0 93 ] dc.b 1,3,0,5,0,0 dc.b 1,3,0,10,0,0 dc.b 1,3,0,10,0,20 dc.b 1,3,0,5,0,20 t94 dc.b wrd,0,0,4,0,0 94 ^ dc.b 1,3,0,5,0,15 dc.b 1,3,0,10,0,20 dc.b 1,3,0,15,0,15 t95 dc.b wrd,0,0,3,0,0 95 _ dc.b 1,3,0,0,0,0 dc.b 1,3,0,20,0,0 t96 dc.b wrd,0,0,13,0,0 96 ` dc.b 1,3,0,20,0,15 dc.b 1,3,0,15,0,20 dc.b 1,3,0,10,0,20 dc.b 1,3,0,5,0,15 dc.b 1,3,0,5,0,10 dc.b 63,3,0,15,0,10 dc.b 1,3,0,0,0,10 dc.b 1,3,0,5,0,10 dc.b 1,3,0,5,0,5 dc.b 1,3,0,0,0,0 dc.b 1,3,0,15,0,0 dc.b 1,3,0,20,0,5 t97 dc.b wrd,0,0,11,0,0 97 a dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,14,0,14 dc.b 1,3,0,14,0,0 t98 dc.b wrd,0,0,11,0,0 98 b dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,20 t99 dc.b wrd,0,0,9,0,0 99 c dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 t100 dc.b wrd,0,0,11,0,0 100 d dc.b 1,3,0,14,0,11 dc.b 1,3,0,11,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 63,3,0,14,0,3 dc.b 1,3,0,14,0,0 dc.b 1,3,0,14,0,20 t101 dc.b wrd,0,0,10,0,0 101 e dc.b 1,3,0,0,0,7 dc.b 1,3,0,14,0,7 dc.b 1,3,0,14,0,11 dc.b 1,3,0,11,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,14,0,0 t102 dc.b wrd,0,0,8,0,0 102 f dc.b 1,3,0,3,0,0 dc.b 1,3,0,3,0,11 dc.b 63,3,0,10,0,11 dc.b 1,3,0,3,0,11 dc.b 1,3,0,3,0,17 dc.b 1,3,0,6,0,20 dc.b 1,3,0,10,0,20 t103 dc.b wrd,0,0,12,0,0 103 g dc.b 1,3,0,0,255,249 dc.b 1,3,0,11,255,249 dc.b 1,3,0,14,255,252 dc.b 1,3,0,14,0,11 dc.b 1,3,0,11,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 1,3,0,14,0,3 t104 dc.b wrd,0,0,8,0,0 104 h dc.b 1,3,0,0,0,20 dc.b 63,3,0,0,0,0 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,0 t105 dc.b wrd,0,0,8,0,0 105 i dc.b 1,3,0,7,0,0 dc.b 63,3,0,7,0,11 dc.b 1,3,0,5,0,15 dc.b 1,3,0,5,0,19 dc.b 1,3,0,9,0,19 dc.b 1,3,0,9,0,15 dc.b 1,3,0,5,0,15 t106 dc.b wrd,0,0,5,0,0 106 j dc.b 1,3,0,3,0,0 dc.b 1,3,0,7,0,0 dc.b 1,3,0,10,0,3 dc.b 1,3,0,10,0,20 t107 dc.b wrd,0,0,6,0,0 107 k dc.b 1,3,0,0,0,0 dc.b 63,3,0,0,0,20 dc.b 1,3,0,14,0,14 dc.b 1,3,0,0,0,7 dc.b 1,3,0,14,0,0 t108 dc.b wrd,0,0,6,0,0 108 l dc.b 1,3,0,2,0,20 dc.b 1,3,0,2,0,3 dc.b 1,3,0,5,0,0 dc.b 1,3,0,9,0,0 dc.b 1,3,0,12,0,3 t109 dc.b wrd,0,0,10,0,0 109 m dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,7,0,10 dc.b 63,3,0,7,0,0 dc.b 1,3,0,7,0,10 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,0 t110 dc.b wrd,0,0,8,0,0 110 n dc.b 1,3,0,0,0,14 dc.b 63,3,0,0,0,0 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,0 t111 dc.b wrd,0,0,10,0,0 111 o dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 t112 dc.b wrd,0,0,11,0,0 112 p dc.b 1,3,0,0,255,249 dc.b 63,3,0,0,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 t113 dc.b wrd,0,0,11,0,0 113 q dc.b 1,3,0,14,255,249 dc.b 63,3,0,14,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,11,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 1,3,0,14,0,3 t114 dc.b wrd,0,0,7,0,0 114 r dc.b 1,3,0,0,0,0 dc.b 63,3,0,0,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 t115 dc.b wrd,0,0,9,0,0 115 s dc.b 1,3,0,0,0,0 dc.b 1,3,0,11,0,0 dc.b 1,3,0,14,0,3 dc.b 1,3,0,10,0,7 dc.b 1,3,0,4,0,7 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,14,0,14 t116 dc.b wrd,0,0,8,0,0 116 t dc.b 1,3,0,3,0,20 dc.b 1,3,0,3,0,14 dc.b 63,3,0,10,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,3,0,3 dc.b 1,3,0,6,0,0 dc.b 1,3,0,10,0,0 t117 dc.b wrd,0,0,8,0,0 117 u dc.b 1,3,0,0,0,14 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 63,3,0,14,0,3 dc.b 1,3,0,14,0,0 dc.b 1,3,0,14,0,14 t118 dc.b wrd,0,0,4,0,0 118 v dc.b 1,3,0,0,0,14 dc.b 1,3,0,7,0,0 dc.b 1,3,0,14,0,14 t119 dc.b wrd,0,0,10,0,0 119 w dc.b 1,3,0,0,0,14 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,7,0,4 dc.b 63,3,0,7,0,14 dc.b 1,3,0,7,0,4 dc.b 1,3,0,11,0,0 dc.b 1,3,0,14,0,3 dc.b 1,3,0,14,0,14 t120 dc.b wrd,0,0,5,0,0 120 x dc.b 1,3,0,0,0,0 dc.b 63,3,0,14,0,14 dc.b 1,3,0,0,0,14 dc.b 1,3,0,14,0,0 t121 dc.b wrd,0,0,10,0,0 121 y dc.b 1,3,0,0,0,14 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 63,3,0,14,0,3 dc.b 1,3,0,14,0,14 dc.b 1,3,0,14,255,252 dc.b 1,3,0,11,255,249 dc.b 1,3,0,0,255,249 t122 dc.b wrd,0,0,5,0,0 122 z dc.b 1,3,0,0,0,14 dc.b 1,3,0,14,0,14 dc.b 1,3,0,0,0,0 dc.b 1,3,0,14,0,0 t123 dc.b wrd,0,0,8,0,0 123 { dc.b 1,3,0,15,0,20 dc.b 1,3,0,10,0,15 dc.b 1,3,0,10,0,10 dc.b 63,3,0,5,0,10 dc.b 1,3,0,10,0,10 dc.b 1,3,0,10,0,5 dc.b 1,3,0,15,0,0 t124 dc.b wrd,0,0,3,0,0 124 dc.b 1,3,0,10,0,0 dc.b 1,3,0,10,0,20 t125 dc.b wrd,0,0,8,0,0 125 } dc.b 1,3,0,5,0,20 dc.b 1,3,0,10,0,15 dc.b 1,3,0,10,0,10 dc.b 63,3,0,15,0,10 dc.b 1,3,0,10,0,10 dc.b 1,3,0,10,0,5 dc.b 1,3,0,5,0,0 t126 dc.b wrd,0,0,5,0,0 126 ~ dc.b 1,3,0,0,0,21 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,19 dc.b 1,3,0,14,0,23 t127 dc.b wrd,0,0,16,0,0 127  dc.b 1,3,0,13,0,5 dc.b 1,3,0,8,0,5 dc.b 1,3,0,5,0,8 dc.b 1,3,0,5,0,12 dc.b 1,3,0,8,0,15 dc.b 63,3,0,13,0,15 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 t128 dc.b wrd,0,0,15,0,0 128 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,14,0,14 dc.b 63,3,0,14,0,0 dc.b 1,3,0,0,0,20 dc.b 63,3,0,0,0,20 dc.b 1,3,0,14,0,20 dc.b 1,3,0,14,0,20 t129 dc.b wrd,0,0,15,0,0 129 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,14,0,14 dc.b 63,3,0,14,0,0 dc.b 1,3,0,0,0,21 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,19 dc.b 1,3,0,14,0,23 t130 dc.b wrd,0,0,16,0,0 130 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,14,0,14 dc.b 63,3,0,14,0,0 dc.b 1,3,0,4,0,19 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,25 dc.b 1,3,0,10,0,19 dc.b 1,3,0,4,0,19 t131 dc.b wrd,0,0,12,0,0 131 dc.b 1,3,0,0,0,7 dc.b 1,3,0,14,0,7 dc.b 1,3,0,14,0,11 dc.b 1,3,0,11,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 63,3,0,14,0,0 dc.b 1,3,0,4,0,19 dc.b 1,3,0,10,0,25 t132 dc.b wrd,0,0,14,0,0 132 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,0,0,20 dc.b 63,3,0,0,0,20 dc.b 1,3,0,14,0,20 dc.b 1,3,0,14,0,20 t133 dc.b wrd,0,0,14,0,0 133 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,0,0,21 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,19 dc.b 1,3,0,14,0,23 t134 dc.b wrd,0,0,12,0,0 134 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,0,0,0 dc.b 1,3,0,14,0,14 t135 dc.b wrd,0,0,12,0,0 135 dc.b 1,3,0,0,0,14 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 63,3,0,14,0,3 dc.b 1,3,0,14,0,0 dc.b 63,3,0,14,0,14 dc.b 1,3,0,0,0,20 dc.b 63,3,0,0,0,20 dc.b 1,3,0,14,0,20 dc.b 1,3,0,14,0,20 t136 dc.b wrd,0,0,12,0,0 136 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,7,0,0 dc.b 1,3,0,7,255,249 dc.b 1,3,0,3,255,249 t137 dc.b wrd,0,0,12,0,0 137 dc.b 1,3,0,0,0,14 dc.b 63,3,0,0,0,0 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 63,3,0,14,0,0 dc.b 1,3,0,0,0,21 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,19 dc.b 1,3,0,14,0,23 t138 dc.b wrd,0,0,17,0,0 138 dc.b 1,3,0,0,0,14 dc.b 1,3,0,7,0,14 dc.b 1,3,0,10,0,11 dc.b 1,3,0,10,0,3 dc.b 1,3,0,7,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,4,0,7 dc.b 1,3,0,20,0,7 dc.b 1,3,0,20,0,11 dc.b 1,3,0,17,0,14 dc.b 1,3,0,13,0,14 dc.b 63,3,0,10,0,11 dc.b 1,3,0,10,0,3 dc.b 1,3,0,13,0,0 dc.b 1,3,0,20,0,0 t139 dc.b wrd,0,0,18,0,0 139 dc.b 1,3,0,10,0,11 dc.b 1,3,0,7,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,7,0,0 dc.b 63,3,0,10,0,3 dc.b 1,3,0,10,0,7 dc.b 1,3,0,20,0,7 dc.b 1,3,0,20,0,11 dc.b 1,3,0,17,0,14 dc.b 1,3,0,13,0,14 dc.b 1,3,0,10,0,11 dc.b 1,3,0,10,0,3 dc.b 1,3,0,13,0,0 dc.b 1,3,0,20,0,0 t140 dc.b wrd,0,0,13,0,0 140 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,14,0,14 dc.b 63,3,0,14,0,0 dc.b 1,3,0,4,0,19 dc.b 1,3,0,10,0,25 * t141a dc.b wrd,0,0,7,0,0 141 dc.b 1,0,0,0,0,0 dc.b 1,0,0,15,0,0 dc.b 63,0,0,15,0,20 dc.b 1,0,0,20,0,20 dc.b 1,0,0,5,0,20 dc.b 1,0,0,5,0,0 * t141b dc.b wrd,0,0,13,0,0 141 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,14,0,14 dc.b 63,3,0,14,0,0 dc.b 1,3,0,10,0,19 dc.b 1,3,0,4,0,25 * t142 dc.b wrd,0,0,14,0,0 142 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,14,0,14 dc.b 63,3,0,14,0,0 dc.b 1,3,0,3,0,20 dc.b 1,3,0,7,0,24 dc.b 1,3,0,11,0,20 t143 dc.b wrd,0,0,14,0,0 143 dc.b 1,3,0,0,0,7 dc.b 1,3,0,14,0,7 dc.b 1,3,0,14,0,11 dc.b 1,3,0,11,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 63,3,0,14,0,0 dc.b 1,3,0,0,0,20 dc.b 63,3,0,0,0,20 dc.b 1,3,0,14,0,20 dc.b 1,3,0,14,0,20 t144a dc.b wrd,0,0,4,0,0 144 dc.b 1,0,0,0,0,20 dc.b 1,0,0,20,0,20 dc.b 1,0,0,20,0,0 t145a dc.b wrd,0,0,5,0,0 145 dc.b 1,0,0,0,0,0 dc.b 1,0,0,0,0,20 dc.b 1,0,0,20,0,10 dc.b 1,0,0,0,0,0 t146a dc.b wrd,0,0,5,0,0 146 dc.b 1,0,0,20,0,0 dc.b 1,0,0,20,0,20 dc.b 1,0,0,0,0,10 dc.b 1,0,0,20,0,0 t147a dc.b wrd,0,0,10,0,0 147 dc.b 1,0,0,0,0,0 dc.b 1,0,0,10,0,0 dc.b 1,0,0,0,0,10 dc.b 1,0,0,10,0,20 dc.b 1,0,0,20,0,10 dc.b 63,0,0,0,0,10 dc.b 1,0,0,20,0,10 dc.b 1,0,0,10,0,0 dc.b 1,0,0,20,0,0 t148a dc.b wrd,0,0,10,0,0 148 dc.b 1,0,0,0,0,20 dc.b 1,0,0,10,0,20 dc.b 1,0,0,0,0,10 dc.b 1,0,0,10,0,0 dc.b 1,0,0,20,0,10 dc.b 63,0,0,0,0,10 dc.b 1,0,0,20,0,10 dc.b 1,0,0,10,0,20 dc.b 1,0,0,20,0,20 t149a dc.b wrd,0,0,6,0,0 149 dc.b 1,0,0,10,0,0 dc.b 1,0,0,0,0,10 dc.b 1,0,0,10,0,20 dc.b 1,0,0,20,0,10 dc.b 1,0,0,10,0,0 t150a dc.b wrd,0,0,8,0,0 150 dc.b 1,0,0,0,0,20 dc.b 1,0,0,10,0,20 dc.b 1,0,0,0,0,10 dc.b 1,0,0,10,0,0 dc.b 1,0,0,20,0,10 dc.b 1,0,0,10,0,20 dc.b 1,0,0,20,0,20 t151a dc.b wrd,0,0,8,0,0 151 dc.b 1,0,0,0,0,0 dc.b 1,0,0,10,0,0 dc.b 1,0,0,0,0,10 dc.b 1,0,0,10,0,20 dc.b 1,0,0,20,0,10 dc.b 1,0,0,10,0,0 dc.b 1,0,0,20,0,0 t152a dc.b wrd,0,0,7,0,0 152 dc.b 1,0,0,0,0,0 dc.b 1,0,0,0,0,15 dc.b 1,0,0,5,0,20 dc.b 1,0,0,15,0,20 dc.b 1,0,0,20,0,15 dc.b 1,0,0,20,0,0 t153a dc.b wrd,0,0,5,0,0 153 dc.b 1,0,0,0,0,20 dc.b 1,0,0,10,0,0 dc.b 1,0,0,20,0,20 dc.b 1,0,0,0,0,20 * t144b dc.b wrd,0,0,12,0,0 144 dc.b 1,3,0,0,0,7 dc.b 1,3,0,14,0,7 dc.b 1,3,0,14,0,11 dc.b 1,3,0,11,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 63,3,0,14,0,0 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,19 t145b dc.b wrd,0,0,13,0,0 145 dc.b 1,3,0,0,0,7 dc.b 1,3,0,14,0,7 dc.b 1,3,0,14,0,11 dc.b 1,3,0,11,0,14 dc.b 1,3,0,3,0,14 dc.b 1,3,0,0,0,11 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 63,3,0,14,0,0 dc.b 1,3,0,3,0,20 dc.b 1,3,0,7,0,24 dc.b 1,3,0,11,0,20 t146b dc.b wrd,0,0,7,0,0 146 dc.b 1,3,0,7,0,0 dc.b 63,3,0,7,0,14 dc.b 1,3,0,0,0,20 dc.b 63,3,0,0,0,20 dc.b 1,3,0,14,0,20 dc.b 1,3,0,14,0,20 t147b dc.b wrd,0,0,5,0,0 147 dc.b 1,3,0,7,0,0 dc.b 63,3,0,7,0,14 dc.b 1,3,0,4,0,19 dc.b 1,3,0,10,0,25 t148b dc.b wrd,0,0,5,0,0 148 dc.b 1,3,0,7,0,0 dc.b 63,3,0,7,0,14 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,19 t149b dc.b wrd,0,0,6,0,0 149 dc.b 1,3,0,7,0,0 dc.b 63,3,0,7,0,14 dc.b 1,3,0,3,0,20 dc.b 1,3,0,7,0,24 dc.b 1,3,0,11,0,20 t150b dc.b wrd,0,0,12,0,0 150 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,4,0,19 dc.b 1,3,0,10,0,25 t151b dc.b wrd,0,0,12,0,0 151 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,19 t152b dc.b wrd,0,0,13,0,0 152 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,3,0,20 dc.b 1,3,0,7,0,24 dc.b 1,3,0,11,0,20 t153b dc.b wrd,0,0,10,0,0 153 dc.b 1,3,0,0,0,14 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 63,3,0,14,0,3 dc.b 1,3,0,14,0,0 dc.b 63,3,0,14,0,14 dc.b 1,3,0,4,0,19 dc.b 1,3,0,10,0,25 * t154 dc.b wrd,0,0,10,0,0 154 dc.b 1,3,0,0,0,14 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 63,3,0,14,0,3 dc.b 1,3,0,14,0,0 dc.b 63,3,0,14,0,14 dc.b 1,3,0,4,0,25 dc.b 1,3,0,10,0,19 t155 dc.b wrd,0,0,11,0,0 155 dc.b 1,3,0,0,0,14 dc.b 1,3,0,0,0,3 dc.b 1,3,0,3,0,0 dc.b 1,3,0,11,0,0 dc.b 63,3,0,14,0,3 dc.b 1,3,0,14,0,0 dc.b 63,3,0,14,0,14 dc.b 1,3,0,3,0,20 dc.b 1,3,0,7,0,24 dc.b 1,3,0,11,0,20 t156 dc.b wrd,0,0,15,0,0 156 dc.b 1,3,0,0,255,249 dc.b 1,3,0,0,0,17 dc.b 1,3,0,3,0,20 dc.b 1,3,0,14,0,20 dc.b 1,3,0,17,0,17 dc.b 1,3,0,17,0,13 dc.b 1,3,0,14,0,10 dc.b 63,3,0,0,0,10 dc.b 1,3,0,14,0,10 dc.b 1,3,0,17,0,10 dc.b 1,3,0,20,0,7 dc.b 1,3,0,20,0,3 dc.b 1,3,0,17,0,0 dc.b 1,3,0,5,0,0 * t157a dc.b wrd,0,0,7,0,0 157 dc.b 1,0,0,0,0,0 dc.b 1,0,0,5,0,0 dc.b 1,0,0,5,0,20 dc.b 1,0,0,15,0,20 dc.b 1,0,0,15,0,0 dc.b 1,0,0,20,0,0 t157b dc.b wrd,0,0,11,0,0 157 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 63,3,0,14,0,11 dc.b 1,3,0,11,0,20 dc.b 1,3,0,11,255,250 * t158 dc.b wrd,0,0,12,0,0 158 dc.b 1,3,0,3,0,20 dc.b 1,3,0,10,0,13 dc.b 63,3,0,17,0,20 dc.b 1,3,0,10,0,13 dc.b 63,3,0,10,0,8 dc.b 1,3,0,5,0,8 dc.b 63,3,0,15,0,8 dc.b 1,3,0,10,0,8 dc.b 63,3,0,10,0,0 dc.b 1,3,0,5,0,0 dc.b 1,3,0,15,0,0 t159 dc.b wrd,0,0,11,0,0 159 dc.b 1,3,0,0,0,0 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 1,3,0,20,0,0 t160 dc.b wrd,0,0,10,0,0 160 dc.b 1,3,0,0,0,0 dc.b 1,3,0,10,0,20 dc.b 63,3,0,20,0,0 dc.b 1,3,0,15,0,10 dc.b 63,3,0,5,0,10 dc.b 1,3,0,3,0,26 dc.b 63,3,0,3,0,26 dc.b 1,3,0,17,0,26 dc.b 1,3,0,17,0,26 t161 dc.b wrd,0,0,10,0,0 161 dc.b 1,3,0,0,0,0 dc.b 1,3,0,10,0,20 dc.b 63,3,0,20,0,0 dc.b 1,3,0,15,0,10 dc.b 63,3,0,5,0,10 dc.b 1,3,0,3,0,27 dc.b 1,3,0,7,0,31 dc.b 1,3,0,13,0,25 dc.b 1,3,0,17,0,29 t162 dc.b wrd,0,0,11,0,0 162 dc.b 1,3,0,0,0,0 dc.b 1,3,0,10,0,20 dc.b 63,3,0,20,0,0 dc.b 1,3,0,15,0,10 dc.b 63,3,0,5,0,10 dc.b 1,3,0,7,0,25 dc.b 1,3,0,7,0,31 dc.b 1,3,0,13,0,31 dc.b 1,3,0,13,0,25 dc.b 1,3,0,7,0,25 t163 dc.b wrd,0,0,10,0,0 163 dc.b 1,3,0,20,0,0 dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,10 dc.b 63,3,0,10,0,10 dc.b 1,3,0,0,0,10 dc.b 1,3,0,0,0,20 dc.b 63,3,0,20,0,20 dc.b 1,3,0,7,0,25 dc.b 1,3,0,13,0,31 t164 dc.b wrd,0,0,14,0,0 164 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 63,3,0,5,0,0 dc.b 1,3,0,3,0,26 dc.b 63,3,0,3,0,26 dc.b 1,3,0,17,0,26 dc.b 1,3,0,17,0,26 t165 dc.b wrd,0,0,14,0,0 165 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 63,3,0,5,0,0 dc.b 1,3,0,3,0,27 dc.b 1,3,0,7,0,31 dc.b 1,3,0,13,0,25 dc.b 1,3,0,17,0,29 t166 dc.b wrd,0,0,12,0,0 166 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 63,3,0,5,0,0 dc.b 1,3,0,0,0,0 dc.b 1,3,0,20,0,20 t167 dc.b wrd,0,0,11,0,0 167 dc.b 1,3,0,0,0,20 dc.b 1,3,0,0,0,5 dc.b 1,3,0,5,0,0 dc.b 1,3,0,15,0,0 dc.b 1,3,0,20,0,5 dc.b 63,3,0,20,0,20 dc.b 1,3,0,3,0,26 dc.b 63,3,0,3,0,26 dc.b 1,3,0,17,0,26 dc.b 1,3,0,17,0,26 t168 dc.b wrd,0,0,12,0,0 168 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 63,3,0,20,0,15 dc.b 1,3,0,10,0,0 dc.b 1,3,0,10,255,249 dc.b 1,3,0,6,255,249 t169 dc.b wrd,0,0,9,0,0 169 dc.b 1,3,0,0,0,0 dc.b 1,3,0,0,0,20 dc.b 1,3,0,20,0,0 dc.b 63,3,0,20,0,20 dc.b 1,3,0,3,0,27 dc.b 1,3,0,7,0,31 dc.b 1,3,0,13,0,25 dc.b 1,3,0,17,0,29 t170 dc.b wrd,0,0,9,0,0 170 dc.b 1,3,0,0,0,0 dc.b 1,3,0,5,0,20 dc.b 63,3,0,20,0,20 dc.b 1,3,0,10,0,20 dc.b 1,3,0,10,0,0 dc.b 63,3,0,20,0,0 dc.b 1,3,0,20,0,10 dc.b 1,3,0,3,0,10 t171 dc.b wrd,0,0,11,0,0 171 dc.b 1,3,0,20,0,0 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 63,3,0,20,0,20 dc.b 1,3,0,10,0,20 dc.b 63,3,0,10,0,0 dc.b 1,3,0,20,0,10 dc.b 1,3,0,10,0,10 t172 dc.b wrd,0,0,15,0,0 172 dc.b 1,3,0,20,0,14 dc.b 1,3,0,17,0,14 dc.b 1,3,0,12,0,9 dc.b 1,3,0,12,0,5 dc.b 1,3,0,7,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,7,0,14 dc.b 63,3,0,12,0,9 dc.b 1,3,0,12,0,5 dc.b 1,3,0,17,0,0 dc.b 1,3,0,20,0,0 t173 dc.b wrd,0,0,15,0,0 173 dc.b 1,3,0,20,0,17 dc.b 1,3,0,17,0,20 dc.b 1,3,0,3,0,20 dc.b 1,3,0,0,0,17 dc.b 1,3,0,0,0,13 dc.b 1,3,0,3,0,10 dc.b 1,3,0,17,0,10 dc.b 1,3,0,20,0,7 dc.b 1,3,0,20,0,3 dc.b 1,3,0,17,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,7 dc.b 1,3,0,3,0,10 t174 dc.b wrd,0,0,12,0,0 174 dc.b 1,3,0,5,0,0 dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,15 dc.b 1,3,0,5,0,20 dc.b 1,3,0,15,0,20 dc.b 1,3,0,20,0,15 dc.b 1,3,0,20,0,5 dc.b 1,3,0,15,0,0 dc.b 63,3,0,5,0,0 dc.b 1,3,0,0,0,10 dc.b 1,3,0,20,0,10 t175 dc.b wrd,0,0,5,0,0 175 dc.b 1,3,0,5,0,20 dc.b 63,3,0,15,0,0 dc.b 1,3,0,12,0,6 dc.b 1,3,0,6,0,0 t176 dc.b wrd,0,0,7,0,0 176 dc.b 1,3,0,0,255,249 dc.b 63,3,0,0,0,14 dc.b 1,3,0,0,0,0 dc.b 1,3,0,11,0,0 dc.b 1,3,0,14,0,3 dc.b 1,3,0,14,0,14 t177 dc.b wrd,0,0,9,0,0 177 dc.b 1,3,0,5,0,0 dc.b 1,3,0,5,0,14 dc.b 63,3,0,0,0,11 dc.b 1,3,0,5,0,14 dc.b 1,3,0,15,0,14 dc.b 63,3,0,15,0,0 dc.b 1,3,0,15,0,14 dc.b 1,3,0,20,0,14 t178 dc.b wrd,0,0,12,0,0 178 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,7,0,20 dc.b 1,3,0,7,255,250 t179 dc.b wrd,0,0,5,0,0 179 dc.b 1,3,0,7,0,0 dc.b 63,3,0,7,0,14 dc.b 1,3,0,7,0,20 dc.b 1,3,0,7,0,20 t180 dc.b wrd,0,0,10,0,0 180 dc.b 1,3,0,20,0,3 dc.b 1,3,0,17,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,7 dc.b 1,3,0,3,0,10 dc.b 1,3,0,7,0,10 dc.b 1,3,0,10,0,13 dc.b 1,3,0,10,0,20 t181 dc.b wrd,0,0,15,0,0 181 dc.b 1,3,0,20,0,3 dc.b 1,3,0,17,0,0 dc.b 1,3,0,3,0,0 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,7 dc.b 1,3,0,3,0,10 dc.b 1,3,0,17,0,10 dc.b 1,3,0,20,0,13 dc.b 1,3,0,20,0,17 dc.b 1,3,0,17,0,20 dc.b 1,3,0,3,0,20 dc.b 63,3,0,0,0,17 dc.b 1,3,0,10,255,250 dc.b 1,3,0,10,255,250 t182 dc.b wrd,0,0,25,0,0 182 dc.b 1,3,0,18,0,18 dc.b 1,3,0,16,0,20 dc.b 1,3,0,12,0,20 dc.b 1,3,0,10,0,18 dc.b 1,3,0,10,0,14 dc.b 1,3,0,12,0,12 dc.b 1,3,0,16,0,12 dc.b 1,3,0,18,0,10 dc.b 1,3,0,18,0,6 dc.b 1,3,0,16,0,4 dc.b 1,3,0,12,0,4 dc.b 1,3,0,10,0,6 dc.b 1,3,0,10,0,2 dc.b 1,3,0,8,0,0 dc.b 1,3,0,5,0,0 dc.b 63,3,0,3,0,2 dc.b 1,3,0,10,0,6 dc.b 1,3,0,8,0,8 dc.b 1,3,0,5,0,8 dc.b 1,3,0,3,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,5,0,16 dc.b 1,3,0,8,0,16 dc.b 1,3,0,11,0,13 t183 dc.b wrd,0,0,18,0,0 183 dc.b 1,3,0,0,0,3 dc.b 1,3,0,0,0,11 dc.b 1,3,0,3,0,14 dc.b 1,3,0,11,0,14 dc.b 1,3,0,14,0,11 dc.b 1,3,0,14,0,3 dc.b 1,3,0,11,0,0 dc.b 1,3,0,3,0,0 dc.b 63,3,0,0,0,3 dc.b 1,3,0,0,0,20 dc.b 63,3,0,0,0,20 dc.b 1,3,0,14,0,20 dc.b 63,3,0,14,0,20 dc.b 1,3,0,14,255,250 dc.b 63,3,0,14,255,250 dc.b 1,3,0,0,255,250 dc.b 1,3,0,0,255,250 t184 dc.b wrd,0,0,7,0,0 184 dc.b 1,3,0,10,0,20 dc.b 1,3,0,0,0,10 dc.b 63,3,0,10,0,0 dc.b 1,3,0,20,0,0 dc.b 1,3,0,10,0,10 dc.b 1,3,0,20,0,20 t185 dc.b wrd,0,0,7,0,0 185 dc.b 1,3,0,10,0,20 dc.b 1,3,0,20,0,10 dc.b 63,3,0,10,0,0 dc.b 1,3,0,0,0,0 dc.b 1,3,0,10,0,10 dc.b 1,3,0,0,0,20 t186 dc.b wrd,0,0,6,0,0 186 dc.b 1,3,0,7,0,14 dc.b 1,3,0,7,0,20 dc.b 1,3,0,13,0,20 dc.b 1,3,0,13,0,14 dc.b 1,3,0,7,0,14 t187 dc.b wrd,0,0,7,0,0 187 dc.b 1,3,0,0,0,10 dc.b 63,3,0,20,0,10 dc.b 1,3,0,10,0,20 dc.b 63,3,0,10,0,20 dc.b 1,3,0,10,0,0 dc.b 1,3,0,10,0,0 t188 dc.b wrd,0,0,6,0,0 188 dc.b 1,3,0,0,0,10 dc.b 1,3,0,5,0,5 dc.b 1,3,0,5,0,15 dc.b 1,3,0,0,0,10 dc.b 1,3,0,20,0,10 t189 dc.b wrd,0,0,6,0,0 189 dc.b 1,3,0,20,0,10 dc.b 1,3,0,15,0,15 dc.b 1,3,0,15,0,5 dc.b 1,3,0,20,0,10 dc.b 1,3,0,0,0,10 t190 dc.b wrd,0,0,6,0,0 190 dc.b 1,3,0,10,0,20 dc.b 1,3,0,5,0,15 dc.b 1,3,0,15,0,15 dc.b 1,3,0,10,0,20 dc.b 1,3,0,10,0,0 t191 dc.b wrd,0,0,6,0,0 191 dc.b 1,3,0,10,0,0 dc.b 1,3,0,15,0,5 dc.b 1,3,0,5,0,5 dc.b 1,3,0,10,0,0 dc.b 1,3,0,10,0,20 t192 dc.b wrd,0,0,5,0,0 192 special case dc.b 1,3,0,0,0,5 dc.b 1,3,0,0,0,0 dc.b 1,3,0,20,0,0 dc.b 1,3,0,20,0,5 dc.b 255,255,255,255,255,255 end