-
Notifications
You must be signed in to change notification settings - Fork 1
/
asl.inc
86 lines (70 loc) · 2.03 KB
/
asl.inc
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
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
ifndef ASL_INC
ASL_INC EQU 1
;
pag macro
NEWPAGE
endm
opt macro
endm
nam macro
endm
noopt macro
endm
; This works but you need ttl "xyz abc"
ttl macro a
TITLE a
endm
spc macro
endm
list macro
listing on
endm
nolist macro
listing off
endm
page macro
newpage
endm
PULD macro
PULA ; Pull the last thing off the stack
PULB
endm
PSHD macro
PSHB
PSHA ; Pus the last thing on the stack
endm
; ------------------------------------------------------------------------------
;
NULL EQU $00 ;
CTRL_AT EQU $00
CTRL_A EQU $01 ;
CTRL_C EQU $03 ;
CTRL_D EQU $04 ;
BELL EQU $07 ; Bell
GTRL_G EQU $07 ; Bell
CTRL_Q EQU $11 ; XOFF
CTRL_S EQU $13 ; XON
CTRL_U EQU $15 ; NAK
;
STX EQU $02 ; ^B
ETX EQU $03 ; ^C
CTRLK EQU $0B
CTRLO EQU $0F
DC1 EQU $11 ;* Device control 1 ^Q Reader Start
DC2 EQU $12 ;* Device control 2 ^R Punch Start
DC3 EQU $13 ;* Device control 3 ^S Reader Stop
DC4 EQU $14 ;* Device control 4 ^T Punch Stop
CTRLX EQU $18
CTRLZ EQU $1A
;
LF EQU $0A ; ASL allows \n
CR EQU $0D ; ASL allows \r
SPC EQU $20 ;
; upper byte of a 16 bit word:
hi function x,(x>>8)&255
; the same for the lower byte:
lo function x,x&255
endif ;* if ASL_INC
;/* Local Variables: */
;/* mode:asm */
;/* End: */