home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / QV_MAIN (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  4.0 KB  |  220 lines
  1. qv_main
  2. prg FORMATTED geos FILE v1.0
  3. cope sOURCE v1.1
  4. cope eDITOR v1.2
  5. uNTITLED
  6. @!@2@6@<@j@x@G@T@{$7c}@
  7. ; ===
  8. ; sOURCE FOR qUICKvIEW
  9. ;  by bill sharp
  10. start
  11.  jsr oPENdISK
  12.  LDA CURdRIVE
  13.  STA HOMEdRIVE
  14.  JSR vector1
  15. ;------
  16.  jsr $c18a; MOUSEUP
  17.  jsr cLR_sCREEN
  18. LOADW r0:icons
  19.  jsr $c15a; DO icons
  20.  JSR dOsCREEN
  21. ; icon routine
  22. icons
  23. .byte 3
  24. .word 16
  25. .byte 175
  26. .word iCDT
  27. .byte 34,184,6,15
  28. .word quit2 ; code
  29. .word iCDT
  30. .byte 0,184,6,15
  31. .word sCREENpRINT; eXECUTE THE PRINT TO SCREEN FUNCTION.
  32. .word iCDT
  33. .byte 17,184,6,15
  34. .word pAUSE
  35. .byte 128+90
  36. .bYTE 255,255,255,255,255,254
  37. .bYTE 128,0,0,0,0,3
  38. .bYTE 128,0,0,0,0,3
  39. .bYTE 128,0,0,0,0,3
  40. .bYTE 128,0,0,0,0,3
  41. .bYTE 128,0,0,0,0,3
  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 255,255,255,255,255,255
  50. .bYTE 127,255,255,255,255,255
  51. ;==  end of menu tables
  52. vector1
  53. LDA #24
  54. STA sob
  55. STA cbp
  56. LDA #25
  57. STA eob
  58. ldx #$40
  59. stx sob+1
  60. stx cbp+1
  61. stx eob+1
  62.  LDA #13
  63.  STA (cbp),Y
  64.  LDA #$0c
  65.  STA (eob),y
  66.  LOADW $84a9:opv
  67. quit2
  68.  LDA HOMEdRIVE; RETURN TO HOME DRIVE.
  69.  JSR cHANGEdRIVE1
  70. jmp eNTERdESKtOP
  71. cLR_sCREEN
  72.  LDA #0
  73.  JSR sETpATTERN
  74.  JSR I_rECTANGLE
  75.  .bYTE 0,199
  76.  .wORD 0,319
  77. ;=====
  78. dOsCREEN
  79.  JSR I_pUTsTRING
  80.  .wORD 07
  81.  .bYTE 193
  82.  .bYTE bold,'select',0
  83.  JSR I_pUTsTRING
  84.  .wORD 08+8*17
  85.  .bYTE 193
  86.  .bYTE bold,'pause',0
  87.  JSR I_pUTsTRING
  88.  .wORD 15+34*8
  89.  .bYTE 193
  90.  .bYTE bold,'exit',0
  91.  JSR I_pUTsTRING
  92.  .wORD 50
  93.  .bYTE 20
  94.  .bYTE bold,'tHIS IS ANOTHER pUBLIC dOMAIN',0
  95.  JSR I_pUTsTRING
  96.  .wORD 50
  97.  .bYTE 35
  98.  .bYTE 'PROGRAM DEVELOPED BY THE',0
  99.  JSR I_pUTsTRING
  100.  .wORD 30
  101.  .bYTE 55
  102.  .bYTE bold,26,'tECHuNIT OF bILL sHARP cOMPUTING',plain,0
  103.  JSR I_pUTsTRING
  104.  .wORD 50
  105.  .bYTE 95
  106.  .bYTE bold,'sOURCE CODE DISK IS AVAILABLE IN',0
  107.  JSR I_pUTsTRING
  108.  .wORD 50
  109.  .bYTE 110
  110.  .bYTE 'GEOcope FORMAT FOR ONLY $5.00 FROM:',0
  111.  JSR I_pUTsTRING
  112.  .wORD 50
  113.  .bYTE 130
  114.  .bYTE 'bILL sHARP cOMPUTING',0
  115.  JSR I_pUTsTRING
  116.  .wORD 50
  117.  .bYTE 140
  118.  .bYTE 'p.o. bOX 7533',0
  119.  JSR I_pUTsTRING
  120.  .wORD 50
  121.  .bYTE 150
  122.  .bYTE 'wACO, tx 76714',plain,0
  123. ;-----
  124. sCREENpRINT
  125. ; tHIS ROUTINE IS THE CONTROLLING ROUTINES FOR
  126. ; PRINTING TO THE SCREEN
  127. ; CALLED FROM icon BEING CLICKED 'ON'.
  128. ;------
  129.  LDA #0
  130.  JSR cVcRD
  131.  lda #128
  132.  STA $2f; DISPLAYbUFFER
  133.  jsr load
  134.  LDA cANCELfLAG
  135.  CMP #2
  136.  BEQ @EXIT
  137.  JSR cVcRD1
  138.  JSR opv
  139.  LDA pAUSEbYTE
  140.  BNE @spA
  141.  LDA eXITbYTE
  142.  BNE @EXIT
  143.   JSR gETbYTE      ; RETURNS NEXT AVAILABLE BYTE/ eof IS ZERO
  144.   JSR sCREENbYTE   ; PRINT BYTE TO SCREEN/ eof CLEARS BUFFER.
  145.   BNE @spA        ; sCREENbYTE eXITS WITH $ff/CONTIUNE-0/STOP
  146. ;----
  147. ; SHUT DOWN OPERATION
  148. @EXIT
  149. ;=======
  150. gETbYTE
  151.  LDY #0
  152. gIBBERISH
  153.  LDA (cbp),y
  154.  BEQ gnEXT; WAS @0gb7
  155.  CMP #cardset
  156.  BEQ @0gb3
  157.  CMP #tab
  158.  BEQ @0gb4
  159.  CMP #graph
  160.  BEQ @0gb5
  161.  CMP #ruler
  162.  BEQ @0gb6
  163.  CMP #$0c
  164.  BEQ gnEXT
  165.  @0gb7
  166.  ADDY cbp
  167. gnEXT
  168.  INC cURrECORD
  169.  JSR setupm
  170.  LDA nOrECORD
  171.  BNE @0gb2
  172.  beq gETbYTE
  173. @0gb2
  174.  LDA #0
  175. @0gb3
  176.   INY
  177.   INY
  178.   INY
  179.   LDA (cbp),y
  180.   STY y_tEMP
  181.   jsr cVcRD; CONVERT CARD BIT TO BYTE.
  182.   LDY y_tEMP
  183.   INY
  184.   BRANCH gIBBERISH
  185. y_tEMP .bYTE 0
  186. @0gb4
  187.   TYA
  188.   CLC
  189.   adc #1
  190.   TAY
  191.   BRANCH gIBBERISH
  192. @0gb5
  193.   TYA
  194.   CLC
  195.   adc #5
  196.   TAY
  197.   BRANCH gIBBERISH
  198. @0gb6
  199.   TYA
  200.   CLC
  201.   adc #27
  202.   TAY
  203.   BRANCH gIBBERISH
  204. ;-----
  205. sCREENbYTE
  206.  JSR setupa
  207.  BEQ sbEX
  208.  CMP #32
  209.  BNE @0001
  210.  LDX r11+1
  211.  BEQ @0001
  212.  LDA #13
  213.  @0001
  214.  JSR prtout
  215.  LDA #$ff
  216.  LDA #13
  217.  JSR prtout
  218.  LDA #0
  219. ;=====
  220.