51 lines
662 B
Plaintext
51 lines
662 B
Plaintext
;program starts here, after loading palettes etc.
|
|
MOVE.W #3,D1
|
|
MOVE.W #'.',D4
|
|
|
|
JSR MakeList
|
|
|
|
jmp * ;halt
|
|
|
|
|
|
|
|
MakeList:
|
|
MOVE.W #1,D0
|
|
loop_MakeList:
|
|
MOVE.W D0,-(SP)
|
|
JSR PrintHex
|
|
MOVE.B D4,D0 ;load separator into D0
|
|
JSR PrintChar
|
|
MOVE.B #' ',D0
|
|
JSR PrintChar
|
|
MOVE.W (SP)+,D0
|
|
JSR MakeItem
|
|
CMP.W D0,D1
|
|
BCC loop_MakeList ;back to start
|
|
RTS
|
|
|
|
MakeItem:
|
|
MOVE.W D0,D2
|
|
SUBQ.W #1,D2
|
|
LSL.W #2,D2
|
|
LEA PointerToText,A0
|
|
MOVE.L (A0,D2),A3
|
|
JSR PrintString
|
|
JSR NewLine
|
|
ADDQ.W #1,D0
|
|
RTS
|
|
|
|
|
|
|
|
PointerToText:
|
|
DC.L FIRST,SECOND,THIRD
|
|
|
|
FIRST:
|
|
DC.B "FIRST",0
|
|
EVEN
|
|
SECOND:
|
|
DC.B "SECOND",0
|
|
EVEN
|
|
THIRD:
|
|
DC.B "THIRD",0
|
|
EVEN
|