home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / GEOSApps / COPEASSEMBLR.ARC / QV_MAIN (.txt) < prev    next >
GEOS ConVerT  |  2019-04-13  |  4KB  |  226 lines
  1. QV_MAIN
  2. PRG formatted GEOS file V1.0
  3. Okimate 10
  4. LADS2COPE
  5. BLASTER'S CONVERTER V2.5
  6. QV_MAIN
  7. QV_LOAD
  8. COPE Source V1.1
  9. COPE Editor V1.2
  10. Untitled
  11. @!@2@6@<@J@X@g@t@|@
  12. ; ===
  13. ; Source for QuickView
  14. ;  BY BILL SHARP
  15. START
  16.  JSR OpenDisk
  17.  lda curDrive
  18.  sta homeDrive
  19.  jsr VECTOR1
  20. ;------
  21.  JSR $C18A; mouseup
  22.  JSR Clr_Screen
  23. loadw R0:ICONS
  24.  JSR $C15A; do ICONS
  25.  jsr DoScreen
  26. ; ICON ROUTINE
  27. ICONS
  28. .BYTE 3
  29. .WORD 16
  30. .BYTE 175
  31. .WORD Icdt
  32. .BYTE 34,184,6,15
  33. .WORD QUIT2 ; CODE
  34. .WORD Icdt
  35. .BYTE 0,184,6,15
  36. .WORD ScreenPrint; Execute the print to screen function.
  37. .WORD Icdt
  38. .BYTE 17,184,6,15
  39. .WORD Pause
  40. .BYTE 128+90
  41. .Byte 255,255,255,255,255,254
  42. .Byte 128,0,0,0,0,3
  43. .Byte 128,0,0,0,0,3
  44. .Byte 128,0,0,0,0,3
  45. .Byte 128,0,0,0,0,3
  46. .Byte 128,0,0,0,0,3
  47. .Byte 128,0,0,0,0,3
  48. .Byte 128,0,0,0,0,3
  49. .Byte 128,0,0,0,0,3
  50. .Byte 128,0,0,0,0,3
  51. .Byte 128,0,0,0,0,3
  52. .Byte 128,0,0,0,0,3
  53. .Byte 128,0,0,0,0,3
  54. .Byte 255,255,255,255,255,255
  55. .Byte 127,255,255,255,255,255
  56. ;==  END OF MENU TABLES
  57. VECTOR1
  58. lda #24
  59. sta SOB
  60. sta CBP
  61. lda #25
  62. sta EOB
  63. LDX #$40
  64. STX SOB+1
  65. STX CBP+1
  66. STX EOB+1
  67.  lda #13
  68.  sta (CBP),y
  69.  lda #$0C
  70.  sta (EOB),Y
  71.  loadw $84A9:OPV
  72. QUIT2
  73.  lda homeDrive; return to home drive.
  74.  jsr ChangeDrive1
  75. JMP EnterDeskTop
  76. Clr_Screen
  77.  lda #0
  78.  jsr SetPattern
  79.  jsr i_Rectangle
  80.  .Byte 0,199
  81.  .Word 0,319
  82. ;=====
  83. DoScreen
  84.  jsr i_PutString
  85.  .Word 07
  86.  .Byte 193
  87.  .Byte BOLD,'SELECT',0
  88.  jsr i_PutString
  89.  .Word 08+8*17
  90.  .Byte 193
  91.  .Byte BOLD,'PAUSE',0
  92.  jsr i_PutString
  93.  .Word 15+34*8
  94.  .Byte 193
  95.  .Byte BOLD,'EXIT',0
  96.  jsr i_PutString
  97.  .Word 50
  98.  .Byte 20
  99.  .Byte BOLD,'This is another Public Domain',0
  100.  jsr i_PutString
  101.  .Word 50
  102.  .Byte 35
  103.  .Byte 'program developed by the',0
  104.  jsr i_PutString
  105.  .Word 30
  106.  .Byte 55
  107.  .Byte BOLD,26,'TechUnit of Bill Sharp Computing',PLAIN,0
  108.  jsr i_PutString
  109.  .Word 50
  110.  .Byte 95
  111.  .Byte BOLD,'Source code disk is available in',0
  112.  jsr i_PutString
  113.  .Word 50
  114.  .Byte 110
  115.  .Byte 'geoCOPE format for only $5.00 from:',0
  116.  jsr i_PutString
  117.  .Word 50
  118.  .Byte 130
  119.  .Byte 'Bill Sharp Computing',0
  120.  jsr i_PutString
  121.  .Word 50
  122.  .Byte 140
  123.  .Byte 'P.O. Box 7533',0
  124.  jsr i_PutString
  125.  .Word 50
  126.  .Byte 150
  127.  .Byte 'Waco, TX 76714',PLAIN,0
  128. ;-----
  129. ,3,$81,$8D,$C1,$B3,$66
  130. .Byte 3,$81,$8D,$81,$BScreenPrint
  131. ; This routine is the controlling routines for
  132. ; printing to the screen
  133. ; called from ICON being clicked 'on'.
  134. ;------
  135.  lda #0
  136.  jsr CvCrd
  137.  LDA #128
  138.  sta $2F; displayBuffer
  139.  JSR LOAD
  140.  lda CancelFlag
  141.  cmp #2
  142.  beq @exit
  143.  jsr CvCrd1
  144.  jsr OPV
  145.  lda PauseByte
  146.  bne @SPa
  147.  lda ExitByte
  148.  bne @exit
  149.   jsr GetByte      ; returns next available byte/ EOF is zero
  150.   jsr ScreenByte   ; print byte to screen/ EOF clears buffer.
  151.   bne @SPa        ; ScreenByte Exits with $FF/contiune-0/stop
  152. ;----
  153. ; shut down operation
  154. @exit
  155. ;=======
  156. GetByte
  157.  ldy #0
  158. Gibberish
  159.  lda (CBP),Y
  160.  beq GNext; was @0GB7
  161.  cmp #CARDSET
  162.  beq @0GB3
  163.  cmp #TAB
  164.  beq @0GB4
  165.  cmp #GRAPH
  166.  beq @0GB5
  167.  cmp #RULER
  168.  beq @0GB6
  169.  cmp #$0C
  170.  beq GNext
  171.  @0GB7
  172.  addy CBP
  173. GNext
  174.  inc CurRecord
  175.  jsr SETUPM
  176.  lda NoRecord
  177.  bne @0GB2
  178.  BEQ GetByte
  179. @0GB2
  180.  lda #0
  181. @0GB3
  182.   iny
  183.   iny
  184.   iny
  185.   lda (CBP),Y
  186.   sty Y_Temp
  187.   JSR CvCrd; convert card bit to byte.
  188.   ldy Y_Temp
  189.   iny
  190.   branch Gibberish
  191. Y_Temp .Byte 0
  192. @0GB4
  193.   tya
  194.   clc
  195.   ADC #1
  196.   tay
  197.   branch Gibberish
  198. @0GB5
  199.   tya
  200.   clc
  201.   ADC #5
  202.   tay
  203.   branch Gibberish
  204. @0GB6
  205.   tya
  206.   clc
  207.   ADC #27
  208.   tay
  209.   branch Gibberish
  210. ;-----
  211. ScreenByte
  212.  jsr SETUPA
  213.  beq SBex
  214.  cmp #32
  215.  bne @0001
  216.  ldx R11+1
  217.  beq @0001
  218.  lda #13
  219.  @0001
  220.  jsr PRTOUT
  221.  lda #$FF
  222.  lda #13
  223.  jsr PRTOUT
  224.  lda #0
  225. ;=====
  226.