Nevar pievienot vairāk kā 25 tēmas Tēmai ir jāsākas ar burtu vai ciparu, tā var saturēt domu zīmes ('-') un var būt līdz 35 simboliem gara.

49 rindas
968B

  1. .PAGE 'AUTOIT'
  2. ;RSR TEST SUBROUTINES
  3. ;
  4. ; THIS AUTO INIT SUBROUTINE WILL
  5. ; CHECK IF DRVNUM DRIVE IS INITED
  6. ;
  7. ; IF CATALOG CALLS THIS ROUTINE
  8. ; BEFORE ANY HEADER INFO IS TRANSFERED
  9. ; THIS ROUTINE WORKS.
  10. ;
  11. ; THIS ROUTINE WILL END IN ERROR
  12. ; IF ANY ERROR BUT DISK ID OCCURS
  13. ;
  14. AUTOIT LDX #$FF ;FLAG FOR ERROR RTN
  15. STX JOBRTN
  16. JSR INITSU ;.A=DRVNUM< >=ERROR
  17. CMP #03 ;CHK MISSING DISK
  18. BEQ CATID3
  19. CATID5 CMP #2 ;CHK FOR OKAY
  20. BCC CATID4
  21. CATID2 JMP ERROR ;MUST BE AN ERROR
  22. CATID3 LDY DRVCNT ;CHK FOR SINGLE
  23. BEQ CATID2
  24. LDA #0 ;ONLY ONE GOOD DRIVE?
  25. STA DRVCNT
  26. LDA DRVNUM ;FLIP TO CHK OTHER DRV
  27. EOR #1
  28. STA DRVNUM
  29. JMP AUTOIT
  30. ;
  31. CATID4 TXA ;X PRESERVED
  32. ASL A ;MULT *8
  33. ASL A
  34. ASL A
  35. TAY
  36. LDA DRVNUM
  37. ASL A
  38. TAX
  39. LDA HDRS,Y ;CHK DISK ID
  40. CMP DSKID,X ;AGAINST OLD ID
  41. BNE CATID1
  42. LDA HDRS+1,Y
  43. CMP DSKID+1,X
  44. BNE CATID1
  45. RTS ;SAME ID
  46. CATID1 JMP INITDR ;DIFF SO INIT
  47. ;
  48. .END