mirror of
https://github.com/nathanriggs/AppleIIAsm-Collection.git
synced 2025-01-24 05:34:19 +00:00
9b12b6fd9b
- getting ready for major changes for 0.6.0. - be sure to download the 0.5.0 release to ensure proper functionality, as these rountines will not work together in the SRC or BIN folder during the transition - Beginning to significantly alter documentation
87 lines
1.9 KiB
NASM
87 lines
1.9 KiB
NASM
*
|
|
*``````````````````````````````*
|
|
* DEMO.LORES *
|
|
* *
|
|
* A DEMO OF THE MACROS AND *
|
|
* SUBROUTINES FOR USING LORES *
|
|
* GRAPHICS. *
|
|
* *
|
|
* AUTHOR: NATHAN RIGGS *
|
|
* CONTACT: NATHAN.RIGGS@ *
|
|
* OUTLOOK.COM *
|
|
* *
|
|
* DATE: 03-OCT-2019 *
|
|
* ASSEMBLER: MERLIN 8 PRO *
|
|
* OS: DOS 3.3 *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
** ASSEMBLER DIRECTIVES
|
|
*
|
|
CYC AVE
|
|
EXP OFF
|
|
TR ON
|
|
DSK DEMO.SPEAKER
|
|
OBJ $BFE0
|
|
ORG $6000
|
|
*
|
|
*``````````````````````````````*
|
|
* TOP INCLUDES (PUTS, MACROS) *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
PUT MIN.HEAD.REQUIRED
|
|
USE MIN.MAC.REQUIRED
|
|
USE MAC.SPEAKER
|
|
PUT HOOKS.SPEAKER
|
|
*
|
|
*``````````````````````````````*
|
|
* PROGRAM MAIN BODY *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
LDY #1
|
|
STY ]O
|
|
:RPT
|
|
PTONE #OCT1_C;#WHOLE;]O
|
|
_PRN "C;WHOLE",8D8D
|
|
_WAIT
|
|
PTONE #OCT1_D;#WHOLE;]O
|
|
_PRN "D WHOLE",8D8D
|
|
_WAIT
|
|
PTONE #OCT1_E;#WHOLE;]O
|
|
_PRN "E WHOLE",8D8D
|
|
_WAIT
|
|
PTONE #OCT1_F;#WHOLE;]O
|
|
_PRN "F WHOLE",8D8D
|
|
_WAIT
|
|
PTONE #OCT1_G;#WHOLE;]O
|
|
_PRN "G WHOLE",8D8D
|
|
_WAIT
|
|
PTONE #OCT1_A;#WHOLE;]O
|
|
_PRN "A WHOLE",8D8D
|
|
_WAIT
|
|
PTONE #OCT1_B;#WHOLE;]O
|
|
_PRN "B WHOLE",8D8D
|
|
_WAIT
|
|
*
|
|
INC ]O
|
|
LDA ]O
|
|
CMP #5
|
|
BEQ :EXIT
|
|
JMP :RPT
|
|
*
|
|
:EXIT
|
|
JMP REENTRY
|
|
*
|
|
*``````````````````````````````*
|
|
* BOTTOM INCLUDES *
|
|
*,,,,,,,,,,,,,,,,,,,,,,,,,,,,,,*
|
|
*
|
|
** BOTTOM INCLUDES
|
|
*
|
|
PUT MIN.LIB.REQUIRED
|
|
*
|
|
** INDIVIDUAL SUBROUTINE INCLUDES
|
|
*
|
|
PUT SUB.PLAYTONE
|
|
*
|
|
]O DB #5
|