home *** CD-ROM | disk | FTP | other *** search
/ CBM Funet Archive / cbm-funet-archive-2003.iso / cbm / geos / programming / CopeAssembler.lnx / UTILITY (.txt) < prev    next >
Encoding:
GEOS ConVerT  |  1999-06-16  |  2.5 KB  |  123 lines
  1. utility
  2. prg FORMATTED geos FILE v1.0
  3. cope sOURCE v1.1
  4. cope eDITOR v1.1
  5. uNTITLED
  6. utility
  7. @3@@@m@t@R@
  8. ; -------
  9. cLR_sCREEN
  10.  lda #192
  11.  sta disbuf
  12.  lda #0
  13.  jsr stpat
  14.  jsr ilrect
  15.  .bYTE 0,199
  16.  .wORD 0,319
  17. ;-----
  18. lOADpAGE
  19.  AND #$7f; CLEAR HI-BYTE OF ACCUM.
  20.  CMP PAGENUM
  21.  BEQ lpEX
  22.  STA PAGENUM
  23.  LOADW r0:tfnAME
  24.  JSR oPENrECORDfILE
  25.  LDA PAGENUM
  26.  JSR pOINTrECORD
  27.  LOADW r2:$1000
  28.  LOADW r7:pAGEaDDRESS
  29.  JSR rEADrECORD
  30.  JSR cLOSErECORDfILE
  31. PAGENUM .bYTE $ff
  32. ;-----
  33. sCHlP
  34.  LDX #255
  35. sCHlP1
  36.  LDA (cbp),y ; WASTE TIME
  37.  LDA (cbp),y ; WASTE TIME
  38.  BNE sCHlP1
  39.  BNE sCHlP
  40. ;----
  41. rST_sCN
  42.   JSR $c1a5
  43.   .bYTE 32,127+8
  44.   .wORD 64,255+8
  45.  LDA #192
  46.   sta disbuf
  47.   rts
  48. ;-----
  49. ;----
  50. ;----
  51.  jsr $c1bd
  52. save2
  53.  LDA #sapageno
  54.  JSR lOADpAGE
  55.  JSR save3
  56. ;-----
  57. sAVEaS1
  58.  jsr $c1bd
  59.  LDA #sapageno
  60.  JSR lOADpAGE
  61.  JSR save2
  62. ;-----
  63. find; CALLED FROM MENU
  64. jsr $c1bd
  65. find3; CALLED FROM KEYPRESS (ogs)
  66. LDA #findpage
  67.  JSR lOADpAGE
  68.  JSR find3B
  69. RPTSTR1
  70. JMP RPTS2 
  71. rptstr; REPLACE STRING ROUTINE
  72.  jsr $c1bd
  73. RPTS2
  74.  LDA #findpage
  75.  JSR lOADpAGE
  76.  JSR rp1A
  77. ;-----
  78. print
  79.  jsr $c1bd
  80.  printA
  81. ; IF A FILE IS A vlir FILE, AND THEN ENTIRE DOC IS
  82. ; SELECTED TO PRINT.  THEN THE PAGE IN MEMORY
  83. ; WILL BE FLUSHED.  mAKE SURE THIS PAGE IS SAVED.
  84.  LDA #printpage
  85.  JSR lOADpAGE
  86.  JSR print2
  87. ;-----
  88. dO_db_bOX
  89.  LDA #128
  90.  STA disbuf
  91.  LDA #2
  92.  JSR $c139 ;sETpATTEN
  93.  JSR $c19f
  94.  .bYTE 32+8,127+8
  95.  .wORD  64+8,255+8
  96.  LDA #0
  97.  JSR $c139
  98.  JSR $c19f
  99.  .bYTE 32,127
  100.  .wORD 64,255
  101.  LDA #255
  102.  JSR $c127
  103. ;-----
  104. pAGEgo
  105. JSR $c1bd
  106. pAGEgo1
  107.  LDA #pAGEmOVE
  108.  JSR lOADpAGE
  109.  JSR pAGEgO
  110. ;-----
  111. bmARK; CALLED FROM MENU
  112. jsr $c1bd
  113.  LDA #asave
  114.  JSR lOADpAGE
  115.  JSR bOOKmARK
  116. ;-----
  117. aSAVE; CALLED FROM MENU
  118. jsr $c1bd
  119.  LDA #asave
  120.  JSR lOADpAGE
  121.  JSR aUTOsAVE
  122. ;----
  123.