mirror of
https://github.com/cc65/cc65.git
synced 2025-04-02 09:29:35 +00:00
Fixed many comments
This commit is contained in:
parent
9f5a195dc2
commit
774e275965
@ -39,7 +39,7 @@ _cputcxy:
|
||||
pla ; Restore C and run into _cputc
|
||||
|
||||
_cputc:
|
||||
cmp #$0D ; Test for \r = carrage return
|
||||
cmp #$0D ; Test for \r = carriage return
|
||||
beq left
|
||||
cmp #$0A ; Test for \n = line feed
|
||||
beq newline
|
||||
|
@ -50,7 +50,7 @@ check_device:
|
||||
lda #SIO_STAT
|
||||
sta DCOMND ; set command into DCB
|
||||
lda #%01000000 ; direction value, "receive data"
|
||||
sta DSTATS ; set data flow directon
|
||||
sta DSTATS ; set data flow direction
|
||||
lda #15
|
||||
sta DTIMLO ; value got from DOS source
|
||||
lda #4
|
||||
|
@ -23,7 +23,7 @@
|
||||
|
||||
.code
|
||||
|
||||
; set new grapics mode
|
||||
; set new graphics mode
|
||||
; gets new mode in A
|
||||
; returns handle or -1 on error
|
||||
; uses tmp1, tmp2, tmp3, tmp4 (in subroutines)
|
||||
|
@ -374,7 +374,7 @@ IRQ:
|
||||
; The touch pad is read thru the paddle potentiometers. The possible
|
||||
; 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
|
||||
; divisions by powers of two, we use the following appoximation:
|
||||
; divisions by powers of two, we use the following approximation:
|
||||
; 320/227 = 1.4096
|
||||
; 1+1/2-1/8+1/32 = 1.4062
|
||||
; For Y we subtract 1/8 of it to get in the YMax ballpark.
|
||||
@ -385,7 +385,7 @@ IRQ:
|
||||
|
||||
; X
|
||||
|
||||
ldx PADDL0 ; get X postion
|
||||
ldx PADDL0 ; get X position
|
||||
dex ; decrement, since it's 1-based
|
||||
stx XPos
|
||||
txa
|
||||
@ -445,7 +445,7 @@ IRQ:
|
||||
|
||||
; Y
|
||||
|
||||
ldx PADDL1 ; get Y postion
|
||||
ldx PADDL1 ; get Y position
|
||||
dex ; decrement, since it's 1-based
|
||||
stx YPos
|
||||
lda #228
|
||||
|
@ -33,7 +33,7 @@ done: lda ICBLL,x ; buf len lo
|
||||
lda ICBLH,x ; get buf len hi
|
||||
tax ; to X
|
||||
okdone: lda #0
|
||||
sta ___oserror ; clear system dependend error code
|
||||
sta ___oserror ; clear system dependent error code
|
||||
pla ; get buf len lo
|
||||
rts
|
||||
|
||||
|
@ -23,7 +23,7 @@
|
||||
.proc __sio_call
|
||||
|
||||
sta DCOMND ; set command into DCB
|
||||
stx DSTATS ; set data flow directon
|
||||
stx DSTATS ; set data flow direction
|
||||
jsr popax ; get buffer address
|
||||
sta DBUFLO ; set buffer address into DCB
|
||||
stx DBUFHI
|
||||
|
@ -21,7 +21,7 @@ write9:
|
||||
lda ICBLH,x ; buf len high
|
||||
tax
|
||||
lda #0
|
||||
sta ___oserror ; clear system dependend error code
|
||||
sta ___oserror ; clear system dependent error code
|
||||
pla
|
||||
rts
|
||||
|
||||
|
@ -79,7 +79,7 @@ COUNT:
|
||||
;
|
||||
|
||||
CENTER = 228 / 2
|
||||
SENSIVITY = 16
|
||||
SENSITIVITY = 16
|
||||
|
||||
READJOY:
|
||||
and #3 ; put joystick number in range, just in case
|
||||
@ -96,27 +96,27 @@ READJOY:
|
||||
; Read joystick
|
||||
|
||||
@notrg: ldy PADDL0,x ; get horizontal position
|
||||
cpy #CENTER-SENSIVITY
|
||||
cpy #CENTER-SENSITIVITY
|
||||
bcs @chkleft
|
||||
|
||||
ora #4 ; JOY_LEFT
|
||||
bne @updown
|
||||
|
||||
@chkleft:
|
||||
cpy #CENTER+SENSIVITY
|
||||
cpy #CENTER+SENSITIVITY
|
||||
bcc @updown
|
||||
|
||||
ora #8 ; JOY_RIGHT
|
||||
|
||||
@updown:ldy PADDL0+1,x ; get vertical position
|
||||
cpy #CENTER-SENSIVITY
|
||||
cpy #CENTER-SENSITIVITY
|
||||
bcs @chkdown
|
||||
|
||||
ora #1 ; JOY_UP
|
||||
bne @done
|
||||
|
||||
@chkdown:
|
||||
cpy #CENTER+SENSIVITY
|
||||
cpy #CENTER+SENSITIVITY
|
||||
bcc @done
|
||||
|
||||
ora #2 ; JOY_DOWN
|
||||
|
@ -125,11 +125,10 @@ uservec: jmp $FFFF ; Patched at runtime
|
||||
|
||||
.data
|
||||
|
||||
; Old break vector preceeded by a jump opcode
|
||||
; Old break vector preceded by a jump opcode
|
||||
brk_old:
|
||||
jmp $0000
|
||||
|
||||
; Indirect vectors preceeded by a jump opcode
|
||||
; Indirect vectors preceded by a jump opcode
|
||||
brk_ind:
|
||||
jmp $0000
|
||||
|
||||
|
@ -134,7 +134,7 @@ ParityTable:
|
||||
; 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).
|
||||
; 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
|
||||
; handler.
|
||||
|
||||
@ -296,7 +296,7 @@ SER_CLOSE:
|
||||
lda #%00001010
|
||||
sta ACIA_CMD
|
||||
|
||||
; Initalize buffers. Returns zero in a
|
||||
; Initialize buffers. Returns zero in a
|
||||
|
||||
jsr InitBuffers
|
||||
|
||||
|
@ -268,7 +268,7 @@ INIT:
|
||||
@L1: ldx #$FF
|
||||
stx BITMASK
|
||||
|
||||
; Remeber current color value
|
||||
; Remember current color value
|
||||
ldx #VDC_COLORS
|
||||
jsr VDCReadReg
|
||||
sta OLDCOLOR
|
||||
|
@ -277,7 +277,7 @@ INIT:
|
||||
@L1: ldx #$FF
|
||||
stx BITMASK
|
||||
|
||||
; Remeber current color value
|
||||
; Remember current color value
|
||||
ldx #VDC_COLORS
|
||||
jsr VDCReadReg
|
||||
sta OLDCOLOR
|
||||
|
@ -212,8 +212,8 @@ MAP:
|
||||
cmp pagecount
|
||||
bcs return_null
|
||||
sta curpage
|
||||
lda #<dummy ; load .A/.X with adress of data for COPYFROM-call (which expects the
|
||||
ldx #>dummy ; adress in .A/.X)
|
||||
lda #<dummy ; load .A/.X with address of data for COPYFROM-call (which expects the
|
||||
ldx #>dummy ; address in .A/.X)
|
||||
jsr COPYFROM
|
||||
bcs return_win ; function returns pointer to window (returns always with carry set!)
|
||||
|
||||
@ -224,8 +224,8 @@ COMMIT:
|
||||
lda curpage
|
||||
cmp pagecount
|
||||
bcs return
|
||||
lda #<dummy ; load .A/.X with adress of data for COPYTO-call (which expects the
|
||||
ldx #>dummy ; adress in .A/.X)
|
||||
lda #<dummy ; load .A/.X with address of data for COPYTO-call (which expects the
|
||||
ldx #>dummy ; address in .A/.X)
|
||||
|
||||
;----------------------------------------------------------------------------------------
|
||||
;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
|
||||
;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
|
||||
ldy #0 ;index 0
|
||||
|
||||
@ -347,7 +347,7 @@ get_struct_data:
|
||||
lsr
|
||||
lsr ;shift into bits 3 and 4
|
||||
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 ;skip unused byte
|
||||
lda (aux),y ;read length lo-byte
|
||||
@ -357,7 +357,7 @@ get_struct_data:
|
||||
iny
|
||||
lda (aux),y ;length hi-byte
|
||||
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
|
||||
;55 bytes
|
||||
|
||||
|
@ -102,7 +102,7 @@ readadapter:
|
||||
lda #%00010001
|
||||
sta $dd0e ; control register a
|
||||
; timer: start
|
||||
; continous
|
||||
; continuous
|
||||
; forced load
|
||||
; serial port: input
|
||||
|
||||
@ -110,7 +110,7 @@ readadapter:
|
||||
lda #%01010001
|
||||
sta $dc0e ; control register a
|
||||
; timer: start
|
||||
; continous
|
||||
; continuous
|
||||
; forced load
|
||||
; serial port: output
|
||||
|
||||
|
@ -270,7 +270,7 @@ SER_CLOSE:
|
||||
lda #%00001010
|
||||
sta ACIA_CMD
|
||||
|
||||
; Initalize buffers. Returns zero in a
|
||||
; Initialize buffers. Returns zero in a
|
||||
|
||||
jsr InitBuffers
|
||||
|
||||
|
@ -24,7 +24,7 @@
|
||||
; /* the kernal routine BASIN sets ST to EOF if the end of file
|
||||
; ** is reached the first time, then we have store tmp.
|
||||
; ** 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;
|
||||
;
|
||||
|
@ -89,7 +89,7 @@ int __fastcall__ exec (const char* progname, const char* cmdline)
|
||||
}
|
||||
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) {
|
||||
/* Don't try to run a program that can't be found. */
|
||||
fd = open (progname, O_RDONLY);
|
||||
|
@ -54,7 +54,7 @@ next: inx
|
||||
|
||||
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
|
||||
; good indication of its existence ;-)
|
||||
|
||||
|
@ -2,7 +2,7 @@
|
||||
; Ullrich von Bassewitz, 2010-11-13
|
||||
;
|
||||
; 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.
|
||||
;
|
||||
|
||||
|
||||
|
@ -117,7 +117,7 @@ READ: ldx #$0F ; Switch to the system bank
|
||||
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
|
||||
lda tmp1
|
||||
|
@ -7,7 +7,7 @@
|
||||
;
|
||||
; See "LICENSE" file for legal information.
|
||||
;
|
||||
; Character specification table, matching serveral consoles.
|
||||
; Character specification table, matching several consoles.
|
||||
;
|
||||
|
||||
.include "ctypetable.inc"
|
||||
|
@ -423,10 +423,10 @@ finish_calc:
|
||||
jsr tosaddeax ; Simple addition there
|
||||
|
||||
; No need to store/load/push the counter here, simply to push it
|
||||
; for the last substraction
|
||||
; for the last subtraction
|
||||
jsr pusheax
|
||||
|
||||
; Substract timezone
|
||||
; Subtract timezone
|
||||
lda __tz+1+3
|
||||
sta sreg+1
|
||||
lda __tz+1+2
|
||||
|
@ -110,7 +110,7 @@ _realloc:
|
||||
|
||||
tya ; Put ___heapptr back in A
|
||||
sec ; Check if we have enough memory at heap top
|
||||
sbc oldsize ; Substract oldsize
|
||||
sbc oldsize ; Subtract oldsize
|
||||
sta newblock
|
||||
lda ___heapptr+1
|
||||
sbc oldsize+1
|
||||
|
@ -2,7 +2,7 @@
|
||||
; Ullrich von Bassewitz, 31.05.1998
|
||||
;
|
||||
; 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!
|
||||
;
|
||||
; size_t __fastcall__ strlen (const char* s);
|
||||
|
@ -30,7 +30,7 @@ _vsprintf:
|
||||
ldy #2
|
||||
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
|
||||
|
||||
jmp vsnprintf
|
||||
|
@ -56,7 +56,7 @@ next: inx
|
||||
|
||||
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
|
||||
; good indication of its existence. ;-)
|
||||
|
||||
|
@ -91,7 +91,7 @@ Y2 := ptr4
|
||||
|
||||
.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.
|
||||
; 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
|
||||
; drivers should return something reasonable here, even drivers that don't
|
||||
; 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)
|
||||
|
||||
|
@ -89,7 +89,7 @@ TEMP3 = sreg ; HORLINE
|
||||
|
||||
.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.
|
||||
; 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
|
||||
; drivers should return something reasonable here, even drivers that don't
|
||||
; 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)
|
||||
|
||||
|
@ -6,7 +6,7 @@
|
||||
;
|
||||
; 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
|
||||
|
@ -1,7 +1,7 @@
|
||||
;
|
||||
; 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
|
||||
|
@ -1,5 +1,5 @@
|
||||
;
|
||||
;GeosConst - various system constans sorted by function
|
||||
;GeosConst - various system constants sorted by function
|
||||
;reassembled by Maciej 'YTM/Elysium' Witkowiak
|
||||
;4-2-99, 18-3-99
|
||||
|
||||
|
@ -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_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.
|
||||
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.
|
||||
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 ...
|
||||
@ -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 ...
|
||||
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 ...
|
||||
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 ...
|
||||
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.
|
||||
@ -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 ...
|
||||
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 ...
|
||||
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.
|
||||
grirq $d019 $d019 n/a Byte Graphics chip interrupt 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 ...
|
||||
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 ...
|
||||
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.
|
||||
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.
|
||||
@ -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.
|
||||
nationality $c010 $c010 $e00d Byte Byte to hold nationality of Kernal.
|
||||
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.
|
||||
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.
|
||||
@ -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.
|
||||
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.
|
||||
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.
|
||||
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 ...
|
||||
@ -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 ...
|
||||
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 ...
|
||||
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 ...
|
||||
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 ...
|
||||
@ -353,8 +353,8 @@ i_Rectangle $c19f $c19f $fe3c Inline Rectangle.
|
||||
ImprintLine n/a n/a $ff8f Imprint horizontal line to background buffer.
|
||||
ImprintRectangle $c250 $c250 $fe4e Imprint rectangular area to background buffer.
|
||||
InfoCard n/a n/a $670f Get I/O card attributes.
|
||||
InitCard n/a n/a $6700 Intialize I/O card.
|
||||
InitForDialog n/a n/a $ff4a Internal pre-dialog box intialization.
|
||||
InitCard n/a n/a $6700 Initialize I/O card.
|
||||
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.
|
||||
InitForPrint $7900 $7900 $6000 Initialize printer (once per document).
|
||||
InitMouse $fe80 $fe80 $f000 Initialize input device.
|
||||
|
@ -16,7 +16,7 @@
|
||||
sta ID ; Tape record ID to P1L
|
||||
jsr LOADT ; Read data from tape
|
||||
bcs error
|
||||
jmp return0 ; Return 0 if sucessful
|
||||
jmp return0 ; Return 0 if successful
|
||||
error: jmp return1 ; or 1 if not
|
||||
|
||||
.endproc
|
||||
@ -33,7 +33,7 @@ error: jmp return1 ; or 1 if not
|
||||
ldx #$00
|
||||
jsr DUMPT ; Write data to tape
|
||||
bcs error
|
||||
jmp return0 ; Return 0 if sucessful
|
||||
jmp return0 ; Return 0 if successful
|
||||
error: jmp return1 ; or 1 if not
|
||||
|
||||
.endproc
|
||||
|
@ -15,7 +15,7 @@
|
||||
.segment "BOOTLDR"
|
||||
;**********************************
|
||||
; 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.
|
||||
;**********************************
|
||||
; EXE = $fb68
|
||||
|
@ -40,7 +40,7 @@ EE_C_WRITE = $14
|
||||
EE_C_READ = $18
|
||||
EE_C_ERASE = $1C
|
||||
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_EWDS2 = $00
|
||||
|
||||
|
@ -41,7 +41,7 @@ EE_C_WRITE = $14
|
||||
EE_C_READ = $18
|
||||
EE_C_ERASE = $1C
|
||||
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_EWDS2 = $00
|
||||
|
||||
|
@ -43,7 +43,7 @@ libref: .addr $0000 ; Library reference
|
||||
; 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
|
||||
; 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 UNINSTALL
|
||||
@ -258,7 +258,7 @@ GETERROR:
|
||||
;
|
||||
; 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
|
||||
; 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)
|
||||
;
|
||||
; To do a flip-screen call tgi_ioctl(1, 0)
|
||||
|
@ -68,7 +68,7 @@
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
; Flush PPU-Memory write buffer
|
||||
; called from vblank interupt
|
||||
; called from vblank interrupt
|
||||
|
||||
.proc ppubuf_flush
|
||||
|
||||
|
@ -3,9 +3,9 @@
|
||||
|
||||
.export _pce_font
|
||||
|
||||
; The character tiles use only two colors from each pallette. Color zero
|
||||
; comes from pallette zero; color one is different in each pallette. The
|
||||
; color of a character is set by choosing one of the 16 pallettes.
|
||||
; The character tiles use only two colors from each palette. Color zero
|
||||
; comes from palette zero; color one is different in each palette. The
|
||||
; color of a character is set by choosing one of the 16 palettes.
|
||||
|
||||
.rodata
|
||||
|
||||
|
@ -22,14 +22,14 @@ unsigned int __fastcall__ cbm_load (const char* name, unsigned char device, void
|
||||
unsigned int size = 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;
|
||||
}
|
||||
|
||||
/* Get the file's load address. */
|
||||
if (cbm_read (1, &load, sizeof load) != sizeof load) {
|
||||
/* 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);
|
||||
return 0;
|
||||
|
@ -12,7 +12,7 @@
|
||||
;
|
||||
; 2. Reentrancy. The condes routines must use self modyfiying code, which
|
||||
; 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
|
||||
; has a size and performance penalty.
|
||||
;
|
||||
|
@ -39,7 +39,7 @@ poplsargs:
|
||||
adc #$00
|
||||
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
|
||||
bpl L2 ; Jump if not
|
||||
|
||||
|
@ -22,7 +22,7 @@ tosudiv0ax:
|
||||
.endif
|
||||
|
||||
tosudiveax:
|
||||
jsr getlop ; Get the paramameters
|
||||
jsr getlop ; Get the parameters
|
||||
jsr udiv32 ; Do the division
|
||||
lda ptr1 ; Result is in ptr1:sreg
|
||||
ldx ptr1+1
|
||||
|
@ -22,7 +22,7 @@ tosumod0ax:
|
||||
.endif
|
||||
|
||||
tosumodeax:
|
||||
jsr getlop ; Get the paramameters
|
||||
jsr getlop ; Get the parameters
|
||||
jsr udiv32 ; Do the division
|
||||
lda tmp3 ; Remainder is in ptr2:tmp3:tmp4
|
||||
sta sreg
|
||||
|
@ -22,7 +22,7 @@
|
||||
.elseif (.cpu .bitand ::CPU_ISET_6502)
|
||||
.byte 0
|
||||
.else
|
||||
.error Unknow CPU type.
|
||||
.error Unknown CPU type.
|
||||
.endif
|
||||
.byte sp ; sp address
|
||||
.addr __MAIN_START__ ; load address
|
||||
|
@ -21,7 +21,7 @@
|
||||
ldy #$80
|
||||
jsr LOADT ; Read data from tape
|
||||
bcs error
|
||||
jmp return0 ; Return 0 if sucessful
|
||||
jmp return0 ; Return 0 if successful
|
||||
error: jmp return1 ; or 1 if not
|
||||
|
||||
.endproc
|
||||
@ -40,7 +40,7 @@ error: jmp return1 ; or 1 if not
|
||||
ldy #$80
|
||||
jsr DUMPT ; Write data to tape
|
||||
bcs error
|
||||
jmp return0 ; Return 0 if sucessful
|
||||
jmp return0 ; Return 0 if successful
|
||||
error: jmp return1 ; or 1 if not
|
||||
|
||||
.endproc
|
||||
|
@ -65,7 +65,7 @@ L2: ldy #0
|
||||
cpx #$0A ; check for \n
|
||||
bne L3
|
||||
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
|
||||
|
||||
|
||||
|
@ -188,7 +188,7 @@ tgi_clip_sign: .res 1
|
||||
ldx tgi_clip_dx+1
|
||||
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
|
||||
jmi negax
|
||||
@ -228,7 +228,7 @@ done: bit tmp1
|
||||
ldx tgi_clip_dy+1
|
||||
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
|
||||
|
||||
@ -279,7 +279,7 @@ L1: lda tgi_clip_o1
|
||||
|
||||
; 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
|
||||
inc tgi_clip_d
|
||||
jsr calcdeltas
|
||||
|
@ -63,7 +63,7 @@
|
||||
lda #<$100
|
||||
ldx #>$100
|
||||
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
|
||||
jmp _tgi_settextstyle ; A = Font = TGI_FONT_BITMAP
|
||||
|
||||
|
@ -82,7 +82,7 @@ COUNT:
|
||||
|
||||
; ------------------------------------------------------------------------
|
||||
; 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
|
||||
|
||||
READ: lda #$7F ; mask for VIA2 JOYBIT: sw3
|
||||
|
Loading…
x
Reference in New Issue
Block a user