home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / source / rpn64-src.sfx / rpntables (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1990-02-12  |  24.3 KB  |  703 lines
  1. rpnTABLES
  2. prg FORMATTED geos FILE v1.0
  3. sTAR nx-10
  4. - rpnROUTINES
  5. blaster's converter v2.5
  6. rpnRAM
  7. rpnSCREEN
  8. wRITE iMAGE v2.0
  9. GEOwRITE    v1.1
  10. iNITIALIZATION, iCON DEFINITIONS, KEY HANDLER FOR rpn 64
  11. ;************************************************************************
  12. ;rpn 64
  13. ;INITIALIZATION ROUTINE, ICON DEFINITIONS
  14. ; BY rOBERT a kNOP jR.
  15. ;uSING sAMda CODE FROM gEOpROGRAMMER BY bERKELEY sOFTWORKS.
  16. ;************************************************************************
  17. .NOEQIN;DURING ASSEMBLER'S FIRST PASS.
  18. @.INCLUDEGEOSsYM
  19. ;GET geos DEFINITIONS
  20. @.INCLUDEGEOSmAC
  21. ;GET geos MACRO DEFINITIONS
  22. @.INCLUDErpnCONST
  23. .EQIN
  24. ; tHE SOURCE CODE FOR 
  25. @rpn 64
  26.  IS BROKEN INTO 8 FILES:
  27. ; rpn.LNKlINKER cOMMAND fILE
  28. ; rpnhDRhEADER rECORD
  29. ; rpnTABLESiCON dEFINITION, kEY hANDLER, iNIT. rOUTINE
  30. ; rpnSCREENmODIFICATION OF eRIC e. dEL sESTO'S SCREEN SAVING ROUTINE FOR da'S; INCLUDED ABOVE
  31. ; rpnROUTINESrOUTINES CALLED BY iCONS ET. AL.
  32. ; rpnSUPPORTmORE ROUTINES, OF A "SUPPORTESEQUE" NATURE
  33. ; rpnRAM.RAMSECT
  34. ; rpnCONSTeQUATES INCLUDED INTO SEVERAL OF THE ABOVE
  35. ; tHIS CODE ALSO INCLUDES THE FILES GEOSsYM AND GEOSmAC, WHICH COME WITH GEOpROGRAMMER
  36. ; hOPEFULLY, THIS SOURCE WILL SERVE AS AN EXAMPLE OF HOW ONE MAY CALL basic'S FLOATING POINT ROUTINES
  37. ; FROM geos.  nOTE THAT IT ISN'T ALWYAS STRAIGHTFORWARD; FOR EXAMPLE, SOME ROUTINES REQUIRE chrget TO BE
  38. ; MAPPED INTO ZERO PAGE, AND SOME OTHERS REQUIRE THE ACCUMULATOR TO HOLD THE EXPONENT OF FLOATING
  39. ; POINT ACCUMULATOR 1.  iN GENERAL, i FOUND hEEB'S BOOK (BELOW) VERY USEFUL.
  40. references
  41. ; hEEB, dAN, 
  42. compute!'S vIC-20 AND c-64 tOOL kIT: basic
  43. .  compute! bOOKS, 1984.
  44. ; bERKELEY sOFTWORKS, 
  45. tHE oFFICIAL geos pROGRAMMER'S rEFERENCE gUIDE
  46. .  bANTAM, 1987.
  47. ; lEEMON, sHELDON, 
  48. mAPPING tHE cOMMODORE 64 & 64c
  49. .  compute! bOOKS, 1987.
  50. ; cbm, 
  51. cOMMODORE 64 pROGRAMMER'S rEFERENCE gUIDE
  52. .  cOMMODORE, 1982.
  53. ; *****************************************************************************
  54. iNITIALIZATION ROUTINE
  55. ; sAVE APPLICATION'S FOREGROUND SREEN
  56. ; dRAW rpn SCREEN
  57. ; iNITIALIZE ICONS
  58. ; ************
  59. ; *****************************************************************************
  60. iNITIALIZATION ROUTINE
  61. ; sAVE APPLICATION'S FOREGROUND SREEN
  62. ; dRAW rpn SCREEN
  63. ; iNITIALIZE ICONS
  64. ; *****************************************************************************
  65. @.PSECT
  66. ;bEGINNING OF PROGRAM
  67. dasTART:
  68. mOVEbR10l,RECOVERfLAG;SAVE FLAG PASSED FROM APPLICATION
  69. JSRsAVEsCREEN;SAVE APPLICATION fg IF NECESSARY (rpn DOESN'T USE bg)
  70. JSRsAVEcOLORS;SAVE APPLICATION COLORS IF NECESSARY
  71. lOADbDISPbUFFERoN,#(st_wr_fore)       ;ALLOW WRITES TO fg ONLY
  72. lOADwR0,#dRAWbOX;POINT TO GRAPHICS STRING TO DRAW rpn SCREEN
  73. JSRgRAPHICSsTRING
  74. lOADwR0,color_matrix+(da_top*40)
  75. LDAcolor_matrix+$27;pICK COLOR FROM UPPER RIGHT CARD
  76. LDX#$00
  77. 5$LDY#(da_left);fILL da WITH THIS COLOR
  78. 10$STA(R0),Y
  79. CPY#(da_left+da_width)
  80. BNE10$
  81. CPX#(da_height)
  82. BEQ20$
  83. aDDvw$28,R0
  84. BRA5$
  85. 20$lOADwR0,#iCONtABLE;POINT TO ICON DEFINITION TABLE
  86. JSRdOiCONS
  87. lOADwKEYvECTOR,kEYPRESS;sET UP KEYPRESS HANDLING ROUTINE
  88. lOADwR0,(daeND-f_entry);cLEAR ALL OF .RAMSECT AFTER geosZERO
  89. lOADwR1,f_entry
  90. JSRcLEARrAM
  91. lOADwLEFTmARGIN,#$00
  92. JSRI_mOVEdATA;sAVE aPPLICATIONS ZERO PAGE SPACE SO i CAN USE IT
  93. .WORD$0061;(ALSO geos SPACE UNDER THE fac'S)
  94. .WORDAPPZPAGE
  95. .WORD$009E
  96. JSRwELCOME;pRINT OPENING MESSAGE ON SCREEN
  97. @RTS
  98. ;jUMP TO geos MAIN LOOP
  99. @.INCLUDErpnSCREEN
  100. ;ROUTINES TO SAVE AND RESTORE APPLICATION SCREEN
  101. ;(BORROWED FROM sAMda)
  102. dRAWbOX:;GRAPHICS STRING TABLE TO CLEAR SCREEN
  103. .BYTEnewpattern,0;SET NEW PATTERN VALUE (WHITE)
  104. .BYTEmovepento;MOVE PEN TO:
  105. .WORDda_left*8;TOP LEFT CORNER OF db (IN PIXELS)
  106. .BYTEda_top*
  107. dRAWbOX:;GRAPHICS STRING TABLE TO CLEAR SCREEN
  108. .BYTEnewpattern,0;SET NEW PATTERN VALUE (WHITE)
  109. .BYTEmovepento;MOVE PEN TO:
  110. .WORDda_left*8;TOP LEFT CORNER OF db (IN PIXELS)
  111. .BYTEda_top*8
  112. .BYTErectangleto;DRAW FILLED RECTANGLE TO BOTTOM RIGHT CORNER
  113. .WORD(da_left+da_width)*8 - 1
  114. .BYTE(da_top+da_height)*8 - 1
  115. ;BOTTOM RIGHT CORNER OF db (IN PIXELS)
  116. .BYTEnewpattern,1;SET NEW PATTERN VALUE (BLACK)
  117. .BYTEframe_recto;DRAW FRAME TO...
  118. .WORDda_left*8;TOP LEFT CORNER OF db (IN PIXELS)
  119. .BYTEda_top*8
  120. .BYTEmovepento
  121. .WORD(da_left+1)*8
  122. .BYTE(da_top+2)*8
  123. .BYTEframe_recto;dATA sCREEN
  124. .WORD(da_left+12)*8-1
  125. .BYTE(da_top+da_height-2)*8
  126. .BYTElineto
  127. .WORD(da_left+12)*8-1
  128. .BYTEda_top*8
  129. .BYTEmovepento
  130. .WORD(da_left+12)*8-1
  131. .BYTE(da_top+da_height-2)*8
  132. .BYTEframe_recto;eNTRY LINE
  133. .WORD(da_left+1)*8
  134. .BYTE(da_top+da_height)*8-1
  135. .BYTEnull;eND OF GRAPHIC STRING
  136. @wELCOME:
  137. lOADwLEFTmARGIN,data_left*8+4
  138. JSRI_pUTsTRING
  139. .WORDdata_left*8+4
  140. .BYTEdata_top*8+12
  141. .BYTE26,"rpn 64",27,13,13,"BY",13,24,"rOBERT kNOP jR.",27
  142. .BYTE13,13,"fOR USEFUL INFO.,"
  143. .BYTE13,"HIT inv-eNTER",13,13
  144. .BYTE"(cLICK TO BEGIN)",0
  145. 10$cMPbiMOUSEdATA,%10000000;wAIT FOR CLICK
  146. BNE20$
  147. BRA10$
  148. 20$lOADwLEFTmARGIN,#$00
  149. JSRcLEARdATA
  150. JSRpRINTrEGS
  151. @RTS
  152. kEYPRESS:
  153. LDAKEYdATA;FIRST, CHECK IF IT IS A NUMBER
  154. CMP#'0'
  155. BCC5$;iF ascii IS < '0', GO TO NORMAL HANDLER
  156. CMP#('9'+1)
  157. BCS5$;i
  158. kEYPRESS:
  159. LDAKEYdATA;FIRST, CHECK IF IT IS A NUMBER
  160. CMP#'0'
  161. BCC5$;iF ascii IS < '0', GO TO NORMAL HANDLER
  162. CMP#('9'+1)
  163. BCS5$;iF ascii IS > '9', GO TO NORMAL HANDLER
  164. SUB#$30
  165. JSRfLASHiCON;fLASH THIS iCON
  166. STAR0l;sTICK "ICON" NUMBER IN R0l TO SIMULATE ICON SELECTION
  167. @JMPnUMBER
  168. 5$STATEMP;pUT ascii OF KEYPRESS TO TEMP
  169. LDY#$00
  170. 10$LDAKEYTABLE,Y
  171. CMPTEMP;cOMPARE KEYTABLE ENTRY TO KEY PRESSED
  172. BEQ20$;iF MATCH, JUMP TO POINTED ROUTINE
  173. CMP#$00
  174. BEQ90$;iF ZERO, THERE WAS NO MATCH
  175. INY;SET Y TO POINT TO NEXT ENTRY
  176. BRA10$;eND OF lOOP
  177. 20$INY;nUMBER OF THE ICON THIS KEY CORRESPONDS TO
  178. LDAKEYTABLE,Y
  179. STYTEMP
  180. JSRfLASHiCON;fLASH THIS iCON
  181. LDYTEMP
  182. LDAKEYTABLE,Y;PUT THE ROUTINE VECTOR TO TEMP (LB) AND TEMP2 (HB)
  183. STATEMP
  184. LDAKEYTABLE,Y
  185. STATEMP2
  186. @JMP(TEMP)
  187. ;jUMP TO APPROPRIATE ROUTINE
  188. @fLASHiCON:
  189. STAR0l
  190. lOADb
  191. @fLASHiCON:
  192. STAR0l
  193. lOADbR0h,$00
  194. LDX#R0
  195. LDY#$03
  196. JSRdsHIFTlEFT;mULTIPLY BY 8
  197. aDDvw$06,R0
  198. CLC;aDD iCONtABLE TO R0
  199. LDA#<iCONtABLE
  200. ADCR0l
  201. STAR0l
  202. LDA#>iCONtABLE
  203. ADCR0h
  204. STAR0h;nOW R0 POINTS TO lEFT
  205. LDY#$00
  206. LDA(R0),Y;lEFT IN bYTES
  207. STAR3l
  208. lOADbR3h,$00
  209. LDX#R3
  210. LDY#$03
  211. JSRdsHIFTlEFT;mULTIPLY BY 8 TO GET PIXELS
  212. LDY#$02
  213. LDA(R0),Y;wIDTH IN bYTES -- MULTIPLTY THIS BY 8 TOO
  214. STAR4l
  215. lOADbR4h,$00
  216. LDX#R4
  217. LDY#$03
  218. JSRdsHIFTlEFT
  219. aDDwR3,R4;aDD LEFT TO WIDTH -> RIGHT
  220. LDY#$01
  221. LDA(R0),Y;tOP IN sCANLINES
  222. STAR2l
  223. LDY#$03
  224. LDA(R0),Y;hEIGHT IN sCANLINES
  225. ADDR2l
  226. STAR2h;bOTTOM IN SCANLINES
  227. JSRiNVERTrECTANGLE
  228. LDX#$00
  229. LDY#$00
  230. 10$INX;cOUNT TO 16*256 AS A PAUSE
  231. CPX#$00
  232. BNE10$
  233. CPY#$10
  234. BNE10$
  235. JSRiNVERTrECTANGLE
  236. ; TABLE OF KEYS (BYTE) AND ROUTINES WHICH SHOULD BE CALLED WHEN SAID KEY IS PRESSED (WORD)
  237. @KEYTABLE:
  238. .BYTE$0D,17;rETURN
  239. .WORDeNTER
  240. ; TABLE OF KEYS (BYTE) AND ROUTINES WHICH SHOULD BE CALLED WHEN SAID KEY IS PRESSED (WORD)
  241. @KEYTABLE:
  242. .BYTE$0D,17;rETURN
  243. .WORDeNTER
  244. .BYTE".",10
  245. .WORDdECIMALpOINT
  246. .BYTE"E",11
  247. .WORDsCINOT
  248. .BYTEkey_delete,16
  249. .WORDdELETE
  250. .BYTE"+",12
  251. .WORDaDDnUMS
  252. .BYTE"-",13
  253. .WORDsUBnUMS
  254. .BYTE"*",14
  255. .WORDmULTnUMS
  256. .BYTE"/",15
  257. .WORDdIVnUMS
  258. .BYTE"^",19
  259. .WORDeXPO
  260. .BYTE"S",23
  261. .WORDsIN
  262. .BYTE"C",24
  263. .WORDcOS
  264. .BYTE"T",25
  265. .WORDtAN
  266. .BYTE"R",20;rECIPROCAL
  267. .WORDrECIP
  268. .BYTE"L",21
  269. .WORDlN
  270. .BYTE"M",26
  271. .WORDmEMIN
  272. .BYTE"V",18;"V" IS sQUARE rOOT FOR LACK OF ANYTHING BETTER
  273. .WORDsQRT
  274. .BYTEkey_f1,29;F1 IS iNVERSE
  275. .WORDiNVERSE
  276. .BYTEkey_f3,27;F3 IS sWAP
  277. .WORDsWAP
  278. .BYTEkey_f5,28;F5 IS dROP
  279. .WORDdROP
  280. .BYTEkey_f7,22;F7 IS +/-
  281. .WORDsIGNcHANGE
  282. .BYTE"Q",30
  283. .WORDqUITrpn
  284. @.BYTE0
  285. ;eND OF TABLE
  286. ;ICON DEFINITION TABLE
  287. padleft= da_left+12;LEFT EDGE OF KEYPAD
  288. ;(IN CARDS)
  289. iCONtABLE
  290. ;ICON DEFINITION TABLE
  291. padleft= da_left+12;LEFT EDGE OF KEYPAD
  292. ;(IN CARDS)
  293. iCONtABLE:
  294. .BYTE31;NUMBER OF ICONS
  295. .WORDpadleft*8;X POSITION TO PLACE MOUSE AT WHEN DONE
  296. .BYTEda_top*8;Y POSITION TO PLACE MOUSE AT WHEN DONE
  297. ; *** 
  298. @icon 0 - 0
  299. .WORDpIC0;POINTER TO COMPACTED BITMAP FOR ICON
  300. .BYTEpadleft+3;X POSITION IN BYTES
  301. .BYTE(da_top+16)*8;Y POSITION IN SCANLINES
  302. .BYTEicon0_width;WIDTH OF ICON IN BYTES
  303. .BYTEicon0_height;HEIGHT OF ICON IN SCANLINES
  304. .WORDnUMBER;POINTER TO HANDLER ROUTINE
  305. ; *** 
  306. @icon 1 - 1
  307. .WORDpIC1
  308. .BYTEpadleft+1
  309. .BYTE(da_top+14)*8
  310. .BYTEicon1_width
  311. .BYTEicon1_height
  312. .WORDnUMBER
  313. ; *** 
  314. @icon 2 - 2
  315. .WORDpIC2
  316. .BYTEpadleft+3
  317. .BYTE(da_top+14)*8
  318. .BYTEicon2_width
  319. .BYTEicon2_height
  320. .WORDnUMBER
  321. ; *** 
  322. @icon 3 - 3
  323. .WORDpIC3
  324. .BYTEpadleft+5
  325. .BYTE(da_top+14)*8
  326. .BYTEicon3_width
  327. .BYTEicon3_height
  328. .WORDnUMBER
  329. ; *** 
  330. @icon 4 - 4
  331. .WORDpIC4
  332. .BYTEpadleft+1
  333. .BYTE(da_top+12)*8
  334. .BYTEicon4_width
  335. .BYTEicon4_height
  336. .WORDnUMBER
  337. ; *** 
  338. @icon 5 - 5
  339. .WORDpIC5
  340. .BYTEpadleft+3
  341. .BYTE(da_top+12)*8
  342. .BYTEicon5_width
  343. .BYTEicon5_height
  344. .WORDnUMBER
  345. ; *** 
  346. @icon 6 - 6
  347. .WORDpIC6
  348. .BYTEpadleft+5
  349. .BYTE(da_top+12)*8
  350. .BYTEicon6_width
  351. .BYTEicon6_height
  352. .WORDnUMBER
  353. ; *** 
  354. @icon 7 -7
  355. .WORDpIC7
  356. .BYTEpadleft+1
  357. .BYTE(da_top+10)*8
  358. .BYTEicon7_width
  359. .BYTEicon7_height
  360. .WORDnUMBER
  361. ; *** 
  362. @icon 8 - 8
  363. ; *** 
  364. @icon 7 -7
  365. .WORDpIC7
  366. .BYTEpadleft+1
  367. .BYTE(da_top+10)*8
  368. .BYTEicon7_width
  369. .BYTEicon7_height
  370. .WORDnUMBER
  371. ; *** 
  372. @icon 8 - 8
  373. .WORDpIC8
  374. .BYTEpadleft+3
  375. .BYTE(da_top+10)*8
  376. .BYTEicon8_width
  377. .BYTEicon8_height
  378. .WORDnUMBER
  379. ; *** 
  380. @icon 9 - 9
  381. .WORDpIC9
  382. .BYTEpadleft+5
  383. .BYTE(da_top+10)*8
  384. .BYTEicon9_width
  385. .BYTEicon9_height
  386. .WORDnUMBER
  387. ; *** 
  388. @icon 10 - decimal point
  389. .WORDpICpOINT
  390. .BYTEpadleft+5
  391. .BYTE(da_top+16)*8
  392. .BYTEicon10_width
  393. .BYTEicon10_height
  394. .WORDdECIMALpOINT
  395. ; *** 
  396. @icon 11 - scinot
  397. .WORDpICe
  398. .BYTEpadleft+1
  399. .BYTE(da_top+16)*8
  400. .BYTEicon11_width
  401. .BYTEicon11_height
  402. .WORDsCINOT
  403. ; *** 
  404. @icon 12 - plus
  405. .WORDpICpLUS
  406. .BYTEpadleft+7
  407. .BYTE(da_top+10)*8
  408. .BYTEicon12_width
  409. .BYTEicon12_height
  410. .WORDaDDnUMS
  411. ; *** 
  412. @icon 13 - minus
  413. .WORDpICmINUS
  414. .BYTEpadleft+7
  415. .BYTE(da_top+12)*8
  416. .BYTEicon13_width
  417. .BYTEicon13_height
  418. .WORDsUBnUMS
  419. ; *** 
  420. @icon 14 - multiply
  421. .WORDpICmULT
  422. .BYTEpadleft+7
  423. .BYTE(da_top+14)*8
  424. .BYTEicon14_width
  425. .BYTEicon14_height
  426. .WORDmULTnUMS
  427. ; *** 
  428. @icon 15 - divide
  429. .WORDpICdIV
  430. .BYTEpadleft+7
  431. .BYTE(da_top+16)*8
  432. .BYTEicon15_width
  433. ; *** 
  434. @icon 15 - divide
  435. .WORDpICdIV
  436. .BYTEpadleft+7
  437. .BYTE(da_top+16)*8
  438. .BYTEicon15_width
  439. .BYTEicon15_height
  440. .WORDdIVnUMS
  441. ; *** 
  442. @icon 16 - delete
  443. .WORDpICdELETE
  444. .BYTEpadleft+9
  445. .BYTE(da_top+10)*8
  446. .BYTEicon16_width
  447. .BYTEicon16_height
  448. .WORDdELETE
  449. ; *** 
  450. @icon 17 - enter
  451. .WORDpICeNTER
  452. .BYTEpadleft+9
  453. .BYTE(da_top+12)*8
  454. .BYTEicon17_width
  455. .BYTEicon17_height
  456. .WORDeNTER
  457. ; *** 
  458. @icon 18 - sqrt
  459. .WORDpICsQRT
  460. .BYTEpadleft+1
  461. .BYTE(da_top+7)*8
  462. .BYTEicon18_width
  463. .BYTEicon18_height
  464. .WORDsQRT
  465. ; *** 
  466. @icon 19 - exponentiation
  467. .WORDpICeXPO
  468. .BYTEpadleft+3
  469. .BYTE(da_top+7)*8
  470. .BYTEicon19_width
  471. .BYTEicon19_height
  472. .WORDeXPO
  473. ; *** 
  474. @icon 20 - reciprocal
  475. .WORDpICrECIP
  476. .BYTEpadleft+5
  477. .BYTE(da_top+7)*8
  478. .BYTEicon20_width
  479. .BYTEicon20_height
  480. .WORDrECIP
  481. ; *** 
  482. @icon 21 - ln
  483. .WORDpIClN
  484. .BYTEpadleft+7
  485. .BYTE(da_top+7)*8
  486. .BYTEicon21_width
  487. .BYTEicon21_height
  488. .WORDlN
  489. ; *** 
  490. @icon 22 - sign change
  491. .WORDpICsIGNcHANGE
  492. .BYTEpadleft+9
  493. .BYTE(da_top+7)*8
  494. .BYTEicon22_width
  495. .BYTEicon22_height
  496. .WORDsIGNcHANGE
  497. ; *** 
  498. @icon 23 - sin
  499. .WORDpICsIN
  500. .BYTEpadleft+1
  501. .BYTE(da_top+5)
  502. ; *** 
  503. @icon 23 - sin
  504. .WORDpICsIN
  505. .BYTEpadleft+1
  506. .BYTE(da_top+5)*8
  507. .BYTEicon23_width
  508. .BYTEicon23_height
  509. .WORDsIN
  510. ; *** 
  511. @icon 24 - cos
  512. .WORDpICcOS
  513. .BYTEpadleft+4
  514. .BYTE(da_top+5)*8
  515. .BYTEicon24_width
  516. .BYTEicon24_height
  517. .WORDcOS
  518. ; *** 
  519. @icon 25 - tan
  520. .WORDpICtAN
  521. .BYTEpadleft+7
  522. .BYTE(da_top+5)*8
  523. .BYTEicon25_width
  524. .BYTEicon25_height
  525. .WORDtAN
  526. ; *** 
  527. @icon 26 - memin
  528. .WORDpICmEMIN
  529. .BYTEpadleft+1
  530. .BYTE(da_top+3)*8
  531. .BYTEicon26_width
  532. .BYTEicon26_height
  533. .WORDmEMIN
  534. ; *** 
  535. @icon 27 - swap
  536. .WORDpICsWAP
  537. .BYTEpadleft+4
  538. .BYTE(da_top+3)*8
  539. .BYTEicon27_width
  540. .BYTEicon27_height
  541. .WORDsWAP
  542. ; *** 
  543. @icon 28 - drop
  544. .WORDpICdROP
  545. .BYTEpadleft+7
  546. .BYTE(da_top+3)*8
  547. .BYTEicon28_width
  548. .BYTEicon28_height
  549. .WORDdROP
  550. ; *** 
  551. @icon 29 - inverse
  552. .WORDpICiNVERSE
  553. .BYTEpadleft+1
  554. .BYTE(da_top+1)*8
  555. .BYTEicon29_width
  556. .BYTEicon29_height
  557. .WORDiNVERSE
  558. ; *** 
  559. @icon 30 - quit
  560. .WORDpICqUIT
  561. .BYTEpadleft+9
  562. .BYTE(da_top+1)*8
  563. .BYTEicon30_width
  564. .BYTEicon30_height
  565. .WORDqUITrpn
  566. pIC0:;ASSEMBLER WILL PLACE COMPACTED BITMAP DATA
  567. ;HERE FOR THIS PICTURE:
  568. @icon0_w
  569. pIC0:;ASSEMBLER WILL PLACE COMPACTED BITMAP DATA
  570. ;HERE FOR THIS PICTURE:
  571. @icon0_width= PICw;STORE BITMAP SIZE VALUES FOR USE IN ABOVE
  572. icon0_height= PICh;TABLE ON PASS 2. (PICw AND PICh ARE SET BY
  573. ;THE ASSEMBLER.)
  574. pIC1:
  575. aicon1_width= PICw
  576. icon1_height= PICh
  577. pIC2:
  578. bicon2_width= PICw
  579. icon2_height= PICh
  580. pIC3:
  581. cicon3_width= PICw
  582. icon3_height= PICh
  583. pIC4:
  584. dicon4_width= PICw
  585. icon4_height= PICh
  586. pIC5:
  587. eicon5_width= PICw
  588. icon5_height= PICh
  589. pIC6:
  590. ficon6_width= PICw
  591. icon6_height= PICh
  592. pIC7:
  593. gicon7_width= PICw
  594. icon7_height= PICh
  595. pIC8:
  596. hicon8_width= PICw
  597. icon8_height= PICh
  598. pIC9:
  599. iicon9_width= PICw
  600. icon9_height= PICh
  601. pICpOINT:
  602. ^icon10_width= PICw
  603. icon10_height= PICh
  604. pICe:
  605. {$60}icon11_width= PICw
  606. icon11_height= PICh
  607. pICpLUS:
  608. jicon12_width= PICw
  609. icon12_height= PICh
  610. pICmINUS:
  611. kicon13_width= PICw
  612. icon13_height= PICh
  613. pICmULT:
  614. licon14_width= PICw
  615. pICpLUS:
  616. jicon12_width= PICw
  617. icon12_height= PICh
  618. pICmINUS:
  619. kicon13_width= PICw
  620. icon13_height= PICh
  621. pICmULT:
  622. licon14_width= PICw
  623. icon14_height= PICh
  624. pICdIV:
  625. micon15_width= PICw
  626. icon15_height= PICh
  627. pICdELETE:
  628. nicon16_width= PICw
  629. icon16_height= PICh
  630. pICeNTER:
  631. oicon17_width= PICw
  632. icon17_height= PICh
  633. pICsQRT:
  634. picon18_width= PICw
  635. icon18_height= PICh
  636. pICeXPO:
  637. ricon19_width= PICw
  638. icon19_height= PICh
  639. pICrECIP:
  640. sicon20_width= PICw
  641. icon20_height= PICh
  642. pIClN:
  643. ticon21_width= PICw
  644. icon21_height= PICh
  645. pICsIGNcHANGE:
  646. qicon22_width= PICw
  647. icon22_height= PICh
  648. pICsIN:
  649. xicon23_width= PICw
  650. icon23_height= PICh
  651. pICcOS:
  652. pICsIN:
  653. xicon23_width= PICw
  654. icon23_height= PICh
  655. pICcOS:
  656. yicon24_width= PICw
  657. icon24_height= PICh
  658. pICtAN:
  659. zicon25_width= PICw
  660. icon25_height= PICh
  661. pICmEMIN:
  662. uicon26_width= PICw
  663. icon26_height= PICh
  664. pICsWAP:
  665. \icon27_width= PICw
  666. icon27_height= PICh
  667. pICdROP:
  668. ]icon28_width= PICw
  669. icon28_height= PICh
  670. pICiNVERSE:
  671. vicon29_width= PICw
  672. icon29_height= PICh
  673. pICqUIT:
  674. _icon30_width= PICw
  675. icon30_height= PICh
  676. @icon 15 - divide
  677. .WORDpICdIV
  678. @icon 15 - divide
  679. .WORDpICdIV
  680. .BYTEpadleft+7
  681. .BYTE(da_top+16)*8
  682. .BYTEicon15_width
  683. @icon 15 - divide
  684. .WORDpICdIV
  685. .BYTEpadleft+7
  686. .BYTE(da_top+16)*8
  687. .BYTEicon15_width
  688. .BYTEicon15_height
  689. .WORDdIVnUMS
  690. ; *** 
  691. @icon 16 - delet
  692. @icon 15 - divide
  693. .WORDpICdIV
  694. .BYTEpadleft+7
  695. .BYTE(da_top+16)*8
  696. .BYTEicon15_width
  697. .BYTEicon15_height
  698. .WORDdIVnUMS
  699. ; *** 
  700. @icon 16 - delete
  701. .WORDpICdELETE
  702. .BYTEpadleft+9
  703.