home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / c64 / programming / Final Cartridge III software.sfx / requesterdem.asm (.txt) < prev    next >
Encoding:
Commodore BASIC  |  1994-08-11  |  2.4 KB  |  119 lines
  1. 1000 ; requesterdemo  date: 10-03-88
  2. 1010 ;---------------------------------
  3. 1020 ;
  4. 1030 ; the final cartridge iii desktop
  5. 1040 ;
  6. 1050 ;     riska h&p, marc derksen
  7. 1060 ;
  8. 1070 ;     p r o j e c t   d e m o
  9. 1080 ;
  10. 1090 ;---------------------------------
  11. 1100 ;
  12. 1110 *=$0be1,$0801
  13. 1120 gosub=$de05  ; system constants
  14. 1130 ;
  15. 1140 ;------ basic startup data -----
  16. 1150 wor $0817,1987  ; line number
  17. 1160 byt $9e  ; basic sys-code
  18. 1170 byt "2076 desk[164]p v1.0",0,0,0
  19. 1180 byt 1,0  ; version
  20. 1190 byt 2  ; size in blocks
  21. 1200 jmp $dfe8  ; startup
  22. 1210 byt 0  ; unused
  23. 1220 ;
  24. 1230 mn3=$c074
  25. 1240 mn3it1=$c0c2
  26. 1250 mn3it2=$c0ca
  27. 1260 ;------ main ------------------
  28. 1270 start jsr survive
  29. 1280 ldx #<item2  ; set new menu
  30. 1290 ldy #>item2
  31. 1300 stx mn3it1
  32. 1310 sty mn3it1+1
  33. 1320 lda #32+1  ; 4 menuitems
  34. 1330 sta mn3+7
  35. 1340 rts
  36. 1350 ;
  37. 1360 ;------ menuitem structure ---
  38. 1370 item2 wor item3  ; nextitem
  39. 1380 wor it2txt  ; item name
  40. 1390 wor opensrq  ; item exec
  41. 1400 byt 1,0  ; enable item
  42. 1410 item3 wor item4
  43. 1420 wor it3txt
  44. 1430 wor openlrq
  45. 1440 byt 1,0
  46. 1450 item4 wor 0  ; no nextitem
  47. 1460 wor it4txt
  48. 1470 wor unlink
  49. 1480 byt 1,0
  50. 1490 ;
  51. 1500 it2txt byt "[211][205][193][204][204][160][210][197][209]",0
  52. 1510 it3txt byt "[204][193][210][199][197][160][210][197][209]",0
  53. 1520 it4txt byt "[213][206][204][201][206][203]",0
  54. 1530 ;
  55. 1540 ;------ small requester ------
  56. 1550 opensrq ldx #<sreq  ; call openreq
  57. 1560 ldy #>sreq
  58. 1570 lda #requester
  59. 1580 jsr gosub
  60. 1581 txa  ; text x-reg
  61. 1582 bne rgad
  62. 1583 lda #5  ; left gadget selected
  63. 1584 bne color
  64. 1585 rgad lda #2  ; right gadget
  65. 1586 color sta $d020
  66. 1587 rts
  67. 1590 ;
  68. 1600 sreq wor srtext  ; multiple text
  69. 1610 wor $ffff  ; default text
  70. 1620 wor stext  ; right gadget text
  71. 1630 wor 0  ; no image
  72. 1640 ;
  73. 1650 stext byt "[211][207][210][210][217][160]!",0
  74. 1660 srtext byt 37,14,1
  75. 1670 byt "[212]his is a demo of a",0
  76. 1680 byt 24,26,$82
  77. 1690 byt "[211][205][193][204][204][160][210][197][209][213][197][211][212][197][210]",0,0
  78. 1700 ;
  79. 1710 ;------ large requester ------
  80. 1720 openlrq  ldx #<lreq
  81. 1730 ldy #>lreq
  82. 1740 lda #requester2
  83. 1750 jmp gosub
  84. 1760 ;
  85. 1770 lreq wor lrtext  ; multiple text
  86. 1780 wor 0  ; no gadget
  87. 1790 wor ltext  ; right gadget text
  88. 1800 wor 0  ; no image
  89. 1810 ;
  90. 1820 ltext byt "[195][207][206][212][201][206][213][197]",0
  91. 1830 lrtext byt 58,20,1
  92. 1840 byt "[212]his is a demo of a",0
  93. 1850 byt 10,40,$e1,"[204][204][193][193][210][210][199][199][197][197]  "
  94. 1860 byt "[210][210][197][197][209][209][213][213][197][197][211][211][212][212][197][197][210][210]",0,0
  95. 1870 ;
  96. 1880 ;------ unlink ---------------
  97. 1890 unlink ldx #<mn3it2  ; remove mn
  98. 1900 ldy #>mn3it2
  99. 1910 stx mn3it1
  100. 1920 sty mn3it1+1
  101. 1930 lda #24+1  ; 3 menuitems
  102. 1940 sta mn3+7
  103. 1950 inc $8004  ; remove  survive
  104. 1960 rts
  105. 1970 ;
  106. 1980 ;------ reset survive --------
  107. 1990 survive ldx #6-1
  108. 2000 slp lda tabel,x
  109. 2010 sta $8000,x
  110. 2020 dex
  111. 2030 bpl slp
  112. 2040 rts
  113. 2050 tabel wor start+3
  114. 2060 byt "mg87"
  115. 2070 ;
  116. 2080 ;------ includes -------------
  117. 2090 requester=73
  118. 2100 requester2=74
  119.