home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8910a.d64 / verify-quellcode (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  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.