Changed literal zeroes of the style "#>0" into the style "#>$0000".
This commit is contained in:
@@ -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
|
||||
|
||||
@@ -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
|
||||
|
||||
|
||||
@@ -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).
|
||||
|
||||
|
||||
Reference in New Issue
Block a user