home *** CD-ROM | disk | FTP | other *** search
/ Loadstar - Compleat Programmer / comprog1.d81 / unnew.s < prev    next >
Text File  |  2022-08-28  |  673b  |  81 lines
  1. .org 828
  2. ;.obj "@0:unnew.o"
  3.  
  4. ldy #0
  5. - lda title,y
  6. beq +
  7. jsr $ffd2
  8. iny
  9. bne -
  10.  
  11. + lda 43
  12. sta 253
  13. clc
  14. adc #4
  15. sta 251
  16. lda 44
  17. sta 252
  18. sta 254
  19. ldy #0
  20.  
  21. - lda (251),y
  22. beq +
  23. lda #0
  24. sta zero'count
  25. jsr bump
  26. jmp -
  27.  
  28. + jsr bump
  29. inc zero'count
  30. lda 251
  31. sty temp
  32. ldy #0
  33. sta (253),y
  34. lda 252
  35. iny
  36. sta (253),y
  37.  
  38. - lda (251),y
  39. beq +
  40. jsr bump
  41. lda #0
  42. sta zero'count
  43. jmp -
  44.  
  45. + jsr bump
  46. inc zero'count
  47. lda zero'count
  48. cmp #3
  49. bne -
  50. lda 251
  51. sta 45
  52. lda 252
  53. sta 46
  54. ldx 251
  55. lda 252
  56. jsr $bdcd
  57. ldy #0
  58. - lda clear,y
  59. beq +
  60. sta 631,y
  61. iny
  62. bne -
  63. + lda #5
  64. sta 198
  65. + rts 
  66.  
  67.  
  68. bump inc 251
  69. bne +
  70. inc 252
  71. + rts
  72.  
  73.  
  74.  
  75.  
  76. zero'count .byt 0
  77. title .asc "LOADSTAR un-new v1.0":.byt 13,14,0
  78. temp .byt 0
  79. clear .asc "clr:":.byt 13,0
  80.  
  81.