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 / MBUG / MBUG039.ARC / MBOOT.ASM < prev    next >
Assembly Source File  |  1979-12-31  |  7KB  |  456 lines
  1. ;
  2. ; MBOOT.ASM ver 3.1
  3. ; (revised 8 Jun 82 by Bill Bolton)
  4. ;
  5. ;MODEM BOOT PROGRAM by Keith Petersen, W8SDZ.
  6. ;Thanks to John Taylor for idea of incorporating
  7. ;simple terminal routine.  Based on MODEM.ASM V2.0,
  8. ;by Ward Christensen with enhancements from MODEM527.
  9. ;
  10. ;CP/M - CP/M file transfer program (receive-only)
  11. ;
  12. ;This program is intended for use as a way to
  13. ;initially transfer MODEM.COM or MODEM.ASM to
  14. ;a new user.  It may be used with almost any
  15. ;modem (see equates).
  16. ;
  17. ;A simple terminal routine at start of program allows
  18. ;user to communicate with a remote system prior to
  19. ;receiving a file to make it possible to down-load
  20. ;a file without intervention on the part of the host
  21. ;system's operator.
  22. ;
  23. ;COMMANDS:  MBOOT FILENAME.FILETYPE
  24. ; or  MBOOT A:FILENAME.FILETYPE
  25. ; or  MBOOT B:FILENAME.FILETYPE
  26. ;
  27. ;The program will operate as a dumb terminal until
  28. ;an 'ESC' key is typed (ctrl-[).  It then branches
  29. ;to the receive routine.  The user may also exit
  30. ;to CP/M without opening the receive file by typing
  31. ;ctrl-E from the terminal.  The values for the escape
  32. ;and exit keys may be changed in accordance with the
  33. ;needs of the user - some keyboards do not have the
  34. ;'ESC' key and/or provision for control characters.
  35. ;See equates.
  36. ;
  37. ;NOTE: Comments for the source code and tabs have been
  38. ;removed to make this file easier to transport from one
  39. ;system to another. It may look strange but will assemble
  40. ;OK (KBP)
  41. ;
  42. FALSE EQU 0
  43. TRUE  EQU NOT FALSE
  44. ;
  45. STDCPM EQU TRUE  ;TRUE, IS STANDARD CP/M
  46. ALTCPM EQU FALSE ;TRUE, IS ALTERNATE CP/M FOR H8 OR TRS80
  47. ;
  48.  IF STDCPM
  49. BASE EQU 0
  50.  ENDIF
  51. ;
  52.  IF ALTCPM
  53. BASE EQU 4200H
  54.  ENDIF
  55. ;èEXITCHR EQU 05H ;CTL-E TO EXIT TERM MODE TO CP/M
  56. ESC     EQU 1BH ;ESCAPE TO EXIT TERM MODE TO FILE RCVE
  57. ;
  58. SPEED EQU 2     ;CPU speed in Mhz (to nearest Mhz)
  59. ;
  60. ;CHANGE THESE EQUATES FOR YOUR MODEM PORT REQUIREMENTS
  61. ;
  62. INITREQ EQU FALSE ;TRUE, IF MODEM PORT INITIALISATION REQUIRED
  63. ;
  64. MODSTAT EQU 0EAH ;PUT YOUR  UART STATUS PORT HERE
  65. MODSNDB EQU 40H ;YOUR BIT TO TEST FOR SEND
  66. MODSNDR EQU 40H ;YOUR VALUE WHEN READY
  67. MODRCVB EQU 80H ;YOUR BIT TO TEST FOR RECEIVE
  68. MODRCVR EQU 80H ;YOUR VALUE WHEN READY
  69. MODDATA EQU 0EBH ;YOUR MODEM DATA PORT
  70. ;
  71. ;
  72. ERRLIM EQU 10
  73. ;
  74. SOH EQU 1
  75. EOT EQU 4
  76. ACK EQU 6
  77. NAK EQU 15H
  78. CAN EQU 18H
  79. LF  EQU 10
  80. CR  EQU 13
  81. ; 
  82. BDOS EQU BASE+5
  83. FCB  EQU BASE+5CH
  84. ;
  85.  ORG BASE+100H
  86. ;
  87.  LXI H,0
  88.  DAD SP
  89.  SHLD STACK
  90.  LXI SP,STACK
  91.  CALL INITADR
  92.  CALL ILPRT
  93.  DB 'MBOOT 3.1 as of '
  94.  DB '08/Jun/82',CR,LF,0
  95.  LDA FCB+1
  96.  CPI ' '
  97.  JNZ TERMI
  98.  CALL ILPRT
  99.  DB '++NO FILE NAME SPECIFIED++',CR,LF,0
  100.  JMP EXIT
  101. ;
  102. TERMI CALL INITMOD
  103.  IN MODDATA
  104.  IN MODDATA
  105.  CALL ILPRT
  106.  DB CR,LF,'TERMINAL MODE',CR,LF
  107.  DB 'CTL-E exits to CP/M, ESC starts file transfer'
  108.  DB CR,LF,0
  109. ;èTERM CALL STAT
  110.  JZ TERML
  111.  CALL KEYIN
  112.  CPI EXITCHR
  113.  JZ EXIT
  114.  CPI ESC
  115.  JZ RCVFIL
  116.  OUT MODDATA
  117. ;
  118. TERML IN MODSTAT
  119.  ANI MODRCVB
  120.  CPI MODRCVR
  121.  JNZ TERM
  122.  IN MODDATA
  123.  ANI 7FH
  124.  CALL TYPE
  125.  JMP TERM
  126. ;
  127. RCVFIL CALL ERASFIL
  128.  CALL MAKEFIL
  129.  CALL ILPRT
  130.  DB 'FILE OPEN, READY TO RECEIVE',CR,LF,0
  131. ;
  132. RCVLP CALL RCVSECT
  133.  JC RCVEOT
  134.  CALL WRSECT
  135.  CALL INCRSNO
  136.  CALL SENDACK
  137.  JMP RCVLP
  138. ;
  139. RCVEOT CALL WRBLOCK
  140.  CALL SENDACK
  141.  CALL CLOSFIL
  142.  CALL ERXIT
  143.  DB CR,LF,'TRANSFER COMPLETE$' 
  144. ;
  145. RCVSECT XRA A
  146.  STA ERRCT
  147. ;
  148. RCVRPT MVI B,SPEED*10
  149.  CALL RECV
  150.  JC RCVSERR
  151.  CPI SOH
  152.  JZ RCVSOH
  153.  ORA A
  154.  JZ RCVRPT
  155.  CPI EOT
  156.  STC
  157.  RZ
  158. ;
  159. RCVSERR MVI B,SPEED
  160.  CALL RECV
  161.  JNC RCVSERR
  162.  MVI A,NAK
  163.  CALL SENDè LDA ERRCT
  164.  INR A
  165.  STA ERRCT
  166.  CPI ERRLIM
  167.  JC RCVRPT
  168. ;
  169. RCVSABT CALL CLOSFIL
  170.  CALL ERXIT
  171.  DB '++UNABLE TO RECEIVE BLOCK'
  172.  DB CR,LF,'++ABORTING++$'
  173. ;
  174. RCVSOH MVI B,SPEED
  175.  CALL RECV
  176.  JC RCVSERR
  177.  MOV D,A
  178.  MVI B,SPEED
  179.  CALL RECV
  180.  JC RCVSERR
  181.  CMA
  182.  CMP D
  183.  JZ RCVDATA
  184.  JMP RCVSERR
  185. ;
  186. RCVDATA MOV A,D
  187.  STA RCVSNO
  188.  MVI C,0
  189.  LXI H,BASE+80H
  190. ;
  191. RCVCHR MVI B,SPEED
  192.  CALL RECV
  193.  JC RCVSERR
  194.  MOV M,A
  195.  INR L
  196.  JNZ RCVCHR
  197.  MOV D,C
  198.  MVI B,SPEED
  199.  CALL RECV
  200.  JC RCVSERR
  201.  CMP D
  202.  JNZ RCVSERR
  203.  LDA RCVSNO
  204.  MOV B,A
  205.  LDA SECTNO
  206.  CMP B
  207.  JZ RECVACK
  208.  INR A
  209.  CMP B
  210.  JNZ ABORT
  211.  RET
  212. ;
  213. RECVACK CALL SENDACK
  214.  JMP RCVSECT
  215. ;
  216. SENDACK MVI A,ACK
  217. ;èSEND PUSH PSW
  218.  ADD C
  219.  MOV C,A
  220. ;
  221. SENDW IN MODSTAT
  222.  ANI MODSNDB
  223.  CPI MODSNDR
  224.  JNZ SENDW
  225.  POP PSW
  226.  OUT MODDATA
  227.  RET
  228. ;
  229. ABORT LXI SP,STACK
  230. ;
  231. ABORTL MVI B,SPEED
  232.  CALL RECV
  233.  JNC ABORTL
  234.  MVI A,CAN
  235.  CALL SEND
  236. ;
  237. ABORTW MVI B,1
  238.  CALL RECV
  239.  JNC ABORTW
  240.  MVI A,' '
  241.  CALL SEND
  242.  CALL ERXIT
  243.  DB 'MBOOT PROGRAM CANCELLED$'
  244. ;
  245. INCRSNO LDA SECTNO
  246.  INR A
  247.  STA SECTNO
  248.  RET
  249. ;
  250. ERASFIL LXI D,FCB
  251.  MVI C,17
  252.  CALL BDOS
  253.  INR A
  254.  RZ
  255.  CALL ILPRT
  256.  DB '++FILE EXISTS, TYPE Y TO ERASE: ',0
  257.  CALL KEYIN
  258.  PUSH PSW
  259.  CALL TYPE
  260.  CALL CRLF
  261.  POP PSW
  262.  ANI 5FH
  263.  CPI 'Y'
  264.  JNZ MXIT
  265.  LXI D,FCB
  266.  MVI C,19
  267.  JMP BDOS
  268. ;
  269. MAKEFIL LXI D,FCB
  270.  MVI C,22
  271.  CALL BDOSè INR A
  272.  RNZ
  273.  CALL ERXIT
  274.  DB '++ERROR - CAN''T MAKE FILE',CR,LF
  275.  DB '++DIRECTORY MUST BE FULL$'
  276. ;
  277. CLOSFIL LXI D,FCB
  278.  MVI C,16
  279.  CALL BDOS
  280.  INR A
  281.  RNZ
  282.  CALL ERXIT
  283.  DB '++CAN''T CLOSE FILE$'
  284. ;
  285. WRSECT LHLD SECPTR
  286.  XCHG
  287.  LXI H,BASE+80H
  288.  CALL MOVE128
  289.  XCHG
  290.  SHLD SECPTR
  291.  LDA SECINBF
  292.  INR A
  293.  STA SECINBF
  294.  CPI 16
  295.  RNZ
  296. ;
  297. WRBLOCK LDA SECINBF
  298.  ORA A
  299.  RZ
  300.  MOV C,A
  301.  LXI D,DBUF
  302. ;
  303. DKWRLP PUSH H
  304.  PUSH D
  305.  PUSH B
  306.  MVI C,26
  307.  CALL BDOS
  308.  LXI D,FCB
  309.  MVI C,21
  310.  CALL BDOS
  311.  POP B
  312.  POP D
  313.  POP H
  314.  ORA A
  315.  JNZ WRERR
  316.  LXI H,80H
  317.  DAD D
  318.  XCHG
  319.  DCR C
  320.  JNZ DKWRLP
  321.  XRA A
  322.  STA SECINBF
  323.  LXI H,DBUF
  324.  SHLD SECPTR
  325. ;èRSDMA LXI D,BASE+80H
  326.  MVI C,26
  327.  JMP BDOS
  328. ;
  329. WRERR CALL RSDMA
  330.  CALL ILPRT
  331.  DB '++ERROR WRITING FILE',CR,LF,0
  332.  JMP ABORT
  333. ;
  334. RECV PUSH D
  335. MSEC LXI D,12500
  336. ;
  337. MWTI IN MODSTAT
  338.  ANI MODRCVB
  339.  CPI MODRCVR
  340.  JZ MCHAR
  341.  DCR E
  342.  JNZ MWTI
  343.  DCR D
  344.  JNZ MWTI
  345.  DCR B
  346.  JNZ MSEC
  347.  POP D
  348.  STC
  349.  RET
  350. ;
  351. MCHAR IN MODDATA
  352.  POP D
  353.  PUSH PSW
  354.  ADD C
  355.  MOV C,A
  356.  POP PSW
  357.  ORA A
  358.  RET
  359. ;
  360. INITADR LHLD BASE+1
  361.  LXI D,3
  362.  DAD D
  363.  SHLD VSTAT+1
  364.  DAD D
  365.  SHLD VKEYIN+1
  366.  DAD D
  367.  SHLD VTYPE+1
  368.  RET
  369. ;
  370. INITMOD EQU $
  371. ;
  372.  IF INITREQ     ;Insert any UART initialisation code here
  373.  ENDIF
  374. ;
  375. ;
  376.  RET  ;<--THIS RET MUST BE HERE
  377. ;
  378. CRLF MVI A,CR
  379.  CALL TYPEè MVI A,LF
  380. ;
  381. TYPE PUSH PSW
  382.  PUSH B
  383.  PUSH D
  384.  PUSH H
  385.  MOV C,A
  386. VTYPE CALL $-$
  387.  POP H
  388.  POP D
  389.  POP B
  390.  POP PSW
  391.  RET
  392. ;
  393. STAT PUSH B
  394.  PUSH D
  395.  PUSH H
  396. VSTAT CALL $-$
  397.  POP H
  398.  POP D
  399.  POP B
  400.  ORA A
  401.  RET
  402. ;
  403. KEYIN PUSH B
  404.  PUSH D
  405.  PUSH H
  406. VKEYIN CALL $-$
  407.  POP H
  408.  POP D
  409.  POP B
  410.  ANI 7FH
  411.  RET
  412. ;
  413. ILPRT XTHL
  414. ;
  415. ILPLP MOV A,M
  416.  ORA A
  417.  JZ ILPRET
  418.  CALL TYPE
  419.  INX H
  420.  JMP ILPLP
  421. ;
  422. ILPRET XTHL
  423.  RET
  424. ;
  425. ERXIT POP D
  426.  MVI C,9
  427.  CALL BDOS
  428. ;
  429. MXIT CALL ILPRT
  430.  DB CR,LF,'DON''T FORGET TO DISCONNECT MODEM'
  431.  DB CR,LF,0
  432. ;
  433. EXIT LHLD STACKè SPHL
  434.  RET
  435. ;
  436. MOVE128 MVI B,128
  437. ;
  438. MOVE MOV A,M
  439.  STAX D
  440.  INX H
  441.  INX D
  442.  DCR B
  443.  JNZ MOVE
  444.  RET
  445. ;
  446. RCVSNO DB 0
  447. SECTNO DB 0
  448. ERRCT DB 0
  449. EOFLG DB 0
  450. SECPTR DW DBUF
  451. SECINBF DB 0
  452.  DS 60
  453. STACK DS 2
  454. DBUF EQU $
  455. ;
  456.  END             ;END