6502/cc65
1
0
Fork 0
mirror of https://github.com/cc65/cc65.git synced 2024-12-23 19:29:37 +00:00
Code Issues Projects Releases Wiki Activity
1976d6cd32
cc65/asminc/telestrat.inc

224 lines
6.5 KiB
PHP
Raw Normal View History

Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
;
; Oric Telemon definition
I/O identifiers added
2017-10-16 14:11:37 +00:00
; Telemon 2.4 & Telemon 3.x
; For telemon 3.x check http://orix.oric.org
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
;
; ---------------------------------------------------------------------------
; Constants
SCREEN_XSIZE = 40 ; screen columns
SCREEN_YSIZE = 28 ; screen rows
FUNCTKEY = $A5
FNAME_LEN = 11 ; maximum length of file-name
I/O identifiers added
2017-10-16 14:11:37 +00:00
; ---------------------------------------------------------------------------
; I/O Identifier
Comment correction
2017-10-23 21:02:54 +00:00
; theses identifers are used for channel management
I/O identifiers added
2017-10-16 14:11:37 +00:00
;
Comment correction
2017-10-23 21:00:43 +00:00
XKBD = $80 ; keyboard
I/O identifiers added
2017-10-16 14:11:37 +00:00
XRSE = $83 ; RS232 in
Comment correction
2017-10-23 21:00:43 +00:00
XSCR = $88 ; screen
I/O identifiers added
2017-10-16 14:11:37 +00:00
XRSS = $90 ; RS232 out
remove FILENAME_MAX
2017-09-25 19:47:05 +00:00
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
; ---------------------------------------------------------------------------
; Zero page
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
; ---------------------------------------------------------------------------
; Page 00
RES := $00
RESB := $02
Correcting some code from github comments
2017-02-01 22:58:33 +00:00
TR0 := $0C
TR1 := $0D
adding some vars
2017-09-24 09:46:52 +00:00
TR2 := $0E
TR3 := $0F
TR4 := $10
TR5 := $11
TR6 := $12
TR7 := $13
I/O identifiers added
2017-10-16 14:11:37 +00:00
PTR_READ_DEST := $2C ; used for XFREAD and XWRITE only in telemon 3.x
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
HRSX := $46
HRSY := $47
HRS1 := $4D
HRS2 := $4F
HRS3 := $51
HRS4 := $53
HRS5 := $55
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
Now setPixel works in TGI.
2017-10-20 19:03:30 +00:00
HRSFB := $57
; RS232T
; b0-b3 : speed
comment correction
2017-10-20 19:29:16 +00:00
; 1111 => 19200 bps (please note that telestrat can't handle this speed without stopping all IRQ except ACIA's one)
Now setPixel works in TGI.
2017-10-20 19:03:30 +00:00
; 1100 => 9600 bps (default from telemon)
; 1110 => 4800 bps
; 1010 => 2400 bps
; 1000 => 1200 bps
; 0111 => 600 bps
; 0110 => 300 bps
; 0101 => 150 bps
; 0010 => 75 bps
; b4 : 0 external clock, 1 internal clock
; b6-b5 : 00 8 bits
; 01 7 bits
; 10 6 bits
; 11 5 bits
; b7 : 0 a stop
RS232T := $59
; RS232C
; b0-b3 : 0
; b4 : 1 if echo
; b5 : 1 if parity
; b7-b6 : 00 in/out parity odd
; : 01 on/out parity even
; : 10 parity sent, answer not tested
; : 11 SPACE SENT, reception not tested
RS232C := $5A
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
; ---------------------------------------------------------------------------
; Low memory
Now setPixel works in TGI.
2017-10-20 19:03:30 +00:00
IRQVec := $02FB ; "fast" interrupt vector
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
; ---------------------------------------------------------------------------
; I/O locations
; 6522
.struct VIA ; Versatile Interface Adapter
.res $0300
PRB .byte ; Port Register B
PRA .byte ; Port Register A
DDRB .byte ; Data Direction Register B
DDRA .byte ; Data Direction Register A
T1 .word ; Timer 1
T1L .word ; Timer 1 Latch
T2 .word ; Timer 2
SR .byte ; Shift Register
ACR .byte ; Auxiliary Control Register
PCR .byte ; Peripheral Control Register
IFR .byte ; Interrupt Flags Register
IER .byte ; Interrupt Enable Register
PRA2 .byte ; Port Register A without handshaking
.endstruct
Now setPixel works in TGI.
2017-10-20 19:03:30 +00:00
.struct VIA2 ; Versatile Interface Adapter
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
.res $0320
PRB .byte ; Port Register B
PRA .byte ; Port Register A
DDRB .byte ; Data Direction Register B
DDRA .byte ; Data Direction Register A
T1 .word ; Timer 1
T1L .word ; Timer 1 Latch
T2 .word ; Timer 2
SR .byte ; Shift Register
ACR .byte ; Auxiliary Control Register
PCR .byte ; Peripheral Control Register
IFR .byte ; Interrupt Flags Register
IER .byte ; Interrupt Enable Register
PRA2 .byte ; Port Register A without handshaking
.endstruct
; 6551
.struct ACIA ; Asynchronous Communications Interface Adapter
.res $031C
DATA .byte
STATUS .byte
CMD .byte ; Command register
CTRL .byte ; Control register
.endstruct
SCREEN := $BB80
; ---------------------------------------------------------------------------
; ROM entries
Now setPixel works in TGI.
2017-10-20 19:03:30 +00:00
; telemon primitives (2.4 & 3.x)
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
XRD0 = $08
XRDW0 = $0C
XWR0 = $10
toascii.s added, doc updated, tgi_line & tgi_outtext are available
2017-10-22 21:06:56 +00:00
XWSTR0 = $14 ; write a string in text mode
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
XTEXT = $19
XHIRES = $1A
adding gotoxy.s
2017-02-25 20:32:06 +00:00
XFILLM = $1C
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
XMINMA = $1F
Adding XSOUT : Send A register to RS232
2017-10-16 14:06:18 +00:00
XVARS = $24 ; only in TELEMON 3.x, in telemon 2.4, it's XNOMFI ($24)
XFREAD = $27 ; only in TELEMON 3.x
XOPEN = $30 ; only in TELEMON 3.x
Correcting comments alignment Correcting an address error in telestrat.inc when cleaning files which broke read.s primitive
2017-01-31 21:20:19 +00:00
XCOSCR = $34 ; switch off cursor
XCSSCR = $35 ; switch on cursor
Adding XSOUT : Send A register to RS232
2017-10-16 14:06:18 +00:00
XCLOSE = $3A ; only in TELEMON 3.x Close file
XFWRITE = $3B ; only in TELEMON 3.x write file
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
XSONPS = $40
Comment correction
2017-10-23 21:00:43 +00:00
XOUPS = $42 ; send Oups sound into PSG
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
XPLAY = $43
XSOUND = $44
XMUSIC = $45
XZAP = $46
XSHOOT = $47
Now mkdir is working
2017-10-27 22:37:47 +00:00
XMKDIR = $4B ; create a folder. Only available in telemon 3.x
Comment correction
2017-10-23 21:00:43 +00:00
XSOUT = $67 ; send A register to RS232, available in telemon 2.4 & 3.x
XHRSSE = $8C ; set hires position cursor
XDRAWA = $8D ; draw a line
XDRAWR = $8E ; draw a line
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
XCIRCL = $8F
XCURSE = $90
Now setPixel works in TGI.
2017-10-20 19:03:30 +00:00
XCURMO = $91
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
XPAPER = $92
XINK = $93
Now setPixel works in TGI.
2017-10-20 19:03:30 +00:00
XBOX = $94
XABOX = $95
XFILL = $96
XCHAR = $97
Comment correction
2017-10-23 21:00:43 +00:00
XSCHAR = $98 ; draw a string in hires
Correcting some code from github comments
2017-02-01 22:58:33 +00:00
XEXPLO = $9C
XPING = $9D
Adding XVARS primitive
2017-09-24 17:22:43 +00:00
; ---------------------------------------------------------------------------
; ROM entries variables
PWD_PTR = $00
adding gotoxy.s
2017-02-25 20:32:06 +00:00
; ---------------------------------------------------------------------------
; Page $200
SCRX := $220
SCRY := $224
adding clrscr.s
2017-02-25 21:10:13 +00:00
ADSCRL := $218
ADSCRH := $21C
Comment correction
2017-10-23 21:00:43 +00:00
HRSPAT := $2AA ; hires pattern : it's used to draw pattern for a line or a circle
Fixing buffer overflow with cwd command (FILENAME_MAX must be at 50 +1 bytes)
2017-09-25 19:39:57 +00:00
IRQVECTOR := $2FA
adding clrscr.s
2017-02-25 21:10:13 +00:00
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
; ---------------------------------------------------------------------------
; Page $500
Merge telemon24 and telemon30 into telestrat target. Cleaning, and replace tab to spaces Converting hex lowercase value into uppercase char. Changing := and = when it was needed
2017-01-31 21:09:14 +00:00
BUFNOM := $517
BUFEDT := $590
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
MAX_BUFEDT_LENGTH=110
; Hardware
adding some vars
2017-09-24 09:46:52 +00:00
CH376_DATA := $340
CH376_COMMAND := $341
Adding telemon30 and telemon24 primitives
2017-01-29 20:18:49 +00:00
; MACRO
.macro BRK_TELEMON value
.byte $00,value
.endmacro
Reference in New Issue Copy Permalink