snark13
c71e249a4e
First substantive commit: the entire Sprinter C compiler tree on top of
the bare README+gitignore initial commit.
What's in here:
bin/sprinter-cc — driver script invoking SDCC + linker + mkexe
libc/ — Sprinter-specific libc layer over ESTEX/BIOS
(conio, gfx, io, mem, stdio + headers)
runtime/ — crt0 variants (default/small/banked/minimal)
+ heap + bank trampolines
toolchain/ — mkexe (SprintEXE packer, C + tests)
examples/ — 30 demo programs (gfx, file I/O, env, time, …)
lib/Makefile — builds the libc archive (sprinter.lib)
docs/ — converted Sprinter manuals + asm reference samples
third_party/ — solid-c reference compiler dump + sdcc setup script
release_docs/ — packaging / release notes
gitignore overhaul:
• Drop dangerous blanket patterns: *.asm (would hide docs/samples/*.asm)
and *.exe (case-insensitive match was hiding third_party/solid-c/*.EXE
on macOS APFS). Replaced with examples/*/*.{asm,exe,…} and lib/*.lib.
• Restore tracking of toolchain/mkexe/tests/{one,big}.bin — those are
INPUT fixtures, not build outputs.
• Collapse the duplicated SDCC/C/Sdcc sections into one section per
concern (build outputs / vendored / OS-junk).
• Add .sprinter-cc-*/, build/ (catches lib/build/ too), .claude/.
Co-Authored-By: Claude Opus 4.7 <noreply@anthropic.com>
1457 lines
37 KiB
Plaintext
1457 lines
37 KiB
Plaintext
*L+
|
|
;editor for Sprinter computer
|
|
;graphic mode 640x256
|
|
;sources for Asm80Win assembler
|
|
;free for usage
|
|
|
|
;Part 1
|
|
|
|
;Main block
|
|
|
|
win0 equ #82
|
|
win1 equ #A2
|
|
win2 equ #C2
|
|
win3 equ #E2
|
|
port_y equ #89
|
|
rgmod equ #c9
|
|
|
|
|
|
|
|
ORG #8000-#200
|
|
;Header of Sprinter's EXE file
|
|
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
|
defm "EXE"
|
|
defb #00 ;Version of EXE file
|
|
defw #0200,#0000 ;Displacement of 512 bytes a beginning of the program
|
|
defw #0000 ;The size of the primary loader
|
|
defb #00,#00,#00,#00 ;Reserved
|
|
defw #0000 ;Reserved
|
|
defw #8000 ;beginning of the program
|
|
defw #8000 ;PC - start
|
|
defw #BFFF ;Stack point
|
|
defs 490,0
|
|
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
|
;Program
|
|
call setpalette
|
|
call set_vmode
|
|
ld a,0
|
|
call clear_screen
|
|
call interrupt_on
|
|
|
|
|
|
ld ix,main_window
|
|
call windraw
|
|
|
|
ld hl,test_
|
|
ld de,#c000
|
|
ld bc,105
|
|
ldir
|
|
|
|
call print_cline
|
|
call editor0 ;Call editor
|
|
|
|
|
|
call interrupt_off
|
|
ret
|
|
|
|
|
|
test_
|
|
defs 105," "
|
|
|
|
|
|
|
|
|
|
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
|
;Variables of editors
|
|
|
|
editor_vars equ $
|
|
lines defb 1 ;Quantity of text's lines
|
|
free_lines defb 155 ;How many lines may be placed else
|
|
reserved_one defb 0 ;Reserved
|
|
line_first defb 0 ;Number of first text line at the screen
|
|
line_edit defb 0 ;Number of text line with cursor
|
|
line_edit_adr defw #c000 ;Addr. of edited text line
|
|
cursor_adr defw #c000 ;Addr. of symbol under cursor
|
|
cursor_y defb 0 ;Y position of cursor
|
|
cursor_x defb 0 ;X position of cursor
|
|
|
|
|
|
editor0
|
|
call text_ref
|
|
|
|
editor
|
|
ld c,#31
|
|
rst #10
|
|
jp z,editor
|
|
cp #1b
|
|
jp z,editor_esc
|
|
cp #08
|
|
jp z,editor_bsp
|
|
; cp #09
|
|
; jp z,editor_tab
|
|
cp #0d
|
|
jp z,editor_ent
|
|
; jp z,editor_ent
|
|
; bit 5,b
|
|
; jp nz,editor_ctrl
|
|
; bit 4,b
|
|
; jp nz,editor_alt
|
|
|
|
cp 31
|
|
jp c,editor1
|
|
cp 242
|
|
jp nc,editor1
|
|
call insert_symbol
|
|
jp editor
|
|
|
|
|
|
|
|
editor1
|
|
|
|
ld a,d
|
|
cp #4f ;Del
|
|
jp z,editor_del
|
|
; cp #1c
|
|
; jp z,editor_caps
|
|
cp #52
|
|
jp z,editor_dn
|
|
cp #54
|
|
jp z,editor_lft
|
|
cp #56
|
|
jp z,editor_rgt
|
|
cp #58
|
|
jp z,editor_up
|
|
|
|
cp #51
|
|
jp z,editor_end
|
|
|
|
cp #57
|
|
jp z,editor_home
|
|
|
|
|
|
jp editor
|
|
|
|
editor_dn
|
|
ld a,3
|
|
call move_cursor
|
|
jp editor
|
|
|
|
editor_up
|
|
ld a,2
|
|
call move_cursor
|
|
jp editor
|
|
|
|
editor_lft
|
|
xor a
|
|
call move_cursor
|
|
jp editor
|
|
|
|
editor_rgt
|
|
ld a,1
|
|
call move_cursor
|
|
jp editor
|
|
|
|
|
|
editor_bsp
|
|
|
|
push hl
|
|
push de
|
|
push bc
|
|
push af
|
|
|
|
|
|
|
|
ld a,(cursor_x)
|
|
or a
|
|
jp z,editor_bsp1
|
|
|
|
call hide_cursor
|
|
|
|
ld b,a
|
|
ld a,105
|
|
sub b
|
|
ld b,0
|
|
ld c,a
|
|
ld hl,(cursor_adr)
|
|
push hl
|
|
pop de
|
|
dec de
|
|
ld hl,(cursor_adr)
|
|
ldir
|
|
ld hl,(line_edit_adr)
|
|
ld de,104
|
|
add hl,de
|
|
ld a,#20
|
|
ld (hl),a
|
|
xor a
|
|
call move_cursor
|
|
call print_cline
|
|
|
|
editor_bsp1
|
|
call unhide_cursor
|
|
pop af
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
jp editor
|
|
|
|
editor_del
|
|
|
|
push hl
|
|
push de
|
|
push bc
|
|
push af
|
|
|
|
|
|
|
|
ld a,(cursor_x)
|
|
cp 104
|
|
jp z,editor_del1 ;If cursor at the end of the text line
|
|
|
|
call hide_cursor
|
|
|
|
ld b,a
|
|
ld a,105
|
|
sub b
|
|
ld b,0
|
|
ld c,a
|
|
ld hl,(cursor_adr)
|
|
push hl
|
|
pop de
|
|
ld hl,(cursor_adr)
|
|
inc hl
|
|
ldir
|
|
ld hl,(line_edit_adr)
|
|
ld de,104
|
|
add hl,de
|
|
ld a,#20
|
|
ld (hl),a
|
|
call print_cline
|
|
|
|
editor_del1
|
|
call unhide_cursor
|
|
pop af
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
jp editor
|
|
|
|
|
|
editor_home
|
|
push af
|
|
push hl
|
|
call hide_cursor
|
|
xor a
|
|
ld (cursor_x),a
|
|
ld hl,(line_edit_adr)
|
|
ld (cursor_adr),hl
|
|
call unhide_cursor
|
|
pop hl
|
|
pop af
|
|
jp editor
|
|
|
|
editor_end
|
|
|
|
push hl
|
|
push de
|
|
push af
|
|
|
|
call hide_cursor
|
|
ld hl,(line_edit_adr)
|
|
ld de,105
|
|
add hl,de
|
|
editor_end1
|
|
dec hl
|
|
dec de
|
|
ld a,d
|
|
or e
|
|
jr z,editor_end2
|
|
ld a,(hl)
|
|
cp 32
|
|
jr z,editor_end1
|
|
|
|
editor_end2
|
|
ld a,e
|
|
inc a
|
|
ld (cursor_x),a
|
|
inc hl
|
|
ld (cursor_adr),hl
|
|
|
|
call unhide_cursor
|
|
|
|
pop af
|
|
pop de
|
|
pop hl
|
|
jp editor
|
|
|
|
|
|
|
|
editor_ent
|
|
call hide_cursor
|
|
call ins_line
|
|
ld ix,editor_vars
|
|
xor a
|
|
ld (ix+10),a
|
|
ld a,3
|
|
call move_cursor
|
|
|
|
call text_ref
|
|
call unhide_cursor
|
|
jp editor
|
|
|
|
|
|
|
|
editor_ent_cut defb 0
|
|
|
|
;---- Exit from the editor
|
|
editor_esc
|
|
ret
|
|
|
|
|
|
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
|
;Subprograms of editor
|
|
|
|
|
|
text_ref
|
|
;Updating of a window of the text
|
|
call hide_cursor
|
|
ld ix,editor_vars
|
|
ld c,(ix+3)
|
|
ld b,0
|
|
ld b,(ix+3)
|
|
inc b
|
|
ld a,(ix+0)
|
|
sub b
|
|
jr z,text_ref3
|
|
cp 25
|
|
jr c,text_ref1
|
|
ld a,25
|
|
text_ref1
|
|
ld c,(ix+3)
|
|
ld b,0
|
|
text_ref2
|
|
call print_line
|
|
inc b
|
|
inc c
|
|
dec a
|
|
or a
|
|
jr nz,text_ref2
|
|
call unhide_cursor
|
|
ret
|
|
|
|
text_ref3
|
|
ld b,0
|
|
ld c,0
|
|
call print_line
|
|
call unhide_cursor
|
|
|
|
ret
|
|
|
|
vars_ref
|
|
ld ix,editor_vars
|
|
|
|
ld hl,#c000
|
|
ld de,105
|
|
ld a,(ix+4)
|
|
or a
|
|
jr z,vars_ref2
|
|
ld b,a
|
|
vars_ref1
|
|
add hl,de
|
|
djnz vars_ref1
|
|
vars_ref2
|
|
ld (ix+6),h
|
|
ld (ix+5),l
|
|
|
|
ld d,0
|
|
ld e,(ix+10)
|
|
add hl,de
|
|
ld (ix+8),h
|
|
ld (ix+7),l
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
nxt_line
|
|
;Find next text line
|
|
|
|
push de
|
|
push af
|
|
ld ix,editor_vars
|
|
|
|
ld hl,#c000
|
|
ld de,105
|
|
ld a,(ix+4)
|
|
inc a
|
|
ld b,a
|
|
nxt_line1
|
|
add hl,de
|
|
djnz nxt_line1
|
|
|
|
|
|
pop af
|
|
pop de
|
|
ret
|
|
|
|
|
|
copy_eol
|
|
;Copy of the text line part from cursor to the end of the text line
|
|
ld ix,editor_vars
|
|
ld h,(ix+8)
|
|
ld l,(ix+7)
|
|
ld de,buf
|
|
ld a,105
|
|
sub (ix+10)
|
|
ld b,0
|
|
ld c,a
|
|
push bc
|
|
ldir
|
|
ld h,(ix+8)
|
|
ld l,(ix+7)
|
|
ld d,h
|
|
ld e,l
|
|
inc de
|
|
ld a,105
|
|
sub (ix+10)
|
|
ld b,0
|
|
ld c,a
|
|
ld a," "
|
|
ld (hl),a
|
|
ldir
|
|
ld b,(ix+9)
|
|
ld c,(ix+4)
|
|
call hide_cursor
|
|
call c_line
|
|
call print_line
|
|
|
|
call hide_cursor
|
|
|
|
call nxt_line
|
|
ld d,h
|
|
ld e,l
|
|
ld hl,buf
|
|
pop bc
|
|
ldir
|
|
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
ins_line
|
|
;Move forward all lines after current line
|
|
;Filling by free spaces
|
|
|
|
ld ix,editor_vars
|
|
ld a,(ix+0)
|
|
|
|
cp 1
|
|
jp z,ins_line_fill
|
|
ld (ins_line1-1),a
|
|
|
|
|
|
call last_line
|
|
push hl
|
|
ld bc,105
|
|
add hl,bc
|
|
ld d,h
|
|
ld e,l
|
|
pop hl
|
|
ld b,0
|
|
ins_line1
|
|
push bc
|
|
push hl
|
|
push de
|
|
ld bc,105
|
|
ldir
|
|
pop de
|
|
pop hl
|
|
sub hl,bc
|
|
sub de,bc
|
|
pop bc
|
|
djnz ins_line1
|
|
ins_line_fill
|
|
call nxt_line
|
|
ld d,h
|
|
ld e,l
|
|
inc de
|
|
ld bc,104
|
|
ld a," "
|
|
ld (hl),a
|
|
ldir
|
|
inc (ix+0)
|
|
call vars_ref
|
|
|
|
call copy_eol
|
|
|
|
ret
|
|
|
|
|
|
prev_line
|
|
;Calculate the address of the previous line, which address in HL
|
|
push hl
|
|
ld de,105
|
|
sub hl,de
|
|
pop hl
|
|
ret
|
|
|
|
|
|
|
|
last_line
|
|
;Calculate the address of the last line
|
|
push af
|
|
push de
|
|
ld a,(lines)
|
|
dec a
|
|
ld hl,#c000
|
|
ld de,105
|
|
or a
|
|
jr z,last_line2
|
|
ld b,a
|
|
last_line1
|
|
add hl,de
|
|
djnz last_line1
|
|
last_line2
|
|
pop de
|
|
pop af
|
|
ret
|
|
|
|
|
|
fill_line
|
|
;Filling next line by free spaces
|
|
call nxt_line
|
|
di
|
|
ld d,d
|
|
ld a,105
|
|
ld b,b
|
|
ld a," "
|
|
ld c,c
|
|
ld (hl),a
|
|
ld b,b
|
|
ei
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
view_cursor
|
|
nop
|
|
ld ix,editor_vars
|
|
push hl
|
|
push bc
|
|
push af
|
|
ld b,(ix+9)
|
|
ld c,(ix+10)
|
|
call coord_remake
|
|
call open_video_mem
|
|
ld a,b
|
|
ld b,8
|
|
view_cursor1
|
|
out (port_y),a
|
|
inc a
|
|
push af
|
|
ld a,(hl)
|
|
xor %01110111
|
|
ld (hl),a
|
|
pop af
|
|
djnz view_cursor1
|
|
call close_video_mem
|
|
ld a,(cursor_cond)
|
|
xor #FF
|
|
ld (cursor_cond),a
|
|
pop af
|
|
pop bc
|
|
pop hl
|
|
ret
|
|
cursor_cond defb 0
|
|
|
|
hide_cursor
|
|
;Hides the cursor up to a repeat call of the subprogram
|
|
push af
|
|
push hl
|
|
ld a,(cursor_cond)
|
|
cp #FF
|
|
call z,view_cursor
|
|
ld hl,view_cursor
|
|
ld a,201
|
|
ld (hl),a
|
|
pop hl
|
|
pop af
|
|
ret
|
|
unhide_cursor
|
|
push af
|
|
push hl
|
|
ld hl,view_cursor
|
|
xor a
|
|
ld (hl),a
|
|
call view_cursor
|
|
pop hl
|
|
pop af
|
|
ret
|
|
|
|
|
|
|
|
|
|
print_cline
|
|
;Print current line
|
|
call clear_cline
|
|
ld a,(line_edit)
|
|
ld c,a
|
|
ld a,(cursor_y)
|
|
ld b,a
|
|
jp print_line
|
|
|
|
clear_cline
|
|
;Clear current line
|
|
ld a,(cursor_y)
|
|
ld b,a
|
|
jp c_line
|
|
|
|
clear_whole
|
|
|
|
push af
|
|
push bc
|
|
push de
|
|
push hl
|
|
|
|
call hide_cursor
|
|
ld b,200
|
|
ld a,40
|
|
call open_video_mem
|
|
clear_whole1
|
|
out (port_y),a
|
|
push af
|
|
push bc
|
|
ld hl,#4002
|
|
ld de,#4003
|
|
ld bc,315
|
|
ld a,%01110111
|
|
ld (hl),a
|
|
ldir
|
|
pop bc
|
|
pop af
|
|
inc a
|
|
djnz clear_whole1
|
|
call close_video_mem
|
|
|
|
call unhide_cursor
|
|
pop hl
|
|
pop de
|
|
pop bc
|
|
pop af
|
|
ret
|
|
|
|
|
|
scroll_down
|
|
;B- Y position of begining line
|
|
push hl
|
|
push de
|
|
push bc
|
|
push af
|
|
|
|
call hide_cursor
|
|
call open_video_mem
|
|
di
|
|
|
|
ld ix,sd_y_src
|
|
ld h,0
|
|
ld l,b
|
|
add hl,hl
|
|
add hl,hl
|
|
add hl,hl
|
|
ld de,40
|
|
add hl,de
|
|
ld a,l
|
|
ld (ix+0),a
|
|
add a,8
|
|
ld (ix+1),a
|
|
|
|
ex de,hl
|
|
ld hl,200 ;231!!!
|
|
sub hl,de
|
|
ld (ix+2),l
|
|
ld a,l
|
|
ld (scroll_down1),a
|
|
|
|
ld hl,#4002
|
|
ld de,312
|
|
scroll_down0
|
|
ld a,(ix+0)
|
|
out (port_y),a
|
|
|
|
ld d,d
|
|
ld a,0
|
|
scroll_down1 equ $-1
|
|
ld a,a
|
|
ld a,(hl)
|
|
ld b,b
|
|
ld a,(ix+1)
|
|
out (port_y),a
|
|
ld a,a
|
|
ld (hl),a
|
|
ld b,b
|
|
dec de
|
|
inc hl
|
|
ld a,d
|
|
or e
|
|
jr nz,scroll_down0
|
|
|
|
call clear_cline
|
|
call close_video_mem
|
|
call unhide_cursor
|
|
ei
|
|
pop af
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
|
|
sd_y_src defb 0 ;Position: Y of FROM
|
|
sd_y_dst defb 0 ;Y of TO
|
|
sd_len defb 0 ;Length of a vertical line
|
|
|
|
scroll_up
|
|
;B- Y position of begining line
|
|
push hl
|
|
push de
|
|
push bc
|
|
push af
|
|
|
|
call hide_cursor
|
|
call open_video_mem
|
|
di
|
|
|
|
ld ix,su_y_src
|
|
ld h,0
|
|
ld l,b
|
|
add hl,hl
|
|
add hl,hl
|
|
add hl,hl
|
|
ld de,40
|
|
add hl,de
|
|
ld a,l
|
|
ld (ix+0),a
|
|
add a,8
|
|
ld (ix+1),a
|
|
|
|
ex de,hl
|
|
ld hl,192 ;231!!!
|
|
sub hl,de
|
|
ld (ix+2),l
|
|
ld a,l
|
|
ld (scroll_up1),a
|
|
|
|
ld hl,#4002
|
|
ld de,312
|
|
scroll_up0
|
|
ld a,(ix+1)
|
|
out (port_y),a
|
|
|
|
ld d,d
|
|
ld a,0
|
|
scroll_up1 equ $-1
|
|
ld a,a
|
|
ld a,(hl)
|
|
ld b,b
|
|
ld a,(ix+0)
|
|
out (port_y),a
|
|
ld a,a
|
|
ld (hl),a
|
|
ld b,b
|
|
dec de
|
|
inc hl
|
|
ld a,d
|
|
or e
|
|
jr nz,scroll_up0
|
|
|
|
ld b,24
|
|
call c_line
|
|
call close_video_mem
|
|
call unhide_cursor
|
|
ei
|
|
pop af
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
|
|
su_y_src defb 0 ;Position: Y of FROM
|
|
su_y_dst defb 0 ;Y of TO
|
|
su_len defb 0 ;Length of a vertical line
|
|
|
|
|
|
|
|
|
|
|
|
c_line
|
|
push af
|
|
push bc
|
|
push de
|
|
push hl
|
|
call hide_cursor
|
|
call open_video_mem
|
|
|
|
ld h,0
|
|
ld l,b
|
|
add hl,hl
|
|
add hl,hl
|
|
add hl,hl
|
|
ld de,40
|
|
add hl,de
|
|
ld a,l
|
|
ld (c_line1b),a
|
|
ld bc,312
|
|
di
|
|
ld d,d
|
|
ld a,8
|
|
ld b,b
|
|
|
|
c_line1a
|
|
ld a,0
|
|
c_line1b equ $-1
|
|
out (port_y),a
|
|
ld a,%01110111
|
|
ld hl,#4002
|
|
ld e,e
|
|
ld (hl),a
|
|
ld b,b
|
|
inc hl
|
|
dec bc
|
|
ld a,b
|
|
or c
|
|
jr nz,c_line1a
|
|
ei
|
|
|
|
call close_video_mem
|
|
call unhide_cursor
|
|
pop hl
|
|
pop de
|
|
pop bc
|
|
pop af
|
|
|
|
|
|
|
|
|
|
c_lineold
|
|
;Clear line
|
|
;B-number of a line (Y coord.)
|
|
|
|
push af
|
|
push bc
|
|
push de
|
|
push hl
|
|
call hide_cursor
|
|
call open_video_mem
|
|
|
|
ld h,0
|
|
ld l,b
|
|
add hl,hl
|
|
add hl,hl
|
|
add hl,hl
|
|
ld de,40
|
|
add hl,de
|
|
ld a,l
|
|
ld b,8
|
|
c_line1
|
|
push bc
|
|
push af
|
|
out (port_y),a
|
|
ld hl,#4002
|
|
ld de,#4003
|
|
ld bc,312
|
|
ld a,%01110111
|
|
ld (hl),a
|
|
ldir
|
|
pop af
|
|
pop bc
|
|
inc a
|
|
djnz c_line1
|
|
|
|
call close_video_mem
|
|
call unhide_cursor
|
|
pop hl
|
|
pop de
|
|
pop bc
|
|
pop af
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
print_line
|
|
;Print a text line in the window of editor
|
|
;C-number
|
|
;B-Y at the screen
|
|
call hide_cursor
|
|
push hl
|
|
push de
|
|
push bc
|
|
push af
|
|
ld a,(lines)
|
|
cp c
|
|
jr c,print_line4 ;Exit if was put number of unexistent line
|
|
ld h,0
|
|
ld l,b
|
|
add hl,hl
|
|
add hl,hl
|
|
add hl,hl
|
|
ld b,l
|
|
ld a,40
|
|
add a,b
|
|
ld b,a
|
|
ld hl,#c000
|
|
ld de,105
|
|
ld a,c
|
|
or a
|
|
jr z,print_line2
|
|
print_line1
|
|
add hl,de
|
|
dec c
|
|
jr nz,print_line1
|
|
print_line2
|
|
push hl
|
|
pop iy
|
|
|
|
ld hl,4
|
|
ld c,0
|
|
ld de,105
|
|
print_line3
|
|
ld a,(iy+0)
|
|
call print
|
|
inc hl
|
|
inc hl
|
|
inc hl
|
|
inc hl
|
|
inc hl
|
|
inc hl
|
|
|
|
dec de
|
|
inc iy
|
|
ld a,d
|
|
or e
|
|
jr nz,print_line3
|
|
print_line4
|
|
pop af
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
call unhide_cursor
|
|
ret
|
|
|
|
|
|
|
|
move_cursor
|
|
;Cursor moving and changing of variables!
|
|
push af
|
|
push hl
|
|
push de
|
|
call hide_cursor
|
|
ld ix,editor_vars
|
|
cp 0
|
|
jp z,move_cur_lft
|
|
cp 1
|
|
jp z,move_cur_rgt
|
|
cp 2
|
|
jp z,move_cur_up
|
|
cp 3
|
|
jp z,move_cur_dn
|
|
ret
|
|
move_cur_lft
|
|
ld a,(cursor_x)
|
|
or a
|
|
jp z,move_cursor1a
|
|
dec a
|
|
ld (cursor_x),a
|
|
ld hl,(cursor_adr)
|
|
dec hl
|
|
ld (cursor_adr),hl
|
|
jp move_cursor1a
|
|
|
|
move_cur_rgt
|
|
ld a,(cursor_x)
|
|
inc a
|
|
cp 104
|
|
jp z,move_cursor1a
|
|
ld (cursor_x),a
|
|
ld hl,(cursor_adr)
|
|
inc hl
|
|
ld (cursor_adr),hl
|
|
jp move_cursor1a
|
|
move_cur_up
|
|
ld a,(ix+9)
|
|
and a
|
|
jp z,move_cur_up1 ;If cursor at the top of screen
|
|
;Check- cursor at the first line?
|
|
;If not then cursor move up,
|
|
;Recalculate addresses
|
|
dec (ix+9)
|
|
|
|
dec (ix+4)
|
|
|
|
|
|
jp move_cursor1
|
|
|
|
|
|
|
|
|
|
|
|
move_cur_up1
|
|
ld a,(ix+4)
|
|
and a
|
|
jp z,move_cursor1a
|
|
ld b,0
|
|
call scroll_down
|
|
dec (ix+4)
|
|
|
|
dec (ix+3)
|
|
jp move_cursor1
|
|
|
|
|
|
|
|
move_cur_dn
|
|
ld a,(ix+4)
|
|
ld b,(ix+0)
|
|
dec b
|
|
cp b
|
|
jp z,move_cursor1a
|
|
|
|
ld a,(ix+9) ;Cursor_y
|
|
cp 24 ;If cursor at the down of screen?
|
|
jp nc,move_cur_dn1 ;If - yes
|
|
;then check - cursor at the last line?
|
|
;If not at the last line then cursor move down
|
|
;Recalculate addresses
|
|
inc (ix+9) ;If not at the down of screen
|
|
|
|
inc (ix+4)
|
|
|
|
|
|
jp move_cursor1
|
|
|
|
|
|
move_cur_dn1
|
|
ld a,(ix+4)
|
|
cp (ix+0)
|
|
jr z,move_cursor1a
|
|
ld b,0
|
|
call scroll_up
|
|
inc (ix+4)
|
|
|
|
inc (ix+3)
|
|
|
|
move_cursor1
|
|
call vars_ref
|
|
|
|
ld b,(ix+9)
|
|
call c_line
|
|
ld c,(ix+4)
|
|
call print_line
|
|
|
|
call unhide_cursor
|
|
pop de
|
|
pop hl
|
|
pop af
|
|
ret
|
|
|
|
move_cursor1a
|
|
call vars_ref
|
|
call unhide_cursor
|
|
pop de
|
|
pop hl
|
|
pop af
|
|
ret
|
|
|
|
|
|
|
|
insert_symbol
|
|
;Insert symbol in the current position
|
|
;A - symbol
|
|
push hl
|
|
push de
|
|
push bc
|
|
push af
|
|
|
|
ld (insert_symbol2),a
|
|
ld a,(cursor_x)
|
|
cp 104
|
|
jp z,insert_symbol1
|
|
|
|
call hide_cursor
|
|
|
|
ld a,(cursor_x)
|
|
ld b,a
|
|
ld a,105
|
|
sub b
|
|
ld hl,(cursor_adr)
|
|
ld de,buf
|
|
ld b,0
|
|
ld c,a
|
|
push hl
|
|
push de
|
|
push bc
|
|
ldir
|
|
pop bc
|
|
pop hl
|
|
pop de
|
|
dec bc
|
|
inc de
|
|
ldir
|
|
ld hl,(cursor_adr)
|
|
ld a,0
|
|
insert_symbol2 equ $-1
|
|
ld (hl),a
|
|
ld a,1
|
|
call move_cursor
|
|
|
|
|
|
call print_cline
|
|
|
|
insert_symbol1
|
|
call unhide_cursor
|
|
pop af
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ret
|
|
|
|
|
|
buf defs 320," "
|
|
|
|
|
|
|
|
|
|
|
|
coord_remake
|
|
;Transform coordinates
|
|
;B-y, C-x
|
|
;Start coordinates:
|
|
;HL- address of beginning position in a window
|
|
;b- real Y coordinate for Y-port
|
|
push af
|
|
ld h,0
|
|
ld l,b
|
|
add hl,hl
|
|
add hl,hl
|
|
add hl,hl
|
|
ld a,l
|
|
ld l,40
|
|
add a,l
|
|
ld (coord_remake_x),a
|
|
ld hl,#4002
|
|
ld de,3
|
|
ld b,c
|
|
ld a,b
|
|
or a
|
|
jp z,coord_remake2
|
|
coord_remake1
|
|
add hl,de
|
|
djnz coord_remake1
|
|
coord_remake2
|
|
ld a,(coord_remake_x)
|
|
ld b,a
|
|
pop af
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
coord_remake_x defb 0
|
|
|
|
|
|
open_text_mem
|
|
in a,(win3)
|
|
ld (close_text_mem+1),a
|
|
ld a,6
|
|
out (win3),a
|
|
ret
|
|
|
|
close_text_mem
|
|
ld a,0
|
|
out (win3),a
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ
|
|
;Windows data
|
|
|
|
|
|
|
|
main_window
|
|
defw 0 ;X
|
|
defb 0 ;Y
|
|
defw 640 ;Dx
|
|
defb 255 ;Dy
|
|
defw main_header ;Header
|
|
defb 0 ;SetUp
|
|
defw 0 ;Buffer of back screen (screen under the main screen)
|
|
defw 0 ;Block and memory page for the back screen
|
|
defw main_win_obj ;Window objects; 0 - no objects
|
|
|
|
|
|
main_header defm "N a m e l e s s . t x t"
|
|
defb 0
|
|
|
|
main_win_obj
|
|
defb 7 ;Text line of menu bar
|
|
defw 4
|
|
defb 15
|
|
defw menubar_txt
|
|
|
|
|
|
defb 1
|
|
defw 4
|
|
defb 24
|
|
defw 18
|
|
defb 13
|
|
defw new_file_spr
|
|
|
|
|
|
defb 1
|
|
defw 28
|
|
defb 24
|
|
defw 18
|
|
defb 13
|
|
defw new_file_spr
|
|
|
|
defb 1
|
|
defw 52
|
|
defb 24
|
|
defw 18
|
|
defb 13
|
|
defw new_file_spr
|
|
|
|
defb 1
|
|
defw 76
|
|
defb 24
|
|
defw 18
|
|
defb 13
|
|
defw new_file_spr
|
|
|
|
|
|
defb 1
|
|
defw 100
|
|
defb 24
|
|
defw 18
|
|
defb 13
|
|
defw new_file_spr
|
|
|
|
|
|
defb 1
|
|
defw 124
|
|
defb 24
|
|
defw 18
|
|
defb 13
|
|
defw new_file_spr
|
|
|
|
defb 1
|
|
defw 148
|
|
defb 24
|
|
defw 18
|
|
defb 13
|
|
defw new_file_spr
|
|
|
|
defb 1
|
|
defw 172
|
|
defb 24
|
|
defw 18
|
|
defb 13
|
|
defw new_file_spr
|
|
|
|
defb 6
|
|
defw 2
|
|
defb 40
|
|
defw 636
|
|
defb 200
|
|
|
|
|
|
defb #FF
|
|
|
|
|
|
menubar_txt
|
|
defm "F i l e E d i t I n s e r t B l o c k S e t u p L i g h t "
|
|
defm "C o m p i l e H e l p"
|
|
defb 0
|
|
|
|
|
|
|
|
;Including of files
|
|
*F c:\speccy\aedit\window.a80 ;Window interface
|
|
*F c:\speccy\aedit\graphic.a80 ;Graphic (main subprograms)
|
|
*F c:\speccy\aedit\setscr.a80 ;Other subprograms
|
|
|
|
|
|
|
|
|
|
interrupt_off
|
|
di
|
|
ld a,#3f
|
|
ld i,a
|
|
im 1
|
|
ei
|
|
ret
|
|
interrupt_on
|
|
di
|
|
ld hl,interruption ;Address of 'Interruption' subprogram
|
|
ld (64*256+#FF),hl
|
|
ld a,64
|
|
ld (190*256+#FF),hl
|
|
ld a,190
|
|
ld i,a
|
|
im 2
|
|
xor a
|
|
ld (int_timer),a
|
|
ei
|
|
ret
|
|
|
|
interruption
|
|
push ix ;Safe all registers
|
|
push iy
|
|
push hl
|
|
push de
|
|
push bc
|
|
push af
|
|
ex af,af'
|
|
exx
|
|
push hl
|
|
push de
|
|
push bc
|
|
push af
|
|
ex af,af'
|
|
exx
|
|
|
|
rst 56 ;Standard interruption (program need it!)
|
|
|
|
ld a,(int_timer)
|
|
inc a
|
|
ld (int_timer),a
|
|
cp 10
|
|
call z,view_cursor
|
|
|
|
cp 20
|
|
call z,view_cursor
|
|
|
|
cp 30
|
|
call z,view_cursor
|
|
cp 40
|
|
call z,view_cursor
|
|
cp 50
|
|
call z,view_cursor
|
|
|
|
cp 50
|
|
call z,int_timer_zero
|
|
|
|
|
|
ex af,af' ;Repairing all registers
|
|
exx
|
|
pop af
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
ex af,af'
|
|
exx
|
|
pop af
|
|
pop bc
|
|
pop de
|
|
pop hl
|
|
pop iy
|
|
pop ix
|
|
ret
|
|
|
|
|
|
|
|
int_timer_zero
|
|
xor a
|
|
ld (int_timer),a
|
|
ret
|
|
|
|
|
|
int_timer defb 0
|
|
|
|
|
|
|
|
|
|
h_mouse
|
|
push bc
|
|
ld c,#02
|
|
rst #30
|
|
pop bc
|
|
ret
|
|
v_mouse
|
|
push bc
|
|
ld c,#01
|
|
rst #30
|
|
pop bc
|
|
ret
|
|
m_ref
|
|
push bc
|
|
ld c,#83
|
|
rst #30
|
|
pop bc
|
|
ret
|
|
|
|
|
|
|
|
|
|
|
|
|
|
check_box
|
|
;16x10
|
|
defb #BB,#BB,#BB,#BB,#BB,#BB,#BB,#77
|
|
defb #bb,#00,#00,#00,#00,#00,#77,#77
|
|
defb #bb,#00,#77,#77,#77,#77,#77,#77
|
|
defb #bb,#00,#77,#77,#77,#77,#77,#77
|
|
defb #bb,#00,#77,#77,#77,#77,#77,#77
|
|
defb #bb,#00,#77,#77,#77,#77,#77,#77
|
|
defb #bb,#00,#77,#77,#77,#77,#77,#77
|
|
defb #bb,#00,#77,#77,#77,#77,#77,#77
|
|
defb #bb,#77,#77,#77,#77,#77,#77,#77
|
|
defb #77,#77,#77,#77,#77,#77,#77,#77
|
|
|
|
cur_st
|
|
defb #00,#00,#FF,#FF,#FF,#FF,#FF,#FF,#FF
|
|
defb #00,#07,#00,#FF,#FF,#FF,#FF,#FF,#FF
|
|
defb #00,#07,#07,#00,#FF,#FF,#FF,#FF,#FF
|
|
defb #00,#07,#07,#07,#00,#FF,#FF,#FF,#FF
|
|
defb #00,#07,#07,#07,#07,#00,#FF,#FF,#FF
|
|
defb #00,#07,#07,#07,#07,#07,#00,#FF,#FF
|
|
defb #00,#07,#07,#07,#07,#07,#07,#00,#FF
|
|
defb #00,#07,#07,#07,#07,#07,#07,#07,#00
|
|
defb #00,#07,#07,#07,#07,#00,#00,#00,#00
|
|
defb #00,#07,#07,#00,#07,#07,#00,#FF,#FF
|
|
defb #00,#07,#00,#FF,#00,#07,#07,#00,#FF
|
|
defb #00,#00,#FF,#FF,#00,#07,#07,#00,#FF
|
|
defb #00,#FF,#FF,#FF,#FF,#00,#07,#07,#00
|
|
defb #FF,#FF,#FF,#FF,#FF,#FF,#00,#00,#FF
|
|
|
|
;-------
|
|
;Interface sprites
|
|
new_file_spr
|
|
defb #00,#00,#00,#00,#00,#00,#FF,#FF,#FF
|
|
defb #00,#77,#77,#77,#77,#00,#00,#FF,#FF
|
|
defb #00,#77,#77,#77,#77,#00,#77,#00,#FF
|
|
defb #00,#77,#77,#77,#77,#00,#00,#00,#00
|
|
defb #00,#77,#77,#77,#77,#77,#77,#77,#00
|
|
defb #00,#77,#77,#77,#77,#77,#77,#77,#00
|
|
defb #00,#77,#77,#77,#77,#77,#77,#77,#00
|
|
defb #00,#77,#77,#77,#77,#77,#77,#77,#00
|
|
defb #00,#77,#77,#77,#77,#77,#77,#77,#00
|
|
defb #00,#77,#77,#77,#77,#77,#77,#77,#00
|
|
defb #00,#77,#77,#77,#77,#77,#77,#77,#00
|
|
defb #00,#77,#77,#77,#77,#77,#77,#77,#00
|
|
defb #00,#00,#00,#00,#00,#00,#00,#00,#00
|
|
|
|
|