forked from lawrencewoodman/subleq_vic20
-
-
Notifications
You must be signed in to change notification settings - Fork 0
/
skeleton_unexpanded.a65
46 lines (34 loc) · 1.45 KB
/
skeleton_unexpanded.a65
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
;=================================================================
; Skeleton file for creating runnable SUBLEQ programs
; on unexpanded systems
;-----------------------------------------------------------------
; Copyright (C) 2020 Lawrence Woodman <lwoodman@vlifesystems.com>
; Licensed under a BSD 0-Clause licence.
; Please see 0BSD_LICENCE.md for details.
;=================================================================
; Basic Stub
BSPACE = $14 ; Backspace character
COLON = $3A ; Colon character
TOK_REM = $8F ; REM token
TOK_SYS = $9E ; SYS token
.byt $01, $10 ; Load address ($1001)
* = $1001
.word basicEnd ; Next Line link, here end of Basic program
.word 1 ; The line number for the SYS statement
.byt TOK_SYS ; SYS token
.asc " "
.asc "4150" ; Start of machine language
.byt COLON ; Colon character
.byt TOK_REM ; REM token
.asc " "
.dsb 15,BSPACE ; Backspace characters to make line invisible
.asc "(C) 2020 LORRY WOODMAN"
.byt 0 ; End of Basic line
basicEnd .word 0 ; End of Basic program
jmp main
SL_MEM = prog
; Include the SUBLEQ Virtual Machine
#include "subleq.a65"
main jsr SL_run
rts
prog ; Start of SUBLEQ code