home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 71 / 64er_Magazin_Sonderheft_71_19xx_Markt__Technik_de_Side_B.d64 / verify-quellcode (.txt) < prev   
Commodore BASIC  |  2022-10-26  |  3KB  |  131 lines
  1. 10000 rem******************************
  2. 10010 rem***   verify-master v1.0   ***
  3. 10020 rem***       (c) 1989 by      ***
  4. 10030 rem***    matthias strecker   ***
  5. 10040 rem***       zum anger 8      ***
  6. 10050 rem***    3430 witzenhausen   ***
  7. 10060 rem***    tel.: 05542/1632    ***
  8. 10070 rem******************************
  9. 10080 sys9*4096
  10. 10090 .opt oo
  11. 10100 *= 49152
  12. 10110 hil1   = $008b
  13. 10120 hil2   = $0002
  14. 10130 hil3   = $008d
  15. 10140 status = $0090
  16. 10150 spalte = $00d3
  17. 10160 zeile  = $00d6
  18. 10170 strout = $ab1e
  19. 10180 chkcom = $aefd
  20. 10190 zalout = $bdcd
  21. 10200 setnam = $e257
  22. 10210 setcur = $e510
  23. 10220 clrscr = $e544
  24. 10230 filpar = $ffba
  25. 10240 filnam = $ffbd
  26. 10250 open   = $ffc0
  27. 10260 close  = $ffc3
  28. 10270 iecin  = $ffa5
  29. 10280 talk   = $ffb4
  30. 10290 untalk = $ffab
  31. 10300 sectlk = $ff96
  32. 10310 basout = $ffd2
  33. 10320 ;--------------------------------
  34. 10330 einspr  jsr chkcom
  35. 10340 :       lda #0:sta status
  36. 10350 :       lda #1:ldx #8:ldy #$62
  37. 10360 :       jsr filpar
  38. 10370 :       jsr setnam
  39. 10380 :       lda #<text1:ldy #>text1
  40. 10390 :       jsr strout
  41. 10400 :       jsr open
  42. 10410 :       lda #8:jsr talk
  43. 10420 :       lda #$62:jsr sectlk
  44. 10430 :       jsr iecin:bit status
  45. 10440 :       bvc cont
  46. 10450 :       jmp error
  47. 10460 ;--------------------------------
  48. 10470 cont    sta hil1:sta merk1
  49. 10480 :       jsr iecin:sta hil1+1
  50. 10490 :       sta merk1+1
  51. 10500 ;--------------------------------
  52. 10510 versch1 sei
  53. 10520 :       ldx #53:stx 1:ldy #0
  54. 10530 :       lda (hil1),y:sta hil2
  55. 10540 :       ldx #55:stx 1
  56. 10550 :       cli
  57. 10560 :       jsr iecin:sta hil3
  58. 10570 :       bit status:bvs eod
  59. 10580 :       cmp hil2:beq ok
  60. 10590 ;--------------------------------
  61. 10600 :       lda #13:jsr basout
  62. 10610 :       lda #5:sta spalte
  63. 10620 :       jsr setcur
  64. 10630 :       ldx hil1:lda hil1+1
  65. 10640 :       jsr zalout
  66. 10650 :       lda #21:sta spalte
  67. 10660 :       jsr setcur
  68. 10670 :       ldx hil2:lda #0
  69. 10680 :       jsr zalout
  70. 10690 :       lda #33:sta spalte
  71. 10700 :       jsr setcur
  72. 10710 :       ldx hil3:lda #0
  73. 10720 :       jsr zalout
  74. 10730 ok      inc hil1:bne versch1
  75. 10740 :       inc hil1+1
  76. 10750 :       jmp versch1
  77. 10760 ;--------------------------------
  78. 10770 eod     lda zeile:cmp #6
  79. 10780 :       bne eod2:lda #<text4
  80. 10790 :       ldy #>text4:jsr strout
  81. 10800 eod2    lda #<text2:ldy #>text2
  82. 10810 :       jsr strout
  83. 10820 :       lda #8:sta spalte
  84. 10830 :       jsr setcur
  85. 10840 :       ldx merk1:lda merk1+1
  86. 10850 :       jsr zalout
  87. 10860 :       lda #27:sta spalte
  88. 10870 :       jsr setcur
  89. 10880 :       ldx hil1:lda hil1+1
  90. 10890 :       jsr zalout
  91. 10900 eod3    lda #8:jsr untalk
  92. 10910 :       lda #1
  93. 10920 :       jmp close
  94. 10930 ;--------------------------------
  95. 10940 error   lda #<text3:ldy #>text3
  96. 10950 :       jsr strout
  97. 10960 :       jmp eod3
  98. 10970 ;--------------------------------
  99. 10980 text1 .byt 147,013,013
  100. 10990 .asc "           verify-master v"
  101. 11000 .asc "1.0"
  102. 11010 .byt 013
  103. 11020 .asc "           ---------------"
  104. 11030 .asc "---"
  105. 11040 .byt 013,013
  106. 11050 .asc " fehleradresse: "
  107. 11060 .asc "speicherwert: filewert:"
  108. 11070 .byt 013
  109. 11080 .asc " -------------------------"
  110. 11090 .asc "-------------"
  111. 11100 .byt 000
  112. 11110 ;--------------------------------
  113. 11120 text2 .byt 013,013,013
  114. 11130 .asc "     startadresse: "
  115. 11140 .asc "     endadresse:"
  116. 11150 .byt 013,013,000
  117. 11160 ;--------------------------------
  118. 11170 text3 .byt 013,013,013
  119. 11180 .asc "     error - please check "
  120. 11190 .asc "your disk"
  121. 11200 .byt 013,000
  122. 11210 ;--------------------------------
  123. 11220 text4 .byt 013,013
  124. 11230 .asc "          kein verify"
  125. 11240 .asc " error !!!"
  126. 11250 .byt 013,000
  127. 11260 ;--------------------------------
  128. 11270 merk1 .byt 000,000
  129. 11280 ;--------------------------------
  130. 11290 .end
  131.