demon/elfn_illegals.a at master · hwirth/demon · GitHub

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
;==============================================================================
; DEMON - copy(l)eft 2018 http://harald.ist.org/
; tabsize=8
;==============================================================================


;==============================================================================
!zone elfn_illegals
;==============================================================================

elfn_illegals
;------------------------------------------------------------------------------
		JSR goto_pos0

		LDY # 1
		LDA (puts_vptr),Y

		CMP #'+'
		BEQ .enable
		CMP #'-'
		BNE .show_status
.disable	LDA #$00
		BEQ .store
.enable		LDA #$ff
.store		STA illegal_opcs

.show_status	LDA #<s_illegal_ops
		PHA
		LDA #>s_illegal_ops
		PHA
		JSR puts

		LDA illegal_opcs
		BEQ .off
		LDA #<s_enabled
		PHA
		LDA #>s_enabled
		PHA
		JMP .print

.off		LDA #<s_disabled
		PHA
		LDA #>s_disabled
		PHA
.print		JSR puts

		CLC
		RTS


s_illegal_ops	!pet 13, "illegal ops: ", 0
s_enabled	!pet "on", 0
s_disabled	!pet "off", 0

;==============================================================================
!eof