1
0
mirror of https://github.com/cc65/cc65.git synced 2025-08-09 13:25:06 +00:00

Fixed many comments

This commit is contained in:
Stefan A. Haubenthal
2025-03-24 20:52:55 +01:00
parent 9f5a195dc2
commit 774e275965
50 changed files with 84 additions and 85 deletions

View File

@@ -39,7 +39,7 @@ _cputcxy:
pla ; Restore C and run into _cputc pla ; Restore C and run into _cputc
_cputc: _cputc:
cmp #$0D ; Test for \r = carrage return cmp #$0D ; Test for \r = carriage return
beq left beq left
cmp #$0A ; Test for \n = line feed cmp #$0A ; Test for \n = line feed
beq newline beq newline

View File

@@ -50,7 +50,7 @@ check_device:
lda #SIO_STAT lda #SIO_STAT
sta DCOMND ; set command into DCB sta DCOMND ; set command into DCB
lda #%01000000 ; direction value, "receive data" lda #%01000000 ; direction value, "receive data"
sta DSTATS ; set data flow directon sta DSTATS ; set data flow direction
lda #15 lda #15
sta DTIMLO ; value got from DOS source sta DTIMLO ; value got from DOS source
lda #4 lda #4

View File

@@ -23,7 +23,7 @@
.code .code
; set new grapics mode ; set new graphics mode
; gets new mode in A ; gets new mode in A
; returns handle or -1 on error ; returns handle or -1 on error
; uses tmp1, tmp2, tmp3, tmp4 (in subroutines) ; uses tmp1, tmp2, tmp3, tmp4 (in subroutines)

View File

@@ -374,7 +374,7 @@ IRQ:
; The touch pad is read thru the paddle potentiometers. The possible ; The touch pad is read thru the paddle potentiometers. The possible
; values are 1..228. Since the maximum value is less than the X ; values are 1..228. Since the maximum value is less than the X
; dimension we have to "stretch" this value. In order to use only ; dimension we have to "stretch" this value. In order to use only
; divisions by powers of two, we use the following appoximation: ; divisions by powers of two, we use the following approximation:
; 320/227 = 1.4096 ; 320/227 = 1.4096
; 1+1/2-1/8+1/32 = 1.4062 ; 1+1/2-1/8+1/32 = 1.4062
; For Y we subtract 1/8 of it to get in the YMax ballpark. ; For Y we subtract 1/8 of it to get in the YMax ballpark.
@@ -385,7 +385,7 @@ IRQ:
; X ; X
ldx PADDL0 ; get X postion ldx PADDL0 ; get X position
dex ; decrement, since it's 1-based dex ; decrement, since it's 1-based
stx XPos stx XPos
txa txa
@@ -445,7 +445,7 @@ IRQ:
; Y ; Y
ldx PADDL1 ; get Y postion ldx PADDL1 ; get Y position
dex ; decrement, since it's 1-based dex ; decrement, since it's 1-based
stx YPos stx YPos
lda #228 lda #228

View File

@@ -33,7 +33,7 @@ done: lda ICBLL,x ; buf len lo
lda ICBLH,x ; get buf len hi lda ICBLH,x ; get buf len hi
tax ; to X tax ; to X
okdone: lda #0 okdone: lda #0
sta ___oserror ; clear system dependend error code sta ___oserror ; clear system dependent error code
pla ; get buf len lo pla ; get buf len lo
rts rts

View File

@@ -23,7 +23,7 @@
.proc __sio_call .proc __sio_call
sta DCOMND ; set command into DCB sta DCOMND ; set command into DCB
stx DSTATS ; set data flow directon stx DSTATS ; set data flow direction
jsr popax ; get buffer address jsr popax ; get buffer address
sta DBUFLO ; set buffer address into DCB sta DBUFLO ; set buffer address into DCB
stx DBUFHI stx DBUFHI

View File

@@ -21,7 +21,7 @@ write9:
lda ICBLH,x ; buf len high lda ICBLH,x ; buf len high
tax tax
lda #0 lda #0
sta ___oserror ; clear system dependend error code sta ___oserror ; clear system dependent error code
pla pla
rts rts

View File

@@ -79,7 +79,7 @@ COUNT:
; ;
CENTER = 228 / 2 CENTER = 228 / 2
SENSIVITY = 16 SENSITIVITY = 16
READJOY: READJOY:
and #3 ; put joystick number in range, just in case and #3 ; put joystick number in range, just in case
@@ -96,27 +96,27 @@ READJOY:
; Read joystick ; Read joystick
@notrg: ldy PADDL0,x ; get horizontal position @notrg: ldy PADDL0,x ; get horizontal position
cpy #CENTER-SENSIVITY cpy #CENTER-SENSITIVITY
bcs @chkleft bcs @chkleft
ora #4 ; JOY_LEFT ora #4 ; JOY_LEFT
bne @updown bne @updown
@chkleft: @chkleft:
cpy #CENTER+SENSIVITY cpy #CENTER+SENSITIVITY
bcc @updown bcc @updown
ora #8 ; JOY_RIGHT ora #8 ; JOY_RIGHT
@updown:ldy PADDL0+1,x ; get vertical position @updown:ldy PADDL0+1,x ; get vertical position
cpy #CENTER-SENSIVITY cpy #CENTER-SENSITIVITY
bcs @chkdown bcs @chkdown
ora #1 ; JOY_UP ora #1 ; JOY_UP
bne @done bne @done
@chkdown: @chkdown:
cpy #CENTER+SENSIVITY cpy #CENTER+SENSITIVITY
bcc @done bcc @done
ora #2 ; JOY_DOWN ora #2 ; JOY_DOWN

View File

@@ -125,11 +125,10 @@ uservec: jmp $FFFF ; Patched at runtime
.data .data
; Old break vector preceeded by a jump opcode ; Old break vector preceded by a jump opcode
brk_old: brk_old:
jmp $0000 jmp $0000
; Indirect vectors preceeded by a jump opcode ; Indirect vectors preceded by a jump opcode
brk_ind: brk_ind:
jmp $0000 jmp $0000

View File

@@ -134,7 +134,7 @@ ParityTable:
; Interrupt stub that is copied into low RAM. The startup code uses a special ; Interrupt stub that is copied into low RAM. The startup code uses a special
; memory configuration with just kernal and I/O enabled (anything else is RAM). ; memory configuration with just kernal and I/O enabled (anything else is RAM).
; The NMI handler in ROM will switch back to a configuration where just the ; The NMI handler in ROM will switch back to a configuration where just the
; low 16K RAM are accessible. So we have to copy a smal piece of code into ; low 16K RAM are accessible. So we have to copy a small piece of code into
; low RAM that enables the cc65 configuration and then jumps to the real NMI ; low RAM that enables the cc65 configuration and then jumps to the real NMI
; handler. ; handler.
@@ -296,7 +296,7 @@ SER_CLOSE:
lda #%00001010 lda #%00001010
sta ACIA_CMD sta ACIA_CMD
; Initalize buffers. Returns zero in a ; Initialize buffers. Returns zero in a
jsr InitBuffers jsr InitBuffers

View File

@@ -268,7 +268,7 @@ INIT:
@L1: ldx #$FF @L1: ldx #$FF
stx BITMASK stx BITMASK
; Remeber current color value ; Remember current color value
ldx #VDC_COLORS ldx #VDC_COLORS
jsr VDCReadReg jsr VDCReadReg
sta OLDCOLOR sta OLDCOLOR

View File

@@ -277,7 +277,7 @@ INIT:
@L1: ldx #$FF @L1: ldx #$FF
stx BITMASK stx BITMASK
; Remeber current color value ; Remember current color value
ldx #VDC_COLORS ldx #VDC_COLORS
jsr VDCReadReg jsr VDCReadReg
sta OLDCOLOR sta OLDCOLOR

View File

@@ -212,8 +212,8 @@ MAP:
cmp pagecount cmp pagecount
bcs return_null bcs return_null
sta curpage sta curpage
lda #<dummy ; load .A/.X with adress of data for COPYFROM-call (which expects the lda #<dummy ; load .A/.X with address of data for COPYFROM-call (which expects the
ldx #>dummy ; adress in .A/.X) ldx #>dummy ; address in .A/.X)
jsr COPYFROM jsr COPYFROM
bcs return_win ; function returns pointer to window (returns always with carry set!) bcs return_win ; function returns pointer to window (returns always with carry set!)
@@ -224,8 +224,8 @@ COMMIT:
lda curpage lda curpage
cmp pagecount cmp pagecount
bcs return bcs return
lda #<dummy ; load .A/.X with adress of data for COPYTO-call (which expects the lda #<dummy ; load .A/.X with address of data for COPYTO-call (which expects the
ldx #>dummy ; adress in .A/.X) ldx #>dummy ; address in .A/.X)
;---------------------------------------------------------------------------------------- ;----------------------------------------------------------------------------------------
;void __fastcall__ em_copyto (struct em_copy *copy_data); ;void __fastcall__ em_copyto (struct em_copy *copy_data);
@@ -324,7 +324,7 @@ get_struct_data:
;read and process the values from the em_copy struct passed to as parameters rameter to the ;read and process the values from the em_copy struct passed to as parameters rameter to the
;functions em_copyto and em_copyfrom ;functions em_copyto and em_copyfrom
sta aux ;store adress of struct (passed in .A/.X) into a zp pointer sta aux ;store address of struct (passed in .A/.X) into a zp pointer
stx aux+1 stx aux+1
ldy #0 ;index 0 ldy #0 ;index 0
@@ -347,7 +347,7 @@ get_struct_data:
lsr lsr
lsr ;shift into bits 3 and 4 lsr ;shift into bits 3 and 4
ora #$23 ;set bit 5 (select ram) and 1+2 (game/exrom setting for ULTIMAX-mode) ora #$23 ;set bit 5 (select ram) and 1+2 (game/exrom setting for ULTIMAX-mode)
tax ;.X has now the value to write into $de00 to acess rr-ram at desired 16k-bank tax ;.X has now the value to write into $de00 to access rr-ram at desired 16k-bank
iny iny
iny ;skip unused byte iny ;skip unused byte
lda (aux),y ;read length lo-byte lda (aux),y ;read length lo-byte
@@ -357,7 +357,7 @@ get_struct_data:
iny iny
lda (aux),y ;length hi-byte lda (aux),y ;length hi-byte
adc c64_ram+1 adc c64_ram+1
sta len+1 ;tmp2: length, tmp3 contains end adress of transfer in c64-ram. sta len+1 ;tmp2: length, tmp3 contains end address of transfer in c64-ram.
rts rts
;55 bytes ;55 bytes

View File

@@ -102,7 +102,7 @@ readadapter:
lda #%00010001 lda #%00010001
sta $dd0e ; control register a sta $dd0e ; control register a
; timer: start ; timer: start
; continous ; continuous
; forced load ; forced load
; serial port: input ; serial port: input
@@ -110,7 +110,7 @@ readadapter:
lda #%01010001 lda #%01010001
sta $dc0e ; control register a sta $dc0e ; control register a
; timer: start ; timer: start
; continous ; continuous
; forced load ; forced load
; serial port: output ; serial port: output

View File

@@ -270,7 +270,7 @@ SER_CLOSE:
lda #%00001010 lda #%00001010
sta ACIA_CMD sta ACIA_CMD
; Initalize buffers. Returns zero in a ; Initialize buffers. Returns zero in a
jsr InitBuffers jsr InitBuffers

View File

@@ -24,7 +24,7 @@
; /* the kernal routine BASIN sets ST to EOF if the end of file ; /* the kernal routine BASIN sets ST to EOF if the end of file
; ** is reached the first time, then we have store tmp. ; ** is reached the first time, then we have store tmp.
; ** every subsequent call returns EOF and READ ERROR in ST, then ; ** every subsequent call returns EOF and READ ERROR in ST, then
; ** we have to exit the loop here immediatly. ; ** we have to exit the loop here immediately.
; */ ; */
; if (cbm_k_readst() & 0xBF) break; ; if (cbm_k_readst() & 0xBF) break;
; ;

View File

@@ -89,7 +89,7 @@ int __fastcall__ exec (const char* progname, const char* cmdline)
} }
utoa (dv, basic.unit, 10); utoa (dv, basic.unit, 10);
/* Tape files can be openned only once; skip this test for the Datasette. */ /* Tape files can be opened only once; skip this test for the Datasette. */
if (dv != 1) { if (dv != 1) {
/* Don't try to run a program that can't be found. */ /* Don't try to run a program that can't be found. */
fd = open (progname, O_RDONLY); fd = open (progname, O_RDONLY);

View File

@@ -54,7 +54,7 @@ next: inx
lda ST lda ST
; Either the Kernal calls above were successfull or there was ; Either the Kernal calls above were successful or there was
; already a cmdchannel to the device open - which is a pretty ; already a cmdchannel to the device open - which is a pretty
; good indication of its existence ;-) ; good indication of its existence ;-)

View File

@@ -2,7 +2,7 @@
; Ullrich von Bassewitz, 2010-11-13 ; Ullrich von Bassewitz, 2010-11-13
; ;
; This module supplies the load address that is expected by Commodore ; This module supplies the load address that is expected by Commodore
; machines in the first two bytes of an excutable disk file. ; machines in the first two bytes of an executable disk file.
; ;

View File

@@ -117,7 +117,7 @@ READ: ldx #$0F ; Switch to the system bank
lsr tmp1 lsr tmp1
lsr tmp1 lsr tmp1
; Mask the relavant bits, get the push button bit ; Mask the relevant bits, get the push button bit
@L2: asl a ; push button bit into carry @L2: asl a ; push button bit into carry
lda tmp1 lda tmp1

View File

@@ -7,7 +7,7 @@
; ;
; See "LICENSE" file for legal information. ; See "LICENSE" file for legal information.
; ;
; Character specification table, matching serveral consoles. ; Character specification table, matching several consoles.
; ;
.include "ctypetable.inc" .include "ctypetable.inc"

View File

@@ -423,10 +423,10 @@ finish_calc:
jsr tosaddeax ; Simple addition there jsr tosaddeax ; Simple addition there
; No need to store/load/push the counter here, simply to push it ; No need to store/load/push the counter here, simply to push it
; for the last substraction ; for the last subtraction
jsr pusheax jsr pusheax
; Substract timezone ; Subtract timezone
lda __tz+1+3 lda __tz+1+3
sta sreg+1 sta sreg+1
lda __tz+1+2 lda __tz+1+2

View File

@@ -110,7 +110,7 @@ _realloc:
tya ; Put ___heapptr back in A tya ; Put ___heapptr back in A
sec ; Check if we have enough memory at heap top sec ; Check if we have enough memory at heap top
sbc oldsize ; Substract oldsize sbc oldsize ; Subtract oldsize
sta newblock sta newblock
lda ___heapptr+1 lda ___heapptr+1
sbc oldsize+1 sbc oldsize+1

View File

@@ -2,7 +2,7 @@
; Ullrich von Bassewitz, 31.05.1998 ; Ullrich von Bassewitz, 31.05.1998
; ;
; Note: strspn & strcspn call internally this function and rely on ; Note: strspn & strcspn call internally this function and rely on
; the usage of only ptr4 here! Keep in mind when appling changes ; the usage of only ptr4 here! Keep in mind when applying changes
; and check the other implementations too! ; and check the other implementations too!
; ;
; size_t __fastcall__ strlen (const char* s); ; size_t __fastcall__ strlen (const char* s);

View File

@@ -30,7 +30,7 @@ _vsprintf:
ldy #2 ldy #2
jsr staxysp jsr staxysp
; Contine by jumping to vsnprintf, which expects ap on the CPU stack and will ; Continue by jumping to vsnprintf, which expects ap on the CPU stack and will
; cleanup the C stack ; cleanup the C stack
jmp vsnprintf jmp vsnprintf

View File

@@ -56,7 +56,7 @@ next: inx
lda STATUS lda STATUS
; Either the Kernal calls above were successfull, or there was ; Either the Kernal calls above were successful, or there was
; already a cmdchannel to the device open -- which is a pretty ; already a cmdchannel to the device open -- which is a pretty
; good indication of its existence. ;-) ; good indication of its existence. ;-)

View File

@@ -91,7 +91,7 @@ Y2 := ptr4
.bss .bss
; The colors are indicies into a TGI palette. The TGI palette is indicies into ; The colors are indices into a TGI palette. The TGI palette is indices into
; VERA's palette. Vera's palette is a table of Red, Green, and Blue levels. ; VERA's palette. Vera's palette is a table of Red, Green, and Blue levels.
; The first 16 RGB elements mimic the Commodore 64's colors. ; The first 16 RGB elements mimic the Commodore 64's colors.
@@ -267,7 +267,7 @@ GETPALETTE:
; GETDEFPALETTE: Return the default palette for the driver in .XA. All ; GETDEFPALETTE: Return the default palette for the driver in .XA. All
; drivers should return something reasonable here, even drivers that don't ; drivers should return something reasonable here, even drivers that don't
; support palettes, otherwise the caller has no way to determine the colors ; support palettes, otherwise the caller has no way to determine the colors
; of the (not changable) palette. ; of the (not changeable) palette.
; ;
; Must set an error code: NO (all drivers must have a default palette) ; Must set an error code: NO (all drivers must have a default palette)

View File

@@ -89,7 +89,7 @@ TEMP3 = sreg ; HORLINE
.bss .bss
; The colors are indicies into a TGI palette. The TGI palette is indicies into ; The colors are indices into a TGI palette. The TGI palette is indices into
; VERA's palette. Vera's palette is a table of Red, Green, and Blue levels. ; VERA's palette. Vera's palette is a table of Red, Green, and Blue levels.
; The first 16 RGB elements mimic the Commodore 64's colors. ; The first 16 RGB elements mimic the Commodore 64's colors.
@@ -404,7 +404,7 @@ GETPALETTE:
; GETDEFPALETTE: Return the default palette for the driver in .XA. All ; GETDEFPALETTE: Return the default palette for the driver in .XA. All
; drivers should return something reasonable here, even drivers that don't ; drivers should return something reasonable here, even drivers that don't
; support palettes, otherwise the caller has no way to determine the colors ; support palettes, otherwise the caller has no way to determine the colors
; of the (not changable) palette. ; of the (not changeable) palette.
; ;
; Must set an error code: NO (all drivers must have a default palette) ; Must set an error code: NO (all drivers must have a default palette)

View File

@@ -6,7 +6,7 @@
; ;
; VERA's vertical sync causes IRQs which increment the jiffy timer. ; VERA's vertical sync causes IRQs which increment the jiffy timer.
; ;
; Updated by ZeroByteOrg to use Kernal API RDTIM to retreive the TIMER variable ; Updated by ZeroByteOrg to use Kernal API RDTIM to retrieve the TIMER variable
; ;
.export _waitvsync .export _waitvsync

View File

@@ -1,7 +1,7 @@
; ;
; Ullrich von Bassewitz, 11.08.1998 ; Ullrich von Bassewitz, 11.08.1998
; ;
; char* __cdecl__ DbgMemDump (unsigend Addr, char* Buf, unsigned char Length); ; char* __cdecl__ DbgMemDump (unsigned Addr, char* Buf, unsigned char Length);
; ;
.export _DbgMemDump .export _DbgMemDump

View File

@@ -1,5 +1,5 @@
; ;
;GeosConst - various system constans sorted by function ;GeosConst - various system constants sorted by function
;reassembled by Maciej 'YTM/Elysium' Witkowiak ;reassembled by Maciej 'YTM/Elysium' Witkowiak
;4-2-99, 18-3-99 ;4-2-99, 18-3-99

View File

@@ -26,7 +26,7 @@ cardDataPntr $2c $2c $60 Word This is a pointer to the actual card graphics dat
CPU_DATA $01 n/a n/a Word Address of 6510 data register that controls the hardware memory ... CPU_DATA $01 n/a n/a Word Address of 6510 data register that controls the hardware memory ...
CPU_DDR $00 n/a n/a Byte Address of 6510 data direction register. CPU_DDR $00 n/a n/a Byte Address of 6510 data direction register.
curDevice $ba $ba n/a Byte This holds the current serial device number. curDevice $ba $ba n/a Byte This holds the current serial device number.
curDirHead $8200 $8200 $fa80 256 | 39 Bytes For CBM, it is the buffer containing header infomation ... curDirHead $8200 $8200 $fa80 256 | 39 Bytes For CBM, it is the buffer containing header information ...
curDrive $8489 $8489 $f60d Byte Holds the device number of the currently active disk drive. curDrive $8489 $8489 $f60d Byte Holds the device number of the currently active disk drive.
curEnable n/a $1300 $0951 Byte This is an image of the C64 mobenble register. curEnable n/a $1300 $0951 Byte This is an image of the C64 mobenble register.
curHeight $29 $29 $021b Byte Used to hold the card height in pixels of the current font in ... curHeight $29 $29 $021b Byte Used to hold the card height in pixels of the current font in ...
@@ -48,7 +48,7 @@ dblClickCount $8515 $8515 $0258 Byte Used to determine when an icon is double c
devTabHi n/a n/a $fae7 4 Bytes For the Apple, these are the high and low bytes of the four ... devTabHi n/a n/a $fae7 4 Bytes For the Apple, these are the high and low bytes of the four ...
devTabLo n/a n/a $faeb 4 Bytes For the Apple, these are the high and low bytes of the four ... devTabLo n/a n/a $faeb 4 Bytes For the Apple, these are the high and low bytes of the four ...
devUnitTab n/a n/a $faef 4 Bytes The ProDos unit numbers of the four possible devices are kept ... devUnitTab n/a n/a $faef 4 Bytes The ProDos unit numbers of the four possible devices are kept ...
dir2Head $8900 $8900 n/a 256 Bytes This is the 2nd directory header block used for larger cpacity ... dir2Head $8900 $8900 n/a 256 Bytes This is the 2nd directory header block used for larger capacity ...
dirBlkno n/a n/a $f620 Word Block number of the key block of the directory containing ... dirBlkno n/a n/a $f620 Word Block number of the key block of the directory containing ...
dirEntryBuf $8400 $8400 $fa59 256 | 39 Bytes Buffer used to build a file's directory entry. dirEntryBuf $8400 $8400 $fa59 256 | 39 Bytes Buffer used to build a file's directory entry.
dirPtr n/a n/a $f622 Word Pointer into diskBlkBuf for this file's entry. dirPtr n/a n/a $f622 Word Pointer into diskBlkBuf for this file's entry.
@@ -74,7 +74,7 @@ fileWritten $8498 $8498 $f61a Byte Flag indicating if a if the currently open f
firstBoot $88c5 $88c5 $0281 Byte This flag is changed from 0 to $FF when the deskTop comes up ... firstBoot $88c5 $88c5 $0281 Byte This flag is changed from 0 to $FF when the deskTop comes up ...
fontData $850c $850c n/a(?) 9 Bytes Buffer for saving the user active font table when going into ... fontData $850c $850c n/a(?) 9 Bytes Buffer for saving the user active font table when going into ...
fontTable $26 $26 n/a(?) 8 Bytes fontTable is a label for the beginning of variables for the ... fontTable $26 $26 n/a(?) 8 Bytes fontTable is a label for the beginning of variables for the ...
grcntr12 $d016 $d016 n/a Byte Graphics control reqister #2. grcntr12 $d016 $d016 n/a Byte Graphics control register #2.
grcntrl1 $d011 $d011 n/a Byte Graphics control register #1. grcntrl1 $d011 $d011 n/a Byte Graphics control register #1.
grirq $d019 $d019 n/a Byte Graphics chip interrupt register. grirq $d019 $d019 n/a Byte Graphics chip interrupt register.
grirqen $d01a $d01a n/a Byte Graphics chip interrupt enable register. grirqen $d01a $d01a n/a Byte Graphics chip interrupt enable register.
@@ -89,7 +89,7 @@ intBotVector $849f $849f $0204 Word Vector to routine to call after the operati
interleave $848c $848c n/a Byte Variable used by BlkAlloc routine as the desired interleave when ... interleave $848c $848c n/a Byte Variable used by BlkAlloc routine as the desired interleave when ...
intSource n/a n/a $02c6 Byte Byte to indicate where interrupts are coming from on the Apple. intSource n/a n/a $02c6 Byte Byte to indicate where interrupts are coming from on the Apple.
intTopVector $849d $849d $0202 Word Vector to routine to call before the operating system interrupt ... intTopVector $849d $849d $0202 Word Vector to routine to call before the operating system interrupt ...
invertBuffer n/a $1ced n/a 80 Bytes Buffer area used to speed up the 80 colunn InvertLine routine. invertBuffer n/a $1ced n/a 80 Bytes Buffer area used to speed up the 80 column InvertLine routine.
irqvec $0314 $0314 n/a Word IRQ vector. irqvec $0314 $0314 n/a Word IRQ vector.
isGEOS $848b $848b n/a Byte Flag to indicate whether the current disk is a GEOS disk. isGEOS $848b $848b n/a Byte Flag to indicate whether the current disk is a GEOS disk.
keyData $8504 $8504 $0245 Byte Holds the ASCII value of the current last key that was pressed. keyData $8504 $8504 $0245 Byte Holds the ASCII value of the current last key that was pressed.
@@ -152,7 +152,7 @@ msbxpos $d010 $d010 n/a Byte Most significant bits for x positions of sprites.
msePicPtr $31 $31 n/a Word Pointer to the mouse graphics data. msePicPtr $31 $31 n/a Word Pointer to the mouse graphics data.
nationality $c010 $c010 $e00d Byte Byte to hold nationality of Kernal. nationality $c010 $c010 $e00d Byte Byte to hold nationality of Kernal.
nmivec $0318 $0318 n/a Word NMI vector. nmivec $0318 $0318 n/a Word NMI vector.
noEraseSprites n/a n/a $0240 Byte Flag to stop routine TempHideMouse fron erasing sprites #2 ... noEraseSprites n/a n/a $0240 Byte Flag to stop routine TempHideMouse from erasing sprites #2 ...
numDrives $848d $848d $f60e Byte Set to number of drives on the system. numDrives $848d $848d $f60e Byte Set to number of drives on the system.
obj0Pointer $8ff8 $8ff8 n/a Byte Pointer to the picture data for sprite 0. obj0Pointer $8ff8 $8ff8 n/a Byte Pointer to the picture data for sprite 0.
obj1Pointer $8ff9 $8ff9 n/a Byte Pointer to the picture data for sprite 1. obj1Pointer $8ff9 $8ff9 n/a Byte Pointer to the picture data for sprite 1.
@@ -169,7 +169,7 @@ PrntDiskName $8476 $8476 n/a 18 Bytes Disk name that current printer driver is o
PrntFileName $8465 $8465 $08ac 17 | 16 Bytes Name of the current printer driver. PrntFileName $8465 $8465 $08ac 17 | 16 Bytes Name of the current printer driver.
ramBase $88c7 $88c7 n/a 4 Bytes RAM bank for each disk drive to use if the drive type is either ... ramBase $88c7 $88c7 n/a 4 Bytes RAM bank for each disk drive to use if the drive type is either ...
ramExpSize $88c3 $88c3 n/a Byte Byte for number or RAM banks available in RAM expansion unit. ramExpSize $88c3 $88c3 n/a Byte Byte for number or RAM banks available in RAM expansion unit.
random $850a $850a $024c Word Variable incremented each interrupt to generate a randon nunber. random $850a $850a $024c Word Variable incremented each interrupt to generate a randon number.
rasreg $d012 $d012 n/a Byte Raster register. rasreg $d012 $d012 n/a Byte Raster register.
RecoverVector $84b1 $84b1 $0216 Word Pointer to routine that is called to recover the background ... RecoverVector $84b1 $84b1 $0216 Word Pointer to routine that is called to recover the background ...
reqXpos0 n/a n/a $0800 Word This variable corresponds to the Commodore VIC chip register ... reqXpos0 n/a n/a $0800 Word This variable corresponds to the Commodore VIC chip register ...
@@ -193,7 +193,7 @@ shiftBuf n/a $1b45 $70 7 Bytes Buffer for shifting/doubling sprites. Located in
shiftOutBuf n/a $1b4c $78 7 Bytes Buffer for shifting/doubling/oring sprites. Located in back ... shiftOutBuf n/a $1b4c $78 7 Bytes Buffer for shifting/doubling/oring sprites. Located in back ...
sizeFlags n/a $1b53 $db1c Byte Height of sprite. sizeFlags n/a $1b53 $db1c Byte Height of sprite.
softOnes n/a $1c2d $d000 192 Bytes Buffer used for putting sprite bitmaps up on screen without ... softOnes n/a $1c2d $d000 192 Bytes Buffer used for putting sprite bitmaps up on screen without ...
softZeros n/a $1b6d $d0e0 192 Bytes Buffer used for putting sprite bitnaps up on screen without ... softZeros n/a $1b6d $d0e0 192 Bytes Buffer used for putting sprite bitmaps up on screen without ...
spr0pic $8a00 $8a00 n/a 64 Bytes This is where the graphics data for sprite 0 is kept on ... spr0pic $8a00 $8a00 n/a 64 Bytes This is where the graphics data for sprite 0 is kept on ...
spr1pic $8a40 $8a40 n/a 64 Bytes This is where the graphics data for sprite 1 is kept on ... spr1pic $8a40 $8a40 n/a 64 Bytes This is where the graphics data for sprite 1 is kept on ...
spr2pic $8a80 $8a80 n/a 64 Bytes This is where the graphics data for sprite 2 is kept on ... spr2pic $8a80 $8a80 n/a 64 Bytes This is where the graphics data for sprite 2 is kept on ...
@@ -353,8 +353,8 @@ i_Rectangle $c19f $c19f $fe3c Inline Rectangle.
ImprintLine n/a n/a $ff8f Imprint horizontal line to background buffer. ImprintLine n/a n/a $ff8f Imprint horizontal line to background buffer.
ImprintRectangle $c250 $c250 $fe4e Imprint rectangular area to background buffer. ImprintRectangle $c250 $c250 $fe4e Imprint rectangular area to background buffer.
InfoCard n/a n/a $670f Get I/O card attributes. InfoCard n/a n/a $670f Get I/O card attributes.
InitCard n/a n/a $6700 Intialize I/O card. InitCard n/a n/a $6700 Initialize I/O card.
InitForDialog n/a n/a $ff4a Internal pre-dialog box intialization. InitForDialog n/a n/a $ff4a Internal pre-dialog box initialization.
InitForIO $c25c $c25c n/a Prepare CBM system for I/O across serial bus. InitForIO $c25c $c25c n/a Prepare CBM system for I/O across serial bus.
InitForPrint $7900 $7900 $6000 Initialize printer (once per document). InitForPrint $7900 $7900 $6000 Initialize printer (once per document).
InitMouse $fe80 $fe80 $f000 Initialize input device. InitMouse $fe80 $fe80 $f000 Initialize input device.

View File

@@ -16,7 +16,7 @@
sta ID ; Tape record ID to P1L sta ID ; Tape record ID to P1L
jsr LOADT ; Read data from tape jsr LOADT ; Read data from tape
bcs error bcs error
jmp return0 ; Return 0 if sucessful jmp return0 ; Return 0 if successful
error: jmp return1 ; or 1 if not error: jmp return1 ; or 1 if not
.endproc .endproc
@@ -33,7 +33,7 @@ error: jmp return1 ; or 1 if not
ldx #$00 ldx #$00
jsr DUMPT ; Write data to tape jsr DUMPT ; Write data to tape
bcs error bcs error
jmp return0 ; Return 0 if sucessful jmp return0 ; Return 0 if successful
error: jmp return1 ; or 1 if not error: jmp return1 ; or 1 if not
.endproc .endproc

View File

@@ -15,7 +15,7 @@
.segment "BOOTLDR" .segment "BOOTLDR"
;********************************** ;**********************************
; Here is the bootloader in plaintext ; Here is the bootloader in plaintext
; The idea is to make the smalles possible encrypted loader as decryption ; The idea is to make the smallest possible encrypted loader as decryption
; is very slow. The minimum size is 49 bytes plus a zero byte. ; is very slow. The minimum size is 49 bytes plus a zero byte.
;********************************** ;**********************************
; EXE = $fb68 ; EXE = $fb68

View File

@@ -40,7 +40,7 @@ EE_C_WRITE = $14
EE_C_READ = $18 EE_C_READ = $18
EE_C_ERASE = $1C EE_C_ERASE = $1C
EE_C_EWEN = $13 EE_C_EWEN = $13
EE_C_EWEN2 = $FF ;; C0 schould be enough EE_C_EWEN2 = $FF ;; C0 should be enough
EE_C_EWDS = $10 EE_C_EWDS = $10
EE_C_EWDS2 = $00 EE_C_EWDS2 = $00

View File

@@ -41,7 +41,7 @@ EE_C_WRITE = $14
EE_C_READ = $18 EE_C_READ = $18
EE_C_ERASE = $1C EE_C_ERASE = $1C
EE_C_EWEN = $13 EE_C_EWEN = $13
EE_C_EWEN2 = $FF ;; C0 schould be enough EE_C_EWEN2 = $FF ;; C0 should be enough
EE_C_EWDS = $10 EE_C_EWDS = $10
EE_C_EWDS2 = $00 EE_C_EWDS2 = $00

View File

@@ -43,7 +43,7 @@ libref: .addr $0000 ; Library reference
; to an RTS for test versions (function not implemented). A future version may ; to an RTS for test versions (function not implemented). A future version may
; allow for emulation: In this case the vector will be zero. Emulation means ; allow for emulation: In this case the vector will be zero. Emulation means
; that the graphics kernel will emulate the function by using lower level ; that the graphics kernel will emulate the function by using lower level
; primitives - for example ploting a line by using calls to SETPIXEL. ; primitives - for example plotting a line by using calls to SETPIXEL.
.addr INSTALL .addr INSTALL
.addr UNINSTALL .addr UNINSTALL
@@ -258,7 +258,7 @@ GETERROR:
; ;
; The TGI lacks a way to draw sprites. As that functionality is vital to ; The TGI lacks a way to draw sprites. As that functionality is vital to
; Lynx games we borrow this CONTROL function to implement the still ; Lynx games we borrow this CONTROL function to implement the still
; missing tgi_draw_sprite funtion. To use this in your C-program ; missing tgi_draw_sprite function. To use this in your C-program
; do a #define tgi_draw_sprite(spr) tgi_ioctl(0, spr) ; do a #define tgi_draw_sprite(spr) tgi_ioctl(0, spr)
; ;
; To do a flip-screen call tgi_ioctl(1, 0) ; To do a flip-screen call tgi_ioctl(1, 0)

View File

@@ -68,7 +68,7 @@
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------
; Flush PPU-Memory write buffer ; Flush PPU-Memory write buffer
; called from vblank interupt ; called from vblank interrupt
.proc ppubuf_flush .proc ppubuf_flush

View File

@@ -3,9 +3,9 @@
.export _pce_font .export _pce_font
; The character tiles use only two colors from each pallette. Color zero ; The character tiles use only two colors from each palette. Color zero
; comes from pallette zero; color one is different in each pallette. The ; comes from palette zero; color one is different in each palette. The
; color of a character is set by choosing one of the 16 pallettes. ; color of a character is set by choosing one of the 16 palettes.
.rodata .rodata

View File

@@ -22,14 +22,14 @@ unsigned int __fastcall__ cbm_load (const char* name, unsigned char device, void
unsigned int size = 0; unsigned int size = 0;
if (cbm_open (1, device, CBM_READ, name) != 0) { if (cbm_open (1, device, CBM_READ, name) != 0) {
/* Can't load from a file that can't be openned. */ /* Can't load from a file that can't be opened. */
return 0; return 0;
} }
/* Get the file's load address. */ /* Get the file's load address. */
if (cbm_read (1, &load, sizeof load) != sizeof load) { if (cbm_read (1, &load, sizeof load) != sizeof load) {
/* Either the file wasn't found, or it was too short. (Note: /* Either the file wasn't found, or it was too short. (Note:
** the computer openned a file even if the drive couldn't open one.) ** the computer opened a file even if the drive couldn't open one.)
*/ */
cbm_close (1); cbm_close (1);
return 0; return 0;

View File

@@ -12,7 +12,7 @@
; ;
; 2. Reentrancy. The condes routines must use self modyfiying code, which ; 2. Reentrancy. The condes routines must use self modyfiying code, which
; means it is not reentrant. An IRQ using condes, that interrupts ; means it is not reentrant. An IRQ using condes, that interrupts
; another use of condes will cause unpredicatble behaviour. The current ; another use of condes will cause unpredictable behaviour. The current
; code avoids this by using locking mechanisms, but it's complex and ; code avoids this by using locking mechanisms, but it's complex and
; has a size and performance penalty. ; has a size and performance penalty.
; ;

View File

@@ -39,7 +39,7 @@ poplsargs:
adc #$00 adc #$00
sta sreg+1 sta sreg+1
L1: lda ptr4+1 ; Is the right operand nagative? L1: lda ptr4+1 ; Is the right operand negative?
sta tmp2 ; Remember the sign for later sta tmp2 ; Remember the sign for later
bpl L2 ; Jump if not bpl L2 ; Jump if not

View File

@@ -22,7 +22,7 @@ tosudiv0ax:
.endif .endif
tosudiveax: tosudiveax:
jsr getlop ; Get the paramameters jsr getlop ; Get the parameters
jsr udiv32 ; Do the division jsr udiv32 ; Do the division
lda ptr1 ; Result is in ptr1:sreg lda ptr1 ; Result is in ptr1:sreg
ldx ptr1+1 ldx ptr1+1

View File

@@ -22,7 +22,7 @@ tosumod0ax:
.endif .endif
tosumodeax: tosumodeax:
jsr getlop ; Get the paramameters jsr getlop ; Get the parameters
jsr udiv32 ; Do the division jsr udiv32 ; Do the division
lda tmp3 ; Remainder is in ptr2:tmp3:tmp4 lda tmp3 ; Remainder is in ptr2:tmp3:tmp4
sta sreg sta sreg

View File

@@ -22,7 +22,7 @@
.elseif (.cpu .bitand ::CPU_ISET_6502) .elseif (.cpu .bitand ::CPU_ISET_6502)
.byte 0 .byte 0
.else .else
.error Unknow CPU type. .error Unknown CPU type.
.endif .endif
.byte sp ; sp address .byte sp ; sp address
.addr __MAIN_START__ ; load address .addr __MAIN_START__ ; load address

View File

@@ -21,7 +21,7 @@
ldy #$80 ldy #$80
jsr LOADT ; Read data from tape jsr LOADT ; Read data from tape
bcs error bcs error
jmp return0 ; Return 0 if sucessful jmp return0 ; Return 0 if successful
error: jmp return1 ; or 1 if not error: jmp return1 ; or 1 if not
.endproc .endproc
@@ -40,7 +40,7 @@ error: jmp return1 ; or 1 if not
ldy #$80 ldy #$80
jsr DUMPT ; Write data to tape jsr DUMPT ; Write data to tape
bcs error bcs error
jmp return0 ; Return 0 if sucessful jmp return0 ; Return 0 if successful
error: jmp return1 ; or 1 if not error: jmp return1 ; or 1 if not
.endproc .endproc

View File

@@ -65,7 +65,7 @@ L2: ldy #0
cpx #$0A ; check for \n cpx #$0A ; check for \n
bne L3 bne L3
BRK_TELEMON XWR0 ; macro send char to screen (channel 0 in telemon terms) BRK_TELEMON XWR0 ; macro send char to screen (channel 0 in telemon terms)
lda #$0D ; return to the beggining of the line lda #$0D ; return to the beginning of the line
BRK_TELEMON XWR0 ; macro BRK_TELEMON XWR0 ; macro

View File

@@ -188,7 +188,7 @@ tgi_clip_sign: .res 1
ldx tgi_clip_dx+1 ldx tgi_clip_dx+1
jsr udiv32by16r16 jsr udiv32by16r16
; Check the sign of the final result and negate it if nessary ; Check the sign of the final result and negate it if necessary
done: bit tmp1 done: bit tmp1
jmi negax jmi negax
@@ -228,7 +228,7 @@ done: bit tmp1
ldx tgi_clip_dy+1 ldx tgi_clip_dy+1
jsr udiv32by16r16 jsr udiv32by16r16
; Check the sign of the final result and negate it if nessary ; Check the sign of the final result and negate it if necessary
jmp muldiv_dydx::done jmp muldiv_dydx::done
@@ -279,7 +279,7 @@ L1: lda tgi_clip_o1
; We must clip. If we haven't already done so, calculate dx/dy. ; We must clip. If we haven't already done so, calculate dx/dy.
L2: lda tgi_clip_d ; Deltas alreay calculated? L2: lda tgi_clip_d ; Deltas already calculated?
bne HaveDeltas ; Jump if yes bne HaveDeltas ; Jump if yes
inc tgi_clip_d inc tgi_clip_d
jsr calcdeltas jsr calcdeltas

View File

@@ -63,7 +63,7 @@
lda #<$100 lda #<$100
ldx #>$100 ldx #>$100
jsr pushax ; Width scale = 1.0 jsr pushax ; Width scale = 1.0
jsr pushax ; Heigh scale = 1.0 jsr pushax ; Height scale = 1.0
jsr pusha ; Text direction = TGI_TEXT_HORIZONTAL jsr pusha ; Text direction = TGI_TEXT_HORIZONTAL
jmp _tgi_settextstyle ; A = Font = TGI_FONT_BITMAP jmp _tgi_settextstyle ; A = Font = TGI_FONT_BITMAP

View File

@@ -82,7 +82,7 @@ COUNT:
; ------------------------------------------------------------------------ ; ------------------------------------------------------------------------
; READ: Read a particular joystick passed in A. ; READ: Read a particular joystick passed in A.
; The current implemenation will ignore the joystick number because we do only ; The current implementation will ignore the joystick number because we do only
; have one joystick ; have one joystick
READ: lda #$7F ; mask for VIA2 JOYBIT: sw3 READ: lda #$7F ; mask for VIA2 JOYBIT: sw3