home *** CD-ROM | disk | FTP | other *** search
/ 64'er / 64ER_CD.iso / 89xx / 8906.d64 / s-floprw.s5 (.txt) < prev    next >
Commodore BASIC  |  1995-03-30  |  2KB  |  58 lines
  1. 90 OPEN1,8,1,"S-FLOPRW 7E/A"
  2. 100 SYS7*4096:.OPT O1:*=$7E00
  3. 110 PRG =1
  4. 120 BDOS =$A000
  5. 125 .IF #:.GOTO 210
  6. 130 .ICL 8,"BDS*
  7. 140 .ICL 8,"BDK*
  8. 150 .ICL 8,"BDJ*
  9. 160 .ICL 8,"BDE*
  10. 170 CURSOR =$FFF0
  11. 210 ;********
  12. 220 RDINIT JSR VERSION:STX RWBZEI:STY RWBZEI+1
  13. 230 LDY #VEJMPADR+1:LDA (RWBZEI),Y:TAX:DEY:LDA (RWBZEI),Y
  14. 240 STA RWBZEI:STX RWBZEI+1
  15. 250 LDX #0
  16. 260 L1 LDY JMPADR,X
  17. 270 LDA (RWBZEI),Y:STA JMPOLD,X
  18. 280 LDA JMPNEW,X:STA (RWBZEI),Y
  19. 290 INX:INY
  20. 300 LDA (RWBZEI),Y:STA JMPOLD,X
  21. 310 LDA JMPNEW,X:STA (RWBZEI),Y
  22. 320 INX:INY
  23. 330 CPX #ANZNEW*2; ANZAHL NEUER ROUTINEN
  24. 340 BCC L1
  25. 345 TEND LDA #0:RTS
  26. 999 ;*********
  27. 1000 TFLOPRW STA ZEI:STY ZEI+1:PHA:TYA:PHA:TXA:PHA
  28. 1005 SEC:JSR CURSOR:STX ZEILE:STY SPALTE
  29. 1010 LDX #0:LDY #18:CLC:JSR CURSOR
  30. 1020 LDY #PBRWFLAG:LDA (ZEI),Y:BEQ L1A:LDA #"W":.BYT $2C
  31. 1030 L1A LDA #"R":JSR BSOUT:JSR SPOUT
  32. 1040 LDY #PBDRIVE:LDA (ZEI),Y:JSR HEXSOUT
  33. 1050 LDY #PBSIDE:LDA (ZEI),Y:JSR HEXSOUT
  34. 1060 LDY #PBTRACK:LDA (ZEI),Y:JSR HEXSOUT
  35. 1070 LDY #PBSECTOR:LDA (ZEI),Y:JSR HEXSOUT
  36. 1080 LDY #PBBUFFER+1:LDA (ZEI),Y:JSR HEXOUT
  37. 1090 DEY:LDA (ZEI),Y:JSR HEXSOUT
  38. 1100 LDY #PBBANK:LDA (ZEI),Y:JSR HEXOUT
  39. 1110 L1B JSR $FFE4:BEQ L1B
  40. 1200 LDX ZEILE:LDY SPALTE:CLC:JSR CURSOR
  41. 1900 PLA:TAX:PLA:TAY:PLA:JMP (VFLOPRW)
  42. 1990 ZEILE .BYT 0
  43. 1991 SPALTE .BYT 0
  44. 1999 ;*****
  45. 2000 HEXOUT PHA:LSR:LSR:LSR:LSR:JSR NIBOUT
  46. 2010 PLA:AND #$0F
  47. 2020 NIBOUT CLC:ADC #"0":CMP #"9"+1:BCC NIB1
  48. 2030 ADC #6:NIB1 JMP BSOUT
  49. 2040 HEXSOUT JSR HEXOUT:SPOUT LDA #" ":JMP BSOUT
  50. 19999 ;**********
  51. 20010 ANZNEW =1
  52. 20020 JMPADR
  53. 20030 .WORD  FLOPRW  -BDOS*2/3
  54. 20070 JMPNEW
  55. 20080 .WORD  TFLOPRW
  56. 20120 JMPOLD
  57. 20130 VFLOPRW  .WORD 0
  58.