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 / SIMTEL / CPMUG / CPMUG008.ARK / PBURN.ASM < prev    next >
Assembly Source File  |  1984-04-29  |  1KB  |  66 lines
  1. ;
  2. ;   PROM BURNER (FOR BYTESAVER 2708/1K PROMS)
  3. ;
  4. BRNLPS   EQU  128       ; 128*.8MS>=100MS PGMING TIME
  5. ;
  6.          ORG  100H
  7.          JMP  PBURN
  8.          NOP
  9. RAM:     DW   200H        ; FROM (IN RAM)
  10. ROM:     DW   0FC00H       ;  TO (IN ROM) ON LAST PROM
  11. SIZE:    DB   1            ;  'K' TO BURN
  12. BCNT:    DB   0  
  13. ;
  14. SETADR:
  15.          LHLD ROM
  16.          XCHG              ; DE:=ROM ADDRESS
  17.          LHLD RAM          ; HL:=RAM ADDRESS
  18.          LDA  SIZE
  19.          ADD  A
  20.          ADD  A            ;  *4 TO CONVERT TO 'K'
  21.          MOV  B,A
  22.          MVI  C,0           ; BC:=SIZE TO  BURN
  23.           RET
  24. ;
  25. PBURN:    XRA  A
  26.           LXI  SP,STAK
  27. ;
  28. PBLP:     STA  BCNT
  29.           CALL SETADR
  30. ;
  31. PBLPP:   MOV  A,M
  32.          STAX D
  33.          INX  D
  34.          INX  H
  35. ;
  36.          DCX  B
  37.          MOV  A,B
  38.          ORA  C
  39.          JNZ  PBLPP
  40. ;                         TEST FOR ENOUGH PASSES
  41.          LDA  BCNT
  42.          INR  A
  43.          OUT  255        ; SHOW WHAT PASS I'M ON TO THE WORLD
  44.          CPI  BRNLPS
  45.          JNZ  PBLP
  46. ;
  47. ; 
  48. ;              VERIFY PASS
  49. ;
  50.          CALL SETADR
  51. VLP:     LDAX D
  52.          CMP  M
  53.          JZ   VOK
  54.          RST  7            ;    BAD DATA
  55.          ;
  56. VOK:     INX  D
  57.          INX  H
  58.          DCX  B
  59.          MOV  A,B
  60.          ORA  C
  61.          JNZ  VLP
  62. ;
  63.          RST  7          ; BREAK TO DDT
  64.          DS   5
  65. STAK:    DS   0
  66.