home *** CD-ROM | disk | FTP | other *** search
/ ftp.barnyard.co.uk / 2015.02.ftp.barnyard.co.uk.tar / ftp.barnyard.co.uk / cpm / walnut-creek-CDROM / CPM / STARTKIT / APMBOOT.ASM < prev    next >
Assembly Source File  |  2000-06-30  |  7KB  |  504 lines
  1. ;
  2. ; APMBOOT.ASM ver 3.0
  3. ; (revised 5 Nov 80)
  4. ;
  5. ; MODIFIED FOR USE ON APPLE W/MMII BY DAVID MORITZ, 2/1/81
  6. ;
  7. ;MODEM BOOT PROGRAM by Keith Petersen, W8SDZ.
  8. ;Thanks to John Taylor for idea of incorporating
  9. ;simple terminal routine.  Based on MODEM.ASM V2.0,
  10. ;by Ward Christensen with enhancements from MODEM527.
  11. ;
  12. ;CP/M - CP/M file transfer program (receive-only)
  13. ;
  14. ;This program is intended for use as a way to
  15. ;initially transfer APMODEM.COM or APMODEM.ASM to
  16. ;A NEW USER.
  17. ;ALL EQUATES, FLAGS AND PORTS ARE SET UP FOR
  18. ;DCH MMII: 'ORIGINATE' MODE, 300BAUD.
  19. ;
  20. ;A simple terminal routine at start of program allows
  21. ;user to communicate with a remote system prior to
  22. ;receiving a file to make it possible to down-load
  23. ;a file without intervention on the part of the host
  24. ;system's operator.
  25. ;
  26. ;COMMANDS:  MBOOT FILENAME.FILETYPE
  27. ; or  MBOOT A:FILENAME.FILETYPE
  28. ; or  MBOOT B:FILENAME.FILETYPE
  29. ;
  30. ;The program will operate as a dumb terminal until
  31. ;an 'ESC' key is typed (ctrl-[).  It then branches
  32. ;to the receive routine.  The user may also exit
  33. ;to CP/M without opening the receive file by typing
  34. ;ctrl-E from the terminal.  The values for the escape
  35. ;and exit keys may be changed in accordance with the
  36. ;needs of the user - some keyboards do not have the
  37. ;'ESC' key and/or provision for control characters.
  38. ;See equates.
  39. ;
  40. ;HOW TO USE APBOOT.ASM: THE PROGRAM IS SHORT ENOUGH
  41. ;TO TYPE IN WITHIN A REASONABLE PERIOD OF TIME.
  42. ;ONCE INSTALLED AS A COM FILE, DIAL A REMOTE SYSTEM
  43. ;CONTAINING A COPY OF APMODEM.ASM(ANY VERSION) AND
  44. ;WHEN THE CARIER IS HEARD TYPE: APMBOOT APMODEM.ASM (CR).
  45. ;THIS WILL TURN ON YOUR MMII IN ORIGINATE MODE AND
  46. ;ALLOW YOU YOU COMMUNICATE WITH THE REMOTE AS A TERMINAL.
  47. ;  THEN TYPE:XMODEM S APMODEM.ASM AND A CR. WHEN THE
  48. ;REMOTE IS PROPERLY INITIATED TOSEND, TYPE AN ESC 
  49. ;AND THE PROGRAM WILL BEGIN TO TRANSFER. THE TRANSFER
  50. ;IS 'QUIET' AND TAKES ABOUT 20 MIN (A GUESS) SO THE 
  51. ;ONLY WAY YOU'LL KNOW THE PROGRAM WORKS IS BY WATCHING
  52. ;FOR THE DISK ACCESS LED TO COME ON AS THE BUFFER IS
  53. ;DUMPED TO DISK EVERY 16 SECTORS. IF YOU HAVE ANY 
  54. ;PROBLEMS OR QUESTIONS FEEL FREE TO CONTACT ME.:
  55. ;           DAVID MORITZ
  56. ;           312 384-4762
  57. ;           (24HR MODEM)
  58. ;
  59. ;NOTE: Comments for the source code and tabs have been
  60. ;removed to make this file easier to transport from one
  61. ;system to another.  (KBP)
  62. ;  NOTE:IF TYPING IN PROG..BEGINHERE:
  63. ;
  64. FALSE EQU 0
  65. TRUE  EQU NOT FALSE
  66. ;
  67. ;
  68. BASE EQU 0
  69. ;
  70. ;
  71. EXITCHR EQU 05H ;CTL-E TO EXIT TERM MODE TO CP/M
  72. ESC     EQU 1BH ;ESCAPE TO EXIT TERM MODE TO FILE RCVE
  73. ;
  74. FASTCLK EQU FALSE ;TRUE FOR 4 MHZ CLOCK
  75. ;
  76. ;
  77. ;IF YOU ARE USING AN EXTERNAL MODEM (NOT S-100 PLUG-IN)
  78. ;CHANGE THESE EQUATES FOR YOUR MODEM PORT REQUIREMENTS
  79. ;
  80. ;
  81. ;
  82. ;
  83. MODCTLP EQU 0E0A6H
  84. MODSNDB EQU 2
  85. MODSNDR EQU 2
  86. MODRCVB EQU 1
  87. MODRCVR EQU 1
  88. MODDATP EQU 0E0A7H
  89. MODCTL2 EQU 0E0A5H
  90. ORIGMOD EQU 8FH
  91. ANSWMOD EQU 8AH
  92. ;
  93. ERRLIM EQU 10
  94. ;
  95. SOH EQU 1
  96. EOT EQU 4
  97. ACK EQU 6
  98. NAK EQU 15H
  99. CAN EQU 18H
  100. LF  EQU 10
  101. CR  EQU 13
  102. ; 
  103. BDOS EQU BASE+5
  104. FCB  EQU BASE+5CH
  105. ;
  106.  ORG BASE+100H
  107. ;
  108.  LXI H,0
  109.  DAD SP
  110.  SHLD STACK
  111.  LXI SP,STACK
  112.  CALL INITADR
  113.  CALL ILPRT
  114.  DB 'APMBOOT as of '
  115.  DB '2/1/81',CR,LF,0
  116.  LDA FCB+1
  117.  CPI ' '
  118.  JNZ TERMI
  119.  CALL ILPRT
  120.  DB '++NO FILE NAME SPECIFIED++',CR,LF,0
  121.  JMP EXIT
  122. ;
  123. TERMI CALL INITMOD
  124.  LDA MODDATP
  125.  LDA MODDATP
  126.  CALL ILPRT
  127.  DB CR,LF,'TERMINAL MODE',CR,LF
  128.  DB 'CTL-E exits to CP/M, ESC starts file transfer'
  129.  DB CR,LF,0
  130. ;
  131. TERM CALL STAT
  132.  JZ TERML
  133.  CALL KEYIN
  134.  CPI EXITCHR
  135.  JZ EXIT
  136.  CPI ESC
  137.  JZ RCVFIL
  138.  STA MODDATP
  139. ;
  140. ;
  141. TERML LDA MODCTLP
  142. ;
  143.  ANI MODRCVB
  144.  CPI MODRCVR
  145.  JNZ TERM
  146.  LDA MODDATP
  147.  ANI 7FH
  148.  CALL TYPE
  149.  JMP TERM
  150. ;
  151. RCVFIL CALL ERASFIL
  152.  CALL MAKEFIL
  153.  CALL ILPRT
  154.  DB 'FILE OPEN, READY TO RECEIVE',CR,LF,0
  155. ;
  156. RCVLP CALL RCVSECT
  157.  JC RCVEOT
  158.  CALL WRSECT
  159.  CALL INCRSNO
  160.  CALL SENDACK
  161.  JMP RCVLP
  162. ;
  163. RCVEOT CALL WRBLOCK
  164.  CALL SENDACK
  165.  CALL CLOSFIL
  166.  CALL ERXIT
  167.  DB CR,LF,'TRANSFER COMPLETE$' 
  168. ;
  169. RCVSECT XRA A
  170.  STA ERRCT
  171. ;
  172. RCVRPT MVI B,10
  173.  CALL RECV
  174.  JC RCVSERR
  175.  CPI SOH
  176.  JZ RCVSOH
  177.  ORA A
  178.  JZ RCVRPT
  179.  CPI EOT
  180.  STC
  181.  RZ
  182. ;
  183. RCVSERR MVI B,1
  184.  CALL RECV
  185.  JNC RCVSERR
  186.  MVI A,NAK
  187.  CALL SEND
  188.  LDA ERRCT
  189.  INR A
  190.  STA ERRCT
  191.  CPI ERRLIM
  192.  JC RCVRPT
  193. ;
  194. RCVSABT CALL CLOSFIL
  195.  CALL ERXIT
  196.  DB '++UNABLE TO RECEIVE BLOCK'
  197.  DB CR,LF,'++ABORTING++$'
  198. ;
  199. RCVSOH MVI B,1
  200.  CALL RECV
  201.  JC RCVSERR
  202.  MOV D,A
  203.  MVI B,1
  204.  CALL RECV
  205.  JC RCVSERR
  206.  CMA
  207.  CMP D
  208.  JZ RCVDATA
  209.  JMP RCVSERR
  210. ;
  211. RCVDATA MOV A,D
  212.  STA RCVSNO
  213.  MVI C,0
  214.  LXI H,BASE+80H
  215. ;
  216. RCVCHR MVI B,1
  217.  CALL RECV
  218.  JC RCVSERR
  219.  MOV M,A
  220.  INR L
  221.  JNZ RCVCHR
  222.  MOV D,C
  223.  MVI B,1
  224.  CALL RECV
  225.  JC RCVSERR
  226.  CMP D
  227.  JNZ RCVSERR
  228.  LDA RCVSNO
  229.  MOV B,A
  230.  LDA SECTNO
  231.  CMP B
  232.  JZ RECVACK
  233.  INR A
  234.  CMP B
  235.  JNZ ABORT
  236.  RET
  237. ;
  238. RECVACK CALL SENDACK
  239.  JMP RCVSECT
  240. ;
  241. SENDACK MVI A,ACK
  242. ;
  243. SEND PUSH PSW
  244.  ADD C
  245.  MOV C,A
  246. ;
  247. ;
  248. SENDW LDA MODCTLP
  249. ;
  250.  ANI MODSNDB
  251.  CPI MODSNDR
  252.  JNZ SENDW
  253.  POP PSW
  254.  STA MODDATP
  255.  RET
  256. ;
  257. ABORT LXI SP,STACK
  258. ;
  259. ABORTL MVI B,1
  260.  CALL RECV
  261.  JNC ABORTL
  262.  MVI A,CAN
  263.  CALL SEND
  264. ;
  265. ABORTW MVI B,1
  266.  CALL RECV
  267.  JNC ABORTW
  268.  MVI A,' '
  269.  CALL SEND
  270.  CALL ERXIT
  271.  DB 'APMBOOT PROGRAM CANCELLED$'
  272. ;
  273. INCRSNO LDA SECTNO
  274.  INR A
  275.  STA SECTNO
  276.  RET
  277. ;
  278. ERASFIL LXI D,FCB
  279.  MVI C,17
  280.  CALL BDOS
  281.  INR A
  282.  RZ
  283.  CALL ILPRT
  284.  DB '++FILE EXISTS, TYPE Y TO ERASE: ',0
  285.  CALL KEYIN
  286.  PUSH PSW
  287.  CALL TYPE
  288.  CALL CRLF
  289.  POP PSW
  290.  ANI 5FH
  291.  CPI 'Y'
  292.  JNZ MXIT
  293.  LXI D,FCB
  294.  MVI C,19
  295.  JMP BDOS
  296. ;
  297. MAKEFIL LXI D,FCB
  298.  MVI C,22
  299.  CALL BDOS
  300.  INR A
  301.  RNZ
  302.  CALL ERXIT
  303.  DB '++ERROR - CAN''T MAKE FILE',CR,LF
  304.  DB '++DIRECTORY MUST BE FULL$'
  305. ;
  306. CLOSFIL LXI D,FCB
  307.  MVI C,16
  308.  CALL BDOS
  309.  INR A
  310.  RNZ
  311.  CALL ERXIT
  312.  DB '++CAN''T CLOSE FILE$'
  313. ;
  314. WRSECT LHLD SECPTR
  315.  XCHG
  316.  LXI H,BASE+80H
  317.  CALL MOVE128
  318.  XCHG
  319.  SHLD SECPTR
  320.  LDA SECINBF
  321.  INR A
  322.  STA SECINBF
  323.  CPI 16
  324.  RNZ
  325. ;
  326. WRBLOCK LDA SECINBF
  327.  ORA A
  328.  RZ
  329.  MOV C,A
  330.  LXI D,DBUF
  331. ;
  332. DKWRLP PUSH H
  333.  PUSH D
  334.  PUSH B
  335.  MVI C,26
  336.  CALL BDOS
  337.  LXI D,FCB
  338.  MVI C,21
  339.  CALL BDOS
  340.  POP B
  341.  POP D
  342.  POP H
  343.  ORA A
  344.  JNZ WRERR
  345.  LXI H,80H
  346.  DAD D
  347.  XCHG
  348.  DCR C
  349.  JNZ DKWRLP
  350.  XRA A
  351.  STA SECINBF
  352.  LXI H,DBUF
  353.  SHLD SECPTR
  354. ;
  355. RSDMA LXI D,BASE+80H
  356.  MVI C,26
  357.  JMP BDOS
  358. ;
  359. WRERR CALL RSDMA
  360.  CALL ILPRT
  361.  DB '++ERROR WRITING FILE',CR,LF,0
  362.  JMP ABORT
  363. ;
  364. RECV PUSH D
  365. ;
  366. ;
  367. MSEC LXI D,50000
  368. ;
  369. ;
  370. MWTI LDA MODCTLP
  371. ;
  372.  ANI MODRCVB
  373.  CPI MODRCVR
  374.  JZ MCHAR
  375.  DCR E
  376.  JNZ MWTI
  377.  DCR D
  378.  JNZ MWTI
  379.  DCR B
  380.  JNZ MSEC
  381.  POP D
  382.  STC
  383.  RET
  384. ;
  385. MCHAR LDA MODDATP
  386.  POP D
  387.  PUSH PSW
  388.  ADD C
  389.  MOV C,A
  390.  POP PSW
  391.  ORA A
  392.  RET
  393. ;
  394. INITADR LHLD BASE+1
  395.  LXI D,3
  396.  DAD D
  397.  SHLD VSTAT+1
  398.  DAD D
  399.  SHLD VKEYIN+1
  400.  DAD D
  401.  SHLD VTYPE+1
  402.  RET
  403. ;
  404. INITMOD EQU $
  405. ;
  406. ;
  407. ;
  408.  MVI A,15H
  409.  STA MODCTLP
  410. ;
  411. ;
  412.  LXI H,4000
  413. ;
  414. OFFDLY DCR L
  415.  JNZ OFFDLY
  416.  DCR H
  417.  JNZ OFFDLY
  418.  MVI A,ORIGMOD 
  419.  STA MODCTL2
  420. ;
  421.  RET  ;<--THIS RET MUST BE HERE
  422. ;
  423. CRLF MVI A,CR
  424.  CALL TYPE
  425.  MVI A,LF
  426. ;
  427. TYPE PUSH PSW
  428.  PUSH B
  429.  PUSH D
  430.  PUSH H
  431.  MOV C,A
  432. VTYPE CALL $-$
  433.  POP H
  434.  POP D
  435.  POP B
  436.  POP PSW
  437.  RET
  438. ;
  439. STAT PUSH B
  440.  PUSH D
  441.  PUSH H
  442. VSTAT CALL $-$
  443.  POP H
  444.  POP D
  445.  POP B
  446.  ORA A
  447.  RET
  448. ;
  449. KEYIN PUSH B
  450.  PUSH D
  451.  PUSH H
  452. VKEYIN CALL $-$
  453.  POP H
  454.  POP D
  455.  POP B
  456.  ANI 7FH
  457.  RET
  458. ;
  459. ILPRT XTHL
  460. ;
  461. ILPLP MOV A,M
  462.  ORA A
  463.  JZ ILPRET
  464.  CALL TYPE
  465.  INX H
  466.  JMP ILPLP
  467. ;
  468. ILPRET XTHL
  469.  RET
  470. ;
  471. ERXIT POP D
  472.  MVI C,9
  473.  CALL BDOS
  474. ;
  475. MXIT CALL ILPRT
  476.  DB CR,LF,'DON''T FORGET TO DISCONNECT MODEM'
  477.  DB CR,LF,0
  478. ;
  479. EXIT LHLD STACK
  480.  SPHL
  481.  RET
  482. ;
  483. MOVE128 MVI B,128
  484. ;
  485. MOVE MOV A,M
  486.  STAX D
  487.  INX H
  488.  INX D
  489.  DCR B
  490.  JNZ MOVE
  491.  RET
  492. ;
  493. RCVSNO DB 0
  494. SECTNO DB 0
  495. ERRCT DB 0
  496. EOFLG DB 0
  497. SECPTR DW DBUF
  498. SECINBF DB 0
  499.  DS 60
  500. STACK DS 2
  501. DBUF EQU $
  502. ;
  503.  END
  504.