Changed literal zeroes of the style "#>0" into the style "#>$0000".

This commit is contained in:
Greg King
2014-09-10 19:15:07 -04:00
parent e702832e80
commit 74c2415795
16 changed files with 75 additions and 69 deletions

View File

@@ -3,7 +3,7 @@
; 2003-03-07, Ullrich von Bassewitz,
; based on code from Stefan A. Haubenthal, <polluks@web.de>
; 2005-02-26, Ullrich von Bassewitz
; 2014-04-02, Greg King
; 2014-09-10, Greg King
;
; Scan a group of arguments that are in BASIC's input-buffer.
; Build an array that points to the beginning of each argument.
@@ -106,7 +106,7 @@ setterm:sta term ; Set end-of-argument marker
txa ; Get low byte
add #<BASIC_BUF
sta argv,y ; argv[y]= &arg
lda #>0
lda #>$0000
adc #>BASIC_BUF
sta argv+1,y
iny
@@ -125,7 +125,7 @@ argloop:lda BASIC_BUF,x
; A contains the terminating character. To make the argument a valid C string,
; replace the terminating character by a zero.
;
lda #0
lda #$00
sta BASIC_BUF-1,x
; Check if the maximum number of command-line arguments is reached. If not,
@@ -153,4 +153,4 @@ name: .res NAME_LEN + 1
.data
argv: .addr name
.res MAXARGS * 2, 0
.res MAXARGS * 2, $00

View File

@@ -3,7 +3,7 @@
;
; This driver reads only the main button on the 184-C.
;
; 2013-09-05, Greg King
; 2014-09-10, Greg King
;
.include "zeropage.inc"
@@ -103,6 +103,8 @@ OldPenY: .res 1
; Default Inkwell calibration.
; The first number is the width of the left border;
; the second number is the actual calibration value.
; See a comment below (at "Calculate the new X co-ordinate")
; for the reason for the third number.
XOffset: .byte (24 + 24) / 2 ; x-offset
@@ -280,7 +282,7 @@ BUTTONS:
asl a ; ... to fire-button bit
eor #MOUSE_BTN_LEFT
and #MOUSE_BTN_LEFT
ldx #>0
ldx #>$0000
rts
;----------------------------------------------------------------------------
@@ -362,7 +364,7 @@ IRQ: jsr CPREP
sub #50
tay ; Remember low byte
ldx #>0
ldx #>$0000
; Limit the Y co-ordinate to the bounding box.
@@ -408,7 +410,7 @@ IRQ: jsr CPREP
asl a
tay ; Remember low byte
lda #>0
lda #>$0000
rol a
tax ; Remember high byte

View File

@@ -2,7 +2,7 @@
; Driver for a "joystick mouse".
;
; 2009-09-26, Ullrich von Bassewitz
; 2013-09-05, Greg King
; 2014-09-10, Greg King
;
.include "zeropage.inc"
@@ -266,7 +266,7 @@ BUTTONS:
; Bits go up when buttons go down.
eor #MOUSE_BTN_LEFT | MOUSE_BTN_RIGHT
ldx #>0
ldx #>$0000
rts
;----------------------------------------------------------------------------
@@ -358,11 +358,11 @@ IRQ: jsr CPREP
and #JOY::RIGHT << 4 ; Check RIGHT bit
bnz @Right
lda #<-1
lda #<-$0001
tax
bnz @AddX ; Branch always
@Right: lda #<1
ldx #>1
@Right: lda #<$0001
ldx #>$0001
; Calculate the new x co-ordinate (--> .YA).
@@ -401,11 +401,11 @@ IRQ: jsr CPREP
and #JOY::UP << 4 ; Check UP bit
bze @Down
lda #<-1
lda #<-$0001
tax
bnz @AddY
@Down: lda #<1
ldx #>1
@Down: lda #<$0001
ldx #>$0001
; Calculate the new y co-ordinate (--> .YA).