the10thwiz/cc65
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Renamed the old geos target to geos-cbm.

Browse Source 
git-svn-id: svn://svn.cc65.org/cc65/trunk@5343 b7a2c559-68d2-44c3-8de9-860c34a00d81
This commit is contained in:
uz
2011-12-28 17:11:21 +00:00
parent 70a3bcb0df
commit e6d74e7205
215 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

33
libsrc/geos-cbm/system/Makefile Normal file
View File

@@ -0,0 +1,33 @@
#
# Makefile for GEOS lib
# for cc65
#
#
%.o: %.s
@$(AS) -o $@ $(AFLAGS) $<
%.o: %.c
@$(CC) $(CFLAGS) $<
@$(AS) -g -o $@ $(AFLAGS) $(*).s
S_OBJS = ctype.o \
callroutine.o \
enterdesktop.o \
firstinit.o \
get_ostype.o \
getrandom.o \
getserialnumber.o \
initdoneio.o \
mainloop.o \
panic.o \
tobasic.o \
setdevice.o \
sysuname.o
C_OBJS = systime.o
all: $(C_OBJS) $(S_OBJS)
clean:
@$(RM) *.~ $(C_OBJS:.o=.s) $(C_OBJS) $(S_OBJS) core

13
libsrc/geos-cbm/system/callroutine.s Normal file
View File

@@ -0,0 +1,13 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 21.12.99
; void CallRoutine (myRoutine);
.export _CallRoutine
.include "../inc/jumptab.inc"
_CallRoutine = CallRoutine

313
libsrc/geos-cbm/system/ctype.s Normal file
View File

@@ -0,0 +1,313 @@
;
; Ullrich von Bassewitz, 02.06.1998
; Maciej Witkowiak, 06.04.2002
;
; Character specification table.
;
; The tables are readonly, put them into the rodata segment
.rodata
; Value that must be added to a lower case char to make it an upper case
; char (example: for ASCII, this must be $E0).
.export __cdiff
__cdiff:
.byte $e0
; The following 256 byte wide table specifies attributes for the isxxx type
; of functions. Doing it by a table means some overhead in space, but it
; has major advantages:
;
; * It is fast. If it were'nt for the slow parameter passing of cc65, one
; could even define macros for the isxxx functions (this is usually
; done on other platforms).
;
; * It is highly portable. The only unportable part is the table itself,
; all real code goes into the common library.
;
; * We save some code in the isxxx functions.
;
;
; Bit assignments:
;
; 0 - Lower case char
; 1 - Upper case char
; 2 - Numeric digit
; 3 - Hex digit (both, lower and upper)
; 4 - Control character
; 5 - The space character itself
; 6 - Other whitespace (that is: '\f', '\n', '\r', '\t' and '\v')
; 7 - Space or tab character
; The table is taken from Craig S. Bruce technical docs for the ACE os
.export __ctype
__ctype:
.byte $10 ; 0/00 ___rvs_@___
.byte $10 ; 1/01 ___rvs_a___
.byte $10 ; 2/02 ___rvs_b___
.byte $10 ; 3/03 ___rvs_c___
.byte $10 ; 4/04 ___rvs_d___
.byte $10 ; 5/05 ___rvs_e___
.byte $10 ; 6/06 ___rvs_f___
.byte $10 ; 7/07 _BEL/rvs_g_
.byte $10 ; 8/08 ___rvs_h___
.byte $D0 ; 9/09 _TAB/rvs_i_
.byte $50 ; 10/0a _BOL/rvs_j_
.byte $10 ; 11/0b ___rvs_k___
.byte $10 ; 12/0c ___rvs_l___
.byte $50 ; 13/0d _CR_/rvs_m_
.byte $10 ; 14/0e ___rvs_n___
.byte $10 ; 15/0f ___rvs_o___
.byte $10 ; 16/10 ___rvs_p___
.byte $50 ; 17/11 _VT_/rvs_q_
.byte $10 ; 18/12 ___rvs_r___
.byte $10 ; 19/13 ___rvs_s___
.byte $50 ; 20/14 _BS_/rvs_t_
.byte $10 ; 21/15 ___rvs_u___
.byte $10 ; 22/16 ___rvs_v___
.byte $10 ; 23/17 ___rvs_w___
.byte $10 ; 24/18 ___rvs_x___
.byte $10 ; 25/19 ___rvs_y___
.byte $10 ; 26/1a ___rvs_z___
.byte $10 ; 27/1b ___rvs_[___
.byte $10 ; 28/1c ___rvs_\___
.byte $10 ; 29/1d ___rvs_]___
.byte $10 ; 30/1e ___rvs_^___
.byte $10 ; 31/1f _rvs_under_
.byte $A0 ; 32/20 ___SPACE___
.byte $00 ; 33/21 _____!_____
.byte $00 ; 34/22 _____"_____
.byte $00 ; 35/23 _____#_____
.byte $00 ; 36/24 _____$_____
.byte $00 ; 37/25 _____%_____
.byte $00 ; 38/26 _____&_____
.byte $00 ; 39/27 _____'_____
.byte $00 ; 40/28 _____(_____
.byte $00 ; 41/29 _____)_____
.byte $00 ; 42/2a _____*_____
.byte $00 ; 43/2b _____+_____
.byte $00 ; 44/2c _____,_____
.byte $00 ; 45/2d _____-_____
.byte $00 ; 46/2e _____._____
.byte $00 ; 47/2f _____/_____
.byte $0C ; 48/30 _____0_____
.byte $0C ; 49/31 _____1_____
.byte $0C ; 50/32 _____2_____
.byte $0C ; 51/33 _____3_____
.byte $0C ; 52/34 _____4_____
.byte $0C ; 53/35 _____5_____
.byte $0C ; 54/36 _____6_____
.byte $0C ; 55/37 _____7_____
.byte $0C ; 56/38 _____8_____
.byte $0C ; 57/39 _____9_____
.byte $00 ; 58/3a _____:_____
.byte $00 ; 59/3b _____;_____
.byte $00 ; 60/3c _____<_____
.byte $00 ; 61/3d _____=_____
.byte $00 ; 62/3e _____>_____
.byte $00 ; 63/3f _____?_____
.byte $00 ; 64/40 _____@_____
.byte $09 ; 65/41 _____a_____
.byte $09 ; 66/42 _____b_____
.byte $09 ; 67/43 _____c_____
.byte $09 ; 68/44 _____d_____
.byte $09 ; 69/45 _____e_____
.byte $09 ; 70/46 _____f_____
.byte $01 ; 71/47 _____g_____
.byte $01 ; 72/48 _____h_____
.byte $01 ; 73/49 _____i_____
.byte $01 ; 74/4a _____j_____
.byte $01 ; 75/4b _____k_____
.byte $01 ; 76/4c _____l_____
.byte $01 ; 77/4d _____m_____
.byte $01 ; 78/4e _____n_____
.byte $01 ; 79/4f _____o_____
.byte $01 ; 80/50 _____p_____
.byte $01 ; 81/51 _____q_____
.byte $01 ; 82/52 _____r_____
.byte $01 ; 83/53 _____s_____
.byte $01 ; 84/54 _____t_____
.byte $01 ; 85/55 _____u_____
.byte $01 ; 86/56 _____v_____
.byte $01 ; 87/57 _____w_____
.byte $01 ; 88/58 _____x_____
.byte $01 ; 89/59 _____y_____
.byte $01 ; 90/5a _____z_____
.byte $00 ; 91/5b _____[_____
.byte $00 ; 92/5c _____\_____
.byte $00 ; 93/5d _____]_____
.byte $00 ; 94/5e _____^_____
.byte $00 ; 95/5f _UNDERLINE_
.byte $00 ; 96/60 _A`_grave__
.byte $0a ; 97/61 _A'_acute__
.byte $0a ; 98/62 _A^_circum_
.byte $0a ; 99/63 _A~_tilde__
.byte $0a ; 100/64 _A"_dieres_
.byte $0a ; 101/65 _A__ring___
.byte $0a ; 102/66 _AE________
.byte $02 ; 103/67 _C,cedilla_
.byte $02 ; 104/68 _E`_grave__
.byte $02 ; 105/69 _E'_acute__
.byte $02 ; 106/6a _E^_circum_
.byte $02 ; 107/6b _E"_dieres_
.byte $02 ; 108/6c _I`_grave__
.byte $02 ; 109/6d _I'_acute__
.byte $02 ; 110/6e _I^_circum_
.byte $02 ; 111/6f _I"_dieres_
.byte $02 ; 112/70 _D-_Eth_lr_
.byte $02 ; 113/71 _N~_tilde__
.byte $02 ; 114/72 _O`_grave__
.byte $02 ; 115/73 _O'_acute__
.byte $02 ; 116/74 _O^_circum_
.byte $02 ; 117/75 _O~_tilde__
.byte $02 ; 118/76 _O"_dieres_
.byte $02 ; 119/77 __multiply_
.byte $02 ; 120/78 _O/_slash__
.byte $02 ; 121/79 _U`_grave__
.byte $02 ; 122/7a _U'_acute__
.byte $00 ; 123/7b _U^_circum_
.byte $00 ; 124/7c _U"_dieres_
.byte $00 ; 125/7d _Y'_acute__
.byte $00 ; 126/7e _cap_thorn_
.byte $00 ; 127/7f _Es-sed_B__
.byte $00 ; 128/80 __bullet___
.byte $00 ; 129/81 __v_line___
.byte $00 ; 130/82 __h_line___
.byte $00 ; 131/83 ___cross___
.byte $00 ; 132/84 _tl_corner_
.byte $00 ; 133/85 _tr_corner_
.byte $00 ; 134/86 _bl_corner_
.byte $00 ; 135/87 _br_corner_
.byte $00 ; 136/88 ___l_tee___
.byte $00 ; 137/89 ___r_tee___
.byte $00 ; 138/8a ___t_tee___
.byte $00 ; 139/8b ___b_tee___
.byte $00 ; 140/8c ___heart___
.byte $00 ; 141/8d __diamond__
.byte $00 ; 142/8e ___club____
.byte $00 ; 143/8f ___spade___
.byte $00 ; 144/90 _s_circle__
.byte $00 ; 145/91 __circle___
.byte $00 ; 146/92 ___pound___
.byte $00 ; 147/93 _CLS/check_
.byte $00 ; 148/94 ____pi_____
.byte $00 ; 149/95 ____+/-____
.byte $00 ; 150/96 __divide___
.byte $00 ; 151/97 __degree___
.byte $00 ; 152/98 _c_checker_
.byte $00 ; 153/99 _f_checker_
.byte $00 ; 154/9a _solid_sq__
.byte $00 ; 155/9b __cr_char__
.byte $00 ; 156/9c _up_arrow__
.byte $00 ; 157/9d _down_arro_
.byte $00 ; 158/9e _left_arro_
.byte $00 ; 159/9f _right_arr_
.byte $00 ; 160/a0 _req space_
.byte $00 ; 161/a1 _!_invertd_
.byte $00 ; 162/a2 ___cent____
.byte $00 ; 163/a3 ___pound___
.byte $00 ; 164/a4 __currency_
.byte $00 ; 165/a5 ____yen____
.byte $00 ; 166/a6 _|_broken__
.byte $00 ; 167/a7 __section__
.byte $00 ; 168/a8 __umulaut__
.byte $00 ; 169/a9 _copyright_
.byte $00 ; 170/aa __fem_ord__
.byte $00 ; 171/ab _l_ang_quo_
.byte $00 ; 172/ac ____not____
.byte $00 ; 173/ad _syl_hyphn_
.byte $00 ; 174/ae _registerd_
.byte $00 ; 175/af _overline__
.byte $00 ; 176/b0 __degrees__
.byte $00 ; 177/b1 ____+/-____
.byte $00 ; 178/b2 _2_supersc_
.byte $00 ; 179/b3 _3_supersc_
.byte $00 ; 180/b4 ___acute___
.byte $00 ; 181/b5 ____mu_____
.byte $00 ; 182/b6 _paragraph_
.byte $00 ; 183/b7 __mid_dot__
.byte $00 ; 184/b8 __cedilla__
.byte $00 ; 185/b9 _1_supersc_
.byte $00 ; 186/ba __mas_ord__
.byte $00 ; 187/bb _r_ang_quo_
.byte $00 ; 188/bc ____1/4____
.byte $00 ; 189/bd ____1/2____
.byte $00 ; 190/be ____3/4____
.byte $00 ; 191/bf _?_invertd_
.byte $00 ; 192/c0 _____`_____
.byte $00 ; 193/c1 _____A_____
.byte $00 ; 194/c2 _____B_____
.byte $00 ; 195/c3 _____C_____
.byte $00 ; 196/c4 _____D_____
.byte $00 ; 197/c5 _____E_____
.byte $00 ; 198/c6 _____F_____
.byte $00 ; 199/c7 _____G_____
.byte $00 ; 200/c8 _____H_____
.byte $00 ; 201/c9 _____I_____
.byte $00 ; 202/ca _____J_____
.byte $00 ; 203/cb _____K_____
.byte $00 ; 204/cc _____L_____
.byte $00 ; 205/cd _____M_____
.byte $00 ; 206/ce _____N_____
.byte $00 ; 207/cf _____O_____
.byte $00 ; 208/d0 _____P_____
.byte $00 ; 209/d1 _____Q_____
.byte $00 ; 210/d2 _____R_____
.byte $00 ; 211/d3 _____S_____
.byte $00 ; 212/d4 _____T_____
.byte $00 ; 213/d5 _____U_____
.byte $00 ; 214/d6 _____V_____
.byte $00 ; 215/d7 _____W_____
.byte $00 ; 216/d8 _____X_____
.byte $00 ; 217/d9 _____Y_____
.byte $00 ; 218/da _____Z_____
.byte $00 ; 219/db _____{_____
.byte $00 ; 220/dc _____|_____
.byte $00 ; 221/dd _____}_____
.byte $00 ; 222/de _____~_____
.byte $00 ; 223/df ___HOUSE___
.byte $00 ; 224/e0 _a`_grave__
.byte $00 ; 225/e1 _a'_acute__
.byte $00 ; 226/e2 _a^_circum_
.byte $00 ; 227/e3 _a~_tilde__
.byte $00 ; 228/e4 _a"_dieres_
.byte $00 ; 229/e5 _a__ring___
.byte $00 ; 230/e6 _ae________
.byte $00 ; 231/e7 _c,cedilla_
.byte $00 ; 232/e8 _e`_grave__
.byte $00 ; 233/e9 _e'_acute__
.byte $00 ; 234/ea _e^_circum_
.byte $00 ; 235/eb _e"_dieres_
.byte $00 ; 236/ec _i`_grave__
.byte $00 ; 237/ed _i'_acute__
.byte $00 ; 238/ee _i^_circum_
.byte $00 ; 239/ef _i"_dieres_
.byte $00 ; 240/f0 _o^x_Eth_s_
.byte $00 ; 241/f1 _n~_tilda__
.byte $00 ; 242/f2 _o`_grave__
.byte $00 ; 243/f3 _o'_acute__
.byte $00 ; 244/f4 _o^_circum_
.byte $00 ; 245/f5 _o~_tilde__
.byte $00 ; 246/f6 _o"_dieres_
.byte $00 ; 247/f7 __divide___
.byte $00 ; 248/f8 _o/_slash__
.byte $00 ; 249/f9 _u`_grave__
.byte $00 ; 250/fa _u'_acute__
.byte $00 ; 251/fb _u^_circum_
.byte $00 ; 252/fc _u"_dieres_
.byte $00 ; 253/fd _y'_acute__
.byte $00 ; 254/fe _sm_thorn__
.byte $00 ; 255/ff _y"_dieres_

15
libsrc/geos-cbm/system/enterdesktop.s Normal file
View File

@@ -0,0 +1,15 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 30.10.99, 17.04.2003
; void EnterDeskTop (void);
.import _exit
.export _EnterDeskTop
_EnterDeskTop:
lda #0
tax
jmp _exit

13
libsrc/geos-cbm/system/firstinit.s Normal file
View File

@@ -0,0 +1,13 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 30.10.99
; void FirstInit (void);
.export _FirstInit
.include "../inc/jumptab.inc"
_FirstInit = FirstInit

93
libsrc/geos-cbm/system/get_ostype.s Normal file
View File

@@ -0,0 +1,93 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 10.09.2001
;
; Plus4 and GEOS 1.1 detection by
; Marco van den Heuvel, 2010-02-02
;
; unsigned char get_ostype (void);
; unsigned char get_tv (void);
.export _get_ostype
.export _get_tv
.importzp tmp1
.include "../inc/const.inc"
.include "../inc/geossym.inc"
.include "../inc/geossym2.inc"
_get_ostype:
ldx #0
lda version
cmp #$a9
beq geos11
and #%11110000
cmp #$10
beq geos10
lda c128Flag ; we're on at least 2.0
cmp #$18
beq geos_on_plus4
ora version
rts
geos10:
lda version
rts
geos11:
lda #$11
rts
geos_on_plus4:
lda #$04
rts
_get_tv:
jsr _get_ostype
cmp #$04
beq plus4_get_tv
bpl only40 ; C64 with 40 columns only
lda graphMode
bpl only40 ; C128 but currently on 40 columns
ldx #1 ; COLUMNS80
bne tvmode
only40: ldx #0 ; COLUMNS40
tvmode: ; PAL/NTSC check here, result in A
php
sei ; disable interrupts
lda CPU_DATA ; this is for C64
pha
lda #IO_IN ; enable access to I/O
sta CPU_DATA
bit rasreg
bpl tvmode ; wait for rasterline 127<x<256
lda #24 ; (rasterline now >=256!)
modelp:
cmp rasreg ; wait for rasterline = 24 (or 280 on PAL)
bne modelp
lda grcntrl1 ; 24 or 280 ?
bpl ntsc
lda #0 ; PAL
beq modeend
ntsc:
lda #$80 ; NTSC
modeend:
stx tmp1
ora tmp1
sta tmp1
ldx #0
pla
sta CPU_DATA ; restore memory config
plp ; restore interrupt state
lda tmp1
rts
plus4_get_tv:
ldx #1 ; Assume PAL
bit $FF07 ; Test bit 6
bvc plus4pal
dex ; NTSC
plus4pal:
txa
ldx #0
rts

16
libsrc/geos-cbm/system/getrandom.s Normal file
View File

@@ -0,0 +1,16 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 30.10.1999, 2.1.2003
; char GetRandom (void);
.export _GetRandom
.include "../inc/jumptab.inc"
_GetRandom:
jsr GetRandom
ldx #0
rts

19
libsrc/geos-cbm/system/getserialnumber.s Normal file
View File

@@ -0,0 +1,19 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 30.10.99
; int GetSerialNumber (void);
.export _GetSerialNumber
.include "../inc/jumptab.inc"
.include "../inc/geossym.inc"
_GetSerialNumber:
jsr GetSerialNumber
lda r0L
ldx r0H
rts

16
libsrc/geos-cbm/system/initdoneio.s Normal file
View File

@@ -0,0 +1,16 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 30.10.99
; void InitForIO (void);
; void DoneWithIO (void);
.export _InitForIO, _DoneWithIO
.include "../inc/jumptab.inc"
_InitForIO = InitForIO
_DoneWithIO = DoneWithIO

13
libsrc/geos-cbm/system/mainloop.s Normal file
View File

@@ -0,0 +1,13 @@
;
; Maciej 'YTM/Elysium' Witkowiak
;
; 30.10.1999, 10.01.2003
; void MainLoop (void);
.export _MainLoop
.include "../inc/jumptab.inc"
_MainLoop = MainLoop

13
libsrc/geos-cbm/system/panic.s Normal file
View File

@@ -0,0 +1,13 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 30.10.99
; void Panic (void);
.export _Panic
.include "../inc/jumptab.inc"
_Panic = Panic

13
libsrc/geos-cbm/system/setdevice.s Normal file
View File

@@ -0,0 +1,13 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 21.12.99
; void SetDevice (char newDeviceNumber);
.export _SetDevice
.include "../inc/jumptab.inc"
_SetDevice = SetDevice

34
libsrc/geos-cbm/system/systime.c Normal file
View File

@@ -0,0 +1,34 @@
/*
* systime.c
*
* Maciej 'YTM/Elysium' Witkowiak, 22.11.2002
*/
#include <time.h>
#include <geos.h>
time_t _systime(void) {
struct tm currentTime;
currentTime.tm_sec = system_date.s_seconds;
currentTime.tm_min = system_date.s_minutes;
currentTime.tm_hour = system_date.s_hour;
currentTime.tm_mday = system_date.s_day;
currentTime.tm_mon = system_date.s_month;
currentTime.tm_year = system_date.s_year;
if (system_date.s_year < 87) {
currentTime.tm_year+=100;
}
currentTime.tm_isdst = -1;
return mktime(&currentTime);
}
clock_t clock(void) {
return _systime();
}

39
libsrc/geos-cbm/system/sysuname.s Normal file
View File

@@ -0,0 +1,39 @@
;
; Ullrich von Bassewitz, 2003-08-12
;
; unsigned char __fastcall__ _sysuname (struct utsname* buf);
;
.export __sysuname, utsdata
.import utscopy
__sysuname = utscopy
;--------------------------------------------------------------------------
; Data. We define a fixed utsname struct here and just copy it.
.rodata
utsdata:
; sysname
.asciiz "cc65"
; nodename
.asciiz ""
; release
.byte ((.VERSION >> 8) & $0F) + '0'
.byte '.'
.byte ((.VERSION >> 4) & $0F) + '0'
.byte $00
; version
.byte (.VERSION & $0F) + '0'
.byte $00
; machine
.asciiz "GEOS"

13
libsrc/geos-cbm/system/tobasic.s Normal file
View File

@@ -0,0 +1,13 @@
;
; Maciej 'YTM/Alliance' Witkowiak
;
; 30.10.99
; void ToBASIC (void);
.export _ToBASIC
.include "../inc/jumptab.inc"
_ToBASIC = ToBASIC