blob: 8479cc49c8dde95a745c63204407c8fcf9ef1972 (
plain)
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
|
; Wait for keypress, then exit
; Relocatable code.
; Assemble with:
; cl65 -t none -o viewer.xex viewer.s
.include "atari.inc"
dataptr = FR0
tmp = FR0+2
start = $0400
; segment header
.org start-6
.word $FFFF
.word start
.word endmain-1
.org start
main:
lda #$ff
sta 764
loop:
lda 764
cmp #$ff
beq loop
rts
endmain:
; segment header
.word RUNAD
.word RUNAD+1
.word main
|
