00000000: 2E 53 54 41 52 54 20 24 34 30 30 00 2E 49 4E 49 |.START $400..INI|
00000010: 54 20 43 6F 64 65 48 65 72 65 00 2E 54 59 50 45 |T CodeHere..TYPE|
00000020: 20 36 00 2E 4E 41 4D 45 20 43 4F 50 45 5F 56 4C | 6..NAME COPE_VL|
00000030: 49 52 00 2E 44 6E 61 6D 65 20 63 6F 70 65 56 4C |IR..Dname copeVL|
00000040: 49 52 00 2E 41 75 74 68 6F 72 20 42 53 43 20 54 |IR..Author BSC T|
00000050: 65 63 68 55 6E 69 74 00 3B 2D 2D 2D 2D 2D 2D 2D |echUnit.;-------|
00000060: 2D 2D 00 2E 49 63 6F 6E 20 30 2C 24 32 30 2C 24 |--..Icon 0,$20,$|
00000070: 46 30 00 2E 42 79 74 65 20 30 2C 24 46 38 2C 24 |F0..Byte 0,$F8,$|
00000080: 46 30 2C 31 2C 24 38 44 2C 24 32 30 2C 33 2C 37 |F0,1,$8D,$20,3,7|
00000090: 00 2E 42 79 74 65 20 24 45 30 2C 36 2C 24 32 36 |..Byte $E0,6,$26|
000000A0: 2C 24 34 30 2C 24 43 2C 24 36 36 2C 24 34 30 2C |,$40,$C,$66,$40,|
000000B0: 24 31 38 2C 24 43 34 2C 24 38 30 2C 24 33 31 2C |$18,$C4,$80,$31,|
000000C0: 24 38 43 2C 24 45 30 2C 24 37 31 2C 24 31 39 2C |$8C,$E0,$71,$19,|
000000D0: 24 33 30 00 2E 42 79 74 65 20 24 35 38 2C 24 33 |$30..Byte $58,$3|
000000E0: 39 2C 24 31 38 2C 24 45 43 2C 24 31 32 2C 24 30 |9,$18,$EC,$12,$0|
000000F0: 43 2C 24 33 36 2C 24 31 45 2C 24 36 36 2C 24 31 |C,$36,$1E,$66,$1|
00000100: 42 2C 24 31 43 2C 24 43 33 2C 24 44 2C 24 39 39 |B,$1C,$C3,$D,$99|
00000110: 2C 24 38 31 2C 36 00 2E 42 79 74 65 20 24 44 33 |,$81,6..Byte $D3|
00000120: 2C 24 33 31 2C 33 2C 24 36 30 2C 24 36 33 2C 31 |,$31,3,$60,$63,1|
00000130: 2C 24 42 30 2C 24 43 36 2C 30 2C 24 44 38 2C 24 |,$B0,$C6,0,$D8,$|
00000140: 38 43 2C 30 2C 24 36 43 2C 24 31 38 2C 30 2C 24 |8C,0,$6C,$18,0,$|
00000150: 33 37 00 2E 42 79 74 65 20 24 46 30 2C 30 2C 24 |37..Byte $F0,0,$|
00000160: 31 46 2C 24 45 30 00 3B 3D 3D 3D 3D 3D 00 3B 20 |1F,$E0.;=====.; |
00000170: 65 71 75 61 74 65 73 20 66 6F 72 20 70 61 67 65 |equates for page|
00000180: 73 20 74 6F 20 62 65 20 6C 6F 61 64 65 64 20 69 |s to be loaded i|
00000190: 6E 2E 00 53 41 50 41 47 45 4E 4F 20 3D 20 31 00 |n..SAPAGENO = 1.|
000001A0: 46 49 4E 44 50 41 47 45 20 3D 20 20 32 00 50 52 |FINDPAGE = 2.PR|
000001B0: 49 4E 54 50 41 47 45 20 3D 20 33 00 50 61 67 65 |INTPAGE = 3.Page|
000001C0: 4D 6F 76 65 20 3D 20 34 00 41 53 41 56 45 20 3D |Move = 4.ASAVE =|
000001D0: 20 20 20 20 35 00 3B 2D 2D 2D 2D 00 2E 49 6E 63 | 5.;----..Inc|
000001E0: 6C 75 64 65 20 53 79 73 74 65 6D 3B 20 68 6F 6C |lude System; hol|
000001F0: 64 73 20 65 71 75 61 74 65 73 2C 20 63 6F 6E 73 |ds equates, cons|
00000200: 74 61 6E 74 73 2C 20 72 6F 75 74 69 6E 65 73 2C |tants, routines,|
00000210: 20 61 6E 64 20 6D 61 63 72 6F 73 2E 00 43 6F 64 | and macros..Cod|
00000220: 65 48 65 72 65 00 2E 49 6E 63 6C 75 64 65 20 4D |eHere..Include M|
00000230: 43 35 31 00 2E 49 6E 63 6C 75 64 65 20 55 54 49 |C51..Include UTI|
00000240: 4C 49 54 59 00 2E 49 6E 63 6C 75 64 65 20 4C 4F |LITY..Include LO|
00000250: 41 44 00 2E 49 6E 63 6C 75 64 65 20 45 44 49 54 |AD..Include EDIT|
00000260: 46 55 4E 00 2E 49 6E 63 6C 75 64 65 20 54 41 42 |FUN..Include TAB|
00000270: 4C 45 53 00 2E 53 65 67 6D 65 6E 74 3B 20 65 6E |LES..Segment; en|
00000280: 64 20 6F 66 20 74 68 65 20 72 65 73 69 64 65 6E |d of the residen|
00000290: 74 20 73 65 63 74 69 6F 6E 2E 00 3B 20 41 64 64 |t section..; Add|
000002A0: 72 65 73 73 20 74 6F 20 73 74 61 72 74 20 70 61 |ress to start pa|
000002B0: 67 69 6E 67 20 6F 66 20 70 72 6F 67 72 61 6D 73 |ging of programs|
000002C0: 00 00 00 50 61 67 65 41 64 64 72 65 73 73 3B 20 |...PageAddress; |
000002D0: 6C 6F 63 61 74 69 6F 6E 20 74 6F 20 6C 6F 61 64 |location to load|
000002E0: 20 69 6E 20 61 6C 6C 20 74 68 65 20 72 65 6D 61 | in all the rema|
000002F0: 69 6E 64 69 6E 67 20 70 61 67 65 73 2E 00 00 3B |inding pages...;|
00000300: 2D 2D 2D 00 2E 4E 65 77 70 63 20 50 61 67 65 41 |---..Newpc PageA|
00000310: 64 64 72 65 73 73 00 2E 49 6E 63 6C 75 64 65 20 |ddress..Include |
00000320: 53 41 56 45 00 2E 53 65 67 6D 65 6E 74 20 53 41 |SAVE..Segment SA|
00000330: 50 41 47 45 4E 4F 00 3B 2D 2D 2D 2D 2D 00 2E 4E |PAGENO.;-----..N|
00000340: 65 77 70 63 20 50 61 67 65 41 64 64 72 65 73 73 |ewpc PageAddress|
00000350: 00 2E 49 6E 63 6C 75 64 65 20 46 49 4E 44 00 2E |..Include FIND..|
00000360: 53 65 67 6D 65 6E 74 20 46 49 4E 44 50 41 47 45 |Segment FINDPAGE|
00000370: 00 3B 2D 2D 2D 2D 00 2E 4E 65 77 70 63 20 50 61 |.;----..Newpc Pa|
00000380: 67 65 41 64 64 72 65 73 73 00 2E 49 6E 63 6C 75 |geAddress..Inclu|
00000390: 64 65 20 50 52 49 4E 54 00 2E 53 65 67 6D 65 6E |de PRINT..Segmen|
000003A0: 74 20 50 52 49 4E 54 50 41 47 45 00 3B 2D 2D 2D |t PRINTPAGE.;---|
000003B0: 2D 2D 2D 00 2E 4E 65 77 70 63 20 50 61 67 65 41 |---..Newpc PageA|
000003C0: 64 64 72 65 73 73 00 2E 49 6E 63 6C 75 64 65 20 |ddress..Include |
000003D0: 50 41 47 45 4D 4F 56 45 00 2E 53 65 67 6D 65 6E |PAGEMOVE..Segmen|
000003E0: 74 20 50 61 67 65 4D 6F 76 65 00 3B 2D 2D 2D 2D |t PageMove.;----|
000003F0: 2D 00 2E 4E 65 77 70 63 20 50 61 67 65 41 64 64 |-..Newpc PageAdd|
00000400: 72 65 73 73 00 2E 49 6E 63 6C 75 64 65 20 41 55 |ress..Include AU|
00000410: 54 4F 53 41 56 45 00 2E 53 65 67 6D 65 6E 74 20 |TOSAVE..Segment |
00000420: 41 53 41 56 45 00 3B 2D 2D 2D 2D 2D 2D 00 00 |ASAVE.;------.. |
.START $400..INIT CODEHERE..TYPE 6..NAME
COPE_VLIR..DNAME COPEVLIR..AUTHOR BSC T
ECHUNIT.;---------..ICON 0,$20,$F0..BYTE
0,$F8,$F0,1,$8D,$20,3,7..BYTE $E0,6,$26
,$40,$C,$66,$40,$18,$C4,$80,$31,$8C,$E0,
$71,$19,$30..BYTE $58,$39,$18,$EC,$12,$0
C,$36,$1E,$66,$1B,$1C,$C3,$D,$99,$81,6..
BYTE $D3,$31,3,$60,$63,1,$B0,$C6,0,$D8,$
8C,0,$6C,$18,0,$37..BYTE $F0,0,$1F,$E0.;
=====.; EQUATES FOR PAGES TO BE LOADED I
N..SAPAGENO = 1.FINDPAGE = 2.PRINTPAGE
= 3.PAGEMOVE = 4.ASAVE = 5.;----..INC
LUDE SYSTEM; HOLDS EQUATES, CONSTANTS, R
OUTINES, AND MACROS..CODEHERE..INCLUDE M
C51..INCLUDE UTILITY..INCLUDE LOAD..INCL
UDE EDITFUN..INCLUDE TABLES..SEGMENT; EN
D OF THE RESIDENT SECTION..; ADDRESS TO
START PAGING OF PROGRAMS...PAGEADDRESS;
LOCATION TO LOAD IN ALL THE REMAINDING P
AGES...;---..NEWPC PAGEADDRESS..INCLUDE
SAVE..SEGMENT SAPAGENO.;-----..NEWPC PAG
EADDRESS..INCLUDE FIND..SEGMENT FINDPAGE
.;----..NEWPC PAGEADDRESS..INCLUDE PRINT
..SEGMENT PRINTPAGE.;------..NEWPC PAGEA
DDRESS..INCLUDE PAGEMOVE..SEGMENT PAGEMO
VE.;-----..NEWPC PAGEADDRESS..INCLUDE AU
TOSAVE..SEGMENT ASAVE.;------..
×
C64 Image
> CLICK IMAGE PREVIEW FOR FULL MODAL