CBM Funet Archive/cbm-funet-archive-2003.iso/cbm/geos/programming/CopeAssembler.lnx/QV_UTILITY

GEOS ConVerT | 1999-06-16 | 3.5 KB | 252 lines

qv_utility
prg FORMATTED geos FILE v1.0
cope sOURCE v1.1
qUICKvIEW
cope eDITOR v1.2
uNTITLED
utility
k k%k0k
; utility'S FOR qUICKvIEW
;-----*
prtout
 cmp #13
 beq @enlin
 cmp #32
 bcc @noprt
 cmp #129
 bcs @noprt
 jsr pUTcHAR
 JSR setupb
@noprt
@enlin
 JSR eXlb
 lda ypos1
 adc #10
 sta ypos1
 cmp #183-8-4
 bcc @az
 LDA #10; THIS MIGHT CHANGE
 LDX #0
 LDY #183-8+3-4
 JSR mOVEsCREEN
; jsr I_mOVEdATA
;.word $a000+320
;.word $a000
;.word 8000-640-320
 lda ypos1
 sbc #10
 sta ypos1
 BRANCH @enl
 lda #0
 sta xpos1
 sta xpos1+1
 JSR eXlbA
 jsr setupa
ypos1 .byte 10
xpos1 .wORD 0
setupa
 ldx ypos1
 stx r1+1
 ldx xpos1
 stx r11
 ldx xpos1+1
 stx r11+1
setupb
 ldx r1+1
 stx ypos1
 ldx r11
 stx xpos1
 ldx r11+1
 stx xpos1+1
;-----
cVcRD; CONVERT CARD BIT TO BYTE.
; ENTRY WITH a HOLDING BIT VALUE
 STA cVcHAR
cVcRD1
 LDA #27
 JSR pUTcHAR
 LDA cVcHAR
 BEQ @O4
 LDA cVcHAR
 and #128; SET_UNDERLINE
 BEQ  @O1
 LDA #14
 JSR pUTcHAR
 LDA cVcHAR
 and #64;SET_BOLD
 BEQ @O2
 LDA #24
 JSR pUTcHAR
 LDA cVcHAR
 and #16; iTALIC'S
 BEQ @O3
 LDA #25
 JSR pUTcHAR
 LDA cVcHAR
 and #8; oUTLINE
 BEQ @O4
 LDA #26
 JSR pUTcHAR
cVcHAR .bYTE 0
 lda #1
 sta r4+1
 lda #63
 sta r4
 lda r1+1
 sbc #7
 sta r2
 adc #10
 sta r2+1
 lda r11
 sta r3
 lda r11+1
 beq @j2
 lda r3
 cmp #64
 bcs @j1
 lda r11+1
 sta r3+1
 jsr rECTANGLE
eXlbA
 lda #1
 sta r4+1
 lda #63
 sta r4
 lda ypos1
 ADC #3
 sta r2
 LDA #183
 sta r2+1
 lda #0
 sta r3
 sta r3+1
 jsr rECTANGLE
;-----
pAUSE
 JSR setupb
 LDA pAUSEbYTE
 eor #1
 STA pAUSEbYTE
pAUSErOUTINE
 LDA #184
 STA r2
 LDA #199
 STA r2+1
 LDA #17*8
 STA r3
 LDA #23*8
 STA r4
 LDA #0
 STA r3+1
 STA r4+1
 JSR iNVERTrECTANGLE
 LDA #128
 STA $8505
 JSR setupa
;----
 LDA $8505
 bmi @pb3
 JSR setupb
 LDA #184
 STA r2
 LDA #199
 STA r2+1
 LDA #17*8
 STA r3
 LDA #23*8
 STA r4
 LDA #0
 STA r3+1
 STA r4+1
 JSR iSmSEiNrEGION
 BEQ @pb2
 JSR pAUSE
 LDA #184
 STA r2
 LDA #199
 STA r2+1
 LDA #34*8
 STA r3
 LDA #39*8+7
 STA r4
 LDA #1
 STA r3+1
 STA r4+1
 JSR iSmSEiNrEGION
 BEQ @pb3A
 JSR eXITlIST
@pb3A
 JSR setupa
pAUSEbYTE .bYTE 0
eXITbYTE .bYTE 0
;====
eXITlIST
 LDA #1
 STA eXITbYTE
 LDA #184
 STA r2
 LDA #199
 STA r2+1
 LDA #34*8
 STA r3
 LDA #39*8+7
 STA r4
 LDA #1
 STA r3+1
 STA r4+1
 JSR iNVERTrECTANGLE
 LDA #128
 STA $8505
; LOOP TO WASTE TIME
 LDA #0
 STA y_rEG
@yr_LOOP
 LDA #0
 STA x_rEG
@xr_LOOP
 DEC x_rEG
 BNE @xr_LOOP
 DEC y_rEG
 BNE @yr_LOOP
 JSR iNVERTrECTANGLE
 JSR setupa
y_rEG .bYTE 0
x_rEG .bYTE 0
mOVEsCREEN
; dest SCREEN POSITION TO MOVE TO
; source SCREEN POSITION TO MOVE FROM
; length FIRST POSITION TO MOVE UNTIL (NEVER > 199)
 STX dest
 STA source
 sty length
@blp3
 LDX dest
 JSR gETsCANlINE
 MOVEW r5:dEST
 LDX source
 JSR gETsCANlINE
 MOVEW r5:sOURCE
 LDY #0
@blp1
 LDA (sOURCE),y
 STA (dEST),y
 ADC #8
 BNE @blp1
 INC sOURCE+1
 INC dEST+1
@blp2
 LDA (sOURCE),y
 STA (dEST),y
 ADC #8
 CPY #64
 BCC @blp2
 inc dest
 inc source
 LDA source
 CMP length
 BCC @blp3
 BEQ @blp3
dest .bYTE 0
source .bYTE 0
length .bYTE 0