00000000: 2E 53 54 41 52 54 20 24 38 30 30 20 3B 20 53 74 |.START $800 ; St|
00000010: 61 72 74 20 61 64 64 72 65 73 73 20 69 6E 20 6D |art address in m|
00000020: 65 6D 6F 72 79 20 66 6F 72 20 6C 6F 61 64 69 6E |emory for loadin|
00000030: 67 20 70 72 6F 67 72 61 6D 2E 00 3B 00 2E 49 4E |g program..;..IN|
00000040: 49 54 20 43 6F 64 65 48 65 72 65 20 3B 20 49 6E |IT CodeHere ; In|
00000050: 69 74 69 61 6C 69 7A 61 74 69 6F 6E 20 72 6F 75 |itialization rou|
00000060: 74 69 6E 65 20 74 6F 20 63 61 6C 6C 20 61 66 74 |tine to call aft|
00000070: 65 72 20 6C 6F 61 64 69 6E 67 2E 00 3B 00 2E 54 |er loading..;..T|
00000080: 59 50 45 20 41 50 50 4C 49 43 41 54 49 4F 4E 20 |YPE APPLICATION |
00000090: 3B 20 54 79 70 65 20 6F 66 20 50 72 6F 67 72 61 |; Type of Progra|
000000A0: 6D 2C 20 73 65 65 20 5A 65 72 6F 50 61 67 65 20 |m, see ZeroPage |
000000B0: 45 71 75 61 74 65 73 20 66 6F 72 20 64 65 74 61 |Equates for deta|
000000C0: 69 6C 73 2E 00 3B 00 2E 4E 41 4D 45 20 53 61 6D |ils..;..NAME Sam|
000000D0: 70 6C 65 50 72 6F 67 2E 20 56 31 2E 30 20 20 3B |pleProg. V1.0 ;|
000000E0: 20 50 65 72 6D 61 6E 65 6E 74 20 4E 61 6D 65 20 | Permanent Name |
000000F0: 6F 66 20 70 72 6F 67 72 61 6D 00 3B 00 2E 41 75 |of program.;..Au|
00000100: 74 68 6F 72 20 42 69 6C 6C 20 53 68 61 72 70 20 |thor Bill Sharp |
00000110: 3B 20 41 75 74 68 6F 72 73 20 6E 61 6D 65 00 3B |; Authors name.;|
00000120: 00 3B 20 49 63 6F 6E 20 64 61 74 61 20 54 61 62 |.; Icon data Tab|
00000130: 6C 65 2C 20 74 68 69 73 20 69 73 20 6F 70 74 69 |le, this is opti|
00000140: 6F 6E 61 6C 00 3B 20 75 73 65 20 63 61 6E 20 75 |onal.; use can u|
00000150: 73 65 20 74 68 65 20 69 63 6F 6E 20 65 64 69 74 |se the icon edit|
00000160: 6F 72 28 44 65 73 6B 50 61 63 6B 31 29 20 74 6F |or(DeskPack1) to|
00000170: 20 63 68 61 6E 67 65 20 74 68 65 00 3B 20 69 63 | change the.; ic|
00000180: 6F 6E 20 6C 61 74 65 72 20 69 66 20 79 6F 75 20 |on later if you |
00000190: 77 69 73 68 00 3B 00 2E 49 63 6F 6E 20 25 31 31 |wish.;..Icon %11|
000001A0: 31 31 31 31 31 31 20 2C 20 20 25 31 31 31 31 31 |111111 , %11111|
000001B0: 31 31 31 20 2C 20 20 25 31 31 31 31 31 31 31 31 |111 , %11111111|
000001C0: 00 20 20 20 20 25 31 30 30 30 30 31 31 30 20 2C |. %10000110 ,|
000001D0: 20 25 30 30 31 31 31 31 30 30 20 2C 20 25 30 31 | %00111100 , %01|
000001E0: 31 30 30 30 30 31 00 20 20 20 20 25 31 30 30 30 |100001. %1000|
000001F0: 30 31 31 30 20 2C 20 25 30 30 31 31 31 31 30 30 |0110 , %00111100|
00000200: 20 2C 20 25 30 31 31 30 30 30 30 31 00 20 20 20 | , %01100001. |
00000210: 20 25 31 30 30 30 30 31 31 30 20 2C 20 25 30 30 | %10000110 , %00|
00000220: 31 31 31 31 30 30 20 2C 20 25 30 31 31 30 30 30 |111100 , %011000|
00000230: 30 31 00 20 20 20 20 25 31 30 30 30 30 31 31 30 |01. %10000110|
00000240: 20 2C 20 25 30 30 31 31 31 31 30 30 20 2C 20 25 | , %00111100 , %|
00000250: 30 31 31 30 30 30 30 31 00 20 20 20 20 25 31 30 |01100001. %10|
00000260: 30 30 30 31 31 30 20 2C 20 25 30 30 31 31 31 31 |000110 , %001111|
00000270: 30 30 20 2C 20 25 30 31 31 30 30 30 30 31 00 20 |00 , %01100001. |
00000280: 20 20 20 25 31 30 30 30 30 31 31 30 20 2C 20 25 | %10000110 , %|
00000290: 30 30 31 31 31 31 30 30 20 2C 20 25 30 31 31 30 |00111100 , %0110|
000002A0: 30 30 30 31 00 20 20 20 20 25 31 30 30 30 30 31 |0001. %100001|
000002B0: 31 30 20 2C 20 25 30 30 31 31 31 31 30 30 20 2C |10 , %00111100 ,|
000002C0: 20 25 30 31 31 30 30 30 30 31 00 20 20 20 20 25 | %01100001. %|
000002D0: 31 30 30 30 30 31 31 30 20 2C 20 25 30 30 31 31 |10000110 , %0011|
000002E0: 31 31 30 30 20 2C 20 25 30 31 31 30 30 30 30 31 |1100 , %01100001|
000002F0: 00 20 20 20 20 25 31 30 30 30 30 31 31 30 20 2C |. %10000110 ,|
00000300: 20 25 30 30 31 31 31 31 30 30 20 2C 20 25 30 31 | %00111100 , %01|
00000310: 31 30 30 30 30 31 00 20 20 20 20 25 31 30 30 30 |100001. %1000|
00000320: 30 31 31 30 20 2C 20 25 30 30 31 31 31 31 30 30 |0110 , %00111100|
00000330: 20 2C 20 25 30 31 31 30 30 30 30 31 00 20 20 20 | , %01100001. |
00000340: 20 25 31 30 30 30 30 31 31 30 20 2C 20 25 30 30 | %10000110 , %00|
00000350: 31 31 31 31 30 30 20 2C 20 25 30 31 31 30 30 30 |111100 , %011000|
00000360: 30 31 00 20 20 20 20 25 31 30 30 30 30 31 31 30 |01. %10000110|
00000370: 20 2C 20 25 30 30 31 31 31 31 30 30 20 2C 20 25 | , %00111100 , %|
00000380: 30 31 31 30 30 30 30 31 00 20 20 20 20 25 31 30 |01100001. %10|
00000390: 30 30 30 31 31 30 20 2C 20 25 30 30 31 31 31 31 |000110 , %001111|
000003A0: 30 30 20 2C 20 25 30 31 31 30 30 30 30 31 00 20 |00 , %01100001. |
000003B0: 20 20 20 25 31 30 30 30 30 31 31 30 20 2C 20 25 | %10000110 , %|
000003C0: 30 30 31 31 31 31 30 30 20 2C 20 25 30 31 31 30 |00111100 , %0110|
000003D0: 30 30 30 31 00 20 20 20 20 25 31 30 30 30 30 31 |0001. %100001|
000003E0: 31 30 20 2C 20 25 30 30 31 31 31 31 30 30 20 2C |10 , %00111100 ,|
000003F0: 20 25 30 31 31 30 30 30 30 31 00 20 20 20 20 25 | %01100001. %|
00000400: 31 30 30 30 30 31 31 30 20 2C 20 25 30 30 31 31 |10000110 , %0011|
00000410: 31 31 30 30 20 2C 20 25 30 31 31 30 30 30 30 31 |1100 , %01100001|
00000420: 00 20 20 20 20 25 31 30 30 30 30 31 31 30 20 2C |. %10000110 ,|
00000430: 20 25 30 30 31 31 31 31 30 30 20 2C 20 25 30 31 | %00111100 , %01|
00000440: 31 30 30 30 30 31 00 20 20 20 20 25 31 30 30 30 |100001. %1000|
00000450: 30 31 31 30 20 2C 20 25 30 30 31 31 31 31 30 30 |0110 , %00111100|
00000460: 20 2C 20 25 30 31 31 30 30 30 30 31 00 20 20 20 | , %01100001. |
00000470: 20 25 31 30 30 30 30 31 31 30 20 2C 20 25 30 30 | %10000110 , %00|
00000480: 31 31 31 31 30 30 20 2C 20 25 30 31 31 30 30 30 |111100 , %011000|
00000490: 30 31 00 20 20 20 20 20 25 31 31 31 31 31 31 31 |01. %1111111|
000004A0: 31 20 2C 20 20 25 31 31 31 31 31 31 31 31 20 2C |1 , %11111111 ,|
000004B0: 20 20 25 31 31 31 31 31 31 31 31 00 3B 20 6E 6F | %11111111.; no|
000004C0: 77 20 74 68 65 20 45 71 75 61 74 65 73 20 66 69 |w the Equates fi|
000004D0: 6C 65 73 00 2E 49 6E 63 6C 75 64 65 20 5A 65 72 |les..Include Zer|
000004E0: 6F 50 61 67 65 00 2E 49 6E 63 6C 75 64 65 20 52 |oPage..Include R|
000004F0: 6F 75 74 69 6E 65 73 00 3B 20 54 68 69 73 20 69 |outines.; This i|
00000500: 73 20 77 68 65 72 65 20 74 68 65 20 70 72 6F 67 |s where the prog|
00000510: 72 61 6D 20 73 74 61 72 74 73 00 43 6F 64 65 48 |ram starts.CodeH|
00000520: 65 72 65 00 2E 49 6E 63 6C 75 64 65 20 53 61 6D |ere..Include Sam|
00000530: 70 6C 65 4D 61 69 6E 00 45 6E 64 63 6F 64 65 20 |pleMain.Endcode |
00000540: 3B 20 4C 61 62 65 6C 20 69 73 20 75 73 65 64 20 |; Label is used |
00000550: 66 6F 72 20 72 65 66 65 72 65 6E 63 65 20 6F 66 |for reference of|
00000560: 20 68 69 67 68 65 73 74 20 6D 65 6D 6F 72 79 20 | highest memory |
00000570: 6C 6F 61 63 61 74 69 6F 6E 00 00 |loacation.. |
.START $800 ; START ADDRESS IN MEMORY FO
R LOADING PROGRAM..;..INIT CODEHERE ; IN
ITIALIZATION ROUTINE TO CALL AFTER LOADI
NG..;..TYPE APPLICATION ; TYPE OF PROGRA
M, SEE ZEROPAGE EQUATES FOR DETAILS..;..
NAME SAMPLEPROG. V1.0 ; PERMANENT NAME
OF PROGRAM.;..AUTHOR BILL SHARP ; AUTHOR
S NAME.;.; ICON DATA TABLE, THIS IS OPTI
ONAL.; USE CAN USE THE ICON EDITOR(DESKP
ACK1) TO CHANGE THE.; ICON LATER IF YOU
WISH.;..ICON %11111111 , %11111111 , %
11111111. %10000110 , %00111100 , %01
100001. %10000110 , %00111100 , %0110
0001. %10000110 , %00111100 , %011000
01. %10000110 , %00111100 , %01100001
. %10000110 , %00111100 , %01100001.
%10000110 , %00111100 , %01100001.
%10000110 , %00111100 , %01100001. %
10000110 , %00111100 , %01100001. %10
000110 , %00111100 , %01100001. %1000
0110 , %00111100 , %01100001. %100001
10 , %00111100 , %01100001. %10000110
, %00111100 , %01100001. %10000110 ,
%00111100 , %01100001. %10000110 , %
00111100 , %01100001. %10000110 , %00
111100 , %01100001. %10000110 , %0011
1100 , %01100001. %10000110 , %001111
00 , %01100001. %10000110 , %00111100
, %01100001. %10000110 , %00111100 ,
%01100001. %11111111 , %11111111 ,
%11111111.; NOW THE EQUATES FILES..INC
LUDE ZEROPAGE..INCLUDE ROUTINES.; THIS I
S WHERE THE PROGRAM STARTS.CODEHERE..INC
LUDE SAMPLEMAIN.ENDCODE ; LABEL IS USED
FOR REFERENCE OF HIGHEST MEMORY LOACATIO
N..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL