home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / Script.vlir (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  1.5 KB  |  60 lines
  1. sCRIPT.VLIR
  2. prg FORMATTED geos FILE v1.0
  3. cope sOURCE v1.1
  4. disk a
  5. cope eDITOR v1.1
  6. uNTITLED
  7. sCRIPT.VLIR
  8. d&d-d-d-d-d-d-d-d
  9. /.start $400
  10. .init cODEhERE
  11. .type 6
  12. .name cope_vlir
  13. .dNAME COPEvlir
  14. .aUTHOR bsc tECHuNIT
  15. ;---------
  16. .iCON 0,$20,$f0
  17. .bYTE 0,$f8,$f0,1,$8d,$20,3,7
  18. .bYTE $e0,6,$26,$40,$c,$66,$40,$18,$c4,$80,$31,$8c,$e0,$71,$19,$30
  19. .bYTE $58,$39,$18,$ec,$12,$0c,$36,$1e,$66,$1b,$1c,$c3,$d,$99,$81,6
  20. .bYTE $d3,$31,3,$60,$63,1,$b0,$c6,0,$d8,$8c,0,$6c,$18,0,$37
  21. .bYTE $f0,0,$1f,$e0
  22. ;=====
  23. ; EQUATES FOR PAGES TO BE LOADED IN.
  24. sapageno = 1
  25. findpage =  2
  26. printpage = 3
  27. pAGEmOVE = 4
  28. asave =    5
  29. ;----
  30. .iNCLUDE sYSTEM; HOLDS EQUATES, CONSTANTS, ROUTINES, AND MACROS.
  31. cODEhERE
  32. .iNCLUDE mc51
  33. .iNCLUDE utility
  34. .iNCLUDE load
  35. .iNCLUDE editfun
  36. .iNCLUDE tables
  37. .sEGMENT; END OF THE RESIDENT SECTION.
  38. ; aDDRESS TO START PAGING OF PROGRAMS
  39. pAGEaDDRESS; LOCATION TO LOAD IN ALL THE REMAINDING PAGES.
  40. .nEWPC pAGEaDDRESS
  41. .iNCLUDE save
  42. .sEGMENT sapageno
  43. ;-----
  44. .nEWPC pAGEaDDRESS
  45. .iNCLUDE find
  46. .sEGMENT findpage
  47. ;----
  48. .nEWPC pAGEaDDRESS
  49. .iNCLUDE print
  50. .sEGMENT printpage
  51. ;------
  52. .nEWPC pAGEaDDRESS
  53. .iNCLUDE pagemove
  54. .sEGMENT pAGEmOVE
  55. ;-----
  56. .nEWPC pAGEaDDRESS
  57. .iNCLUDE autosave
  58. .sEGMENT asave
  59. ;------
  60.