home *** CD-ROM | disk | FTP | other *** search
/ Carousel Volume 2 #1 / carousel.iso / comdore / 64utils / arc250.sda / ARC.JUMP < prev    next >
Text File  |  1988-12-11  |  2KB  |  74 lines
  1. ;ARC.JMP
  2. ;==============
  3. ;
  4. ZC000  JMP ENTRY    ;ENABLE EDITOR
  5. ZC003  JMP KILL     ;KILL EDITOR
  6. ZC006  JMP GETLEN   ;GET LENGTH OF PARAMETER .X
  7. ZC009  JMP MOVN     ;MOVE PARAMETER .X TO (FNADR),Y
  8. ZC00C  JMP SETUP    ;SETUP PARAMETER .X AS A FILENAME (SETS $┬7,$┬┴,$┬┬)
  9. ZC00F  JMP GTPCN    ;GET NUMBER OF PARAMETERS INTO .A
  10. ZC012  JMP PRTCHR   ;SCREEN PRINT ($┼716)
  11. ZC015  JMP GETDFL   ;DEFAULT DRIVE=.A DEVICE=.X
  12. ZC018  JMP GETDEV   ;.A=DEVICE LETTER. RETURNS DRIVE IN .A DEVICE IN .Y
  13. ZC01B  JMP PME      ;PRINT IMMEDIATE
  14. ZC01E  JMP DELPCX   ;SCRATCH FILE (PARAMETER NUMBER .X)
  15. ZC021  JMP ZAA71    ;READ DS$. ABORT IF ERROR
  16. ZC024  LDX #SCRSIZ  ;GET SCREEN LINE LENGTH
  17.  RTS
  18. ZC027  JMP GRDY     ;SWITCH ┬┴╙╔├ BACK IN AND GO READY
  19. ZC02A  JMP GETDEF   ;GET DEFAULT DRIVE LETTER INTO .A
  20. ZC02D  JMP SETDEF   ;SET DEFAULT DRIVE FROM LETTER IN .A (SEC IF ERROR)
  21. ZC030  JMP COLOR    ;SET SCREEN COLORS
  22. ZC033  RTS
  23.        NOP
  24.        NOP
  25. SECOND JMP JSECND   ;THESE ARE USED TO READ THE DISK ERROR CHANNEL, AND
  26. TKSA   JMP JTKSA    ;TO SEND DISK COMMANDS. ╘HEY HAVE BEEN MODIFIED
  27. ACPTR  JMP JACPTR   ;SLIGHTLY TO INTERCEPT UNIT 14 (M:) AND TREAT IT
  28. CIOUT  JMP JCIOUT   ;A LITTLE DIFFERENTLY IN ORDER TO ACCOMMODATE ├┬═'S
  29. UNTLK  JMP JUNTLK   ;1764 ╥┴═ DISK. ╘ESTING WAS DONE WITH ╥┴═─╧╙111286
  30. UNLSN  JMP JUNLSN   ;VERSION 3.2   ╔F YOU'RE HAVING TROUBLE WITH SOME
  31. LISTEN JMP JLISTN   ;NON-STANDARD (IF THERE IS SUCH A THING) ├┬═ DRIVE
  32. TALK   JMP JTALK    ;TRY FIDDLING WITH THESE
  33. ;
  34. ;
  35. COLOR LDA #0
  36.  STA $D020
  37.  LDA #0
  38.  STA $D021
  39.  LDA #""
  40.  JMP CHROUT
  41. ;
  42. DRIVES  .ASC "0101010101010101"
  43. UNITS   .BYT 8, 8, 9, 9, 10, 10, 11, 11, 12, 12, 13, 13
  44.         .BYT 14, 14, 15, 15
  45. ;
  46. PTRDV   .BYT 4     ;PRINTER DEVICE NUMBER
  47. PTRSA   .BYT $67   ;PRINTER ╙┴ OR'D WITH $60
  48. DEFALT  .BYT "A"   ;DEFAULT DRIVE
  49. UNIT    .BYT 9     ;DEFAULT UNIT NUMBER
  50. DATE    .WOR $0021 ;DEFAULT DATE (010180) ═╙-─╧╙ FORMAT
  51. ;
  52. DISKQ CMP #"A"     ;CHECK FOR VALID DRIVE LETTER
  53.  BCC DQS           ;TOO LOW
  54.  CMP #"Q"
  55.  RTS
  56. DQS SEC            ;CARRY MEANS BAD DRIVE LETTER
  57.  RTS
  58. ;
  59. GETDFL LDA DEFALT
  60. GETDEV JSR DISKQ   ;ABORT IF INVALID DRIVE LETTER
  61.  BCS DQS
  62.  SEC               ;CONVERT DRIVE LETTER TO DR,DV
  63.  SBC #"A"
  64.  STX T03+1
  65.  TAX
  66.  LDA UNITS,X
  67.  TAY
  68.  LDA DRIVES,X
  69. T03 LDX #0
  70.  CLC
  71. T033 RTS
  72. ;
  73.  .END
  74.