Subversion Repositories NedoOS

Rev

Rev 539 | Blame | Compare with Previous | Last modification | View Log | Download

  1. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  2. ;; Busy soft ;; 26.11.2018 ;; Tape generating library ;;
  3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
  4.  
  5. ;; Use:
  6. ;;
  7. ;;   .................
  8. ;;   ...your...code...
  9. ;;   .................
  10. ;;   include "TapLib.asm"
  11. ;;   MakeTape <speccy_model>, <tape_file>, <program_name>, <start_address>, <code_length>, <call_address>
  12.  
  13.         MACRO   MakeTape speccy_model, tape_file, prog_name, start_add, code_len, call_add
  14.         DEVICE  speccy_model
  15.  
  16. CODE    =       #AF
  17. USR     =       #C0
  18. LOAD    =       #EF
  19. CLEAR   =       #FD
  20. RANDOMIZE =     #F9
  21.  
  22.         org     #5C00
  23. baszac  db      0,1                     ;; Line number
  24.         dw      linlen                  ;; Line length
  25. linzac
  26.         db      CLEAR,'8',#0E,0,0
  27.         dw      start_add-1
  28.         db      0,':'
  29.         db      LOAD,'"'
  30. codnam  ds      10,32
  31.         org     codnam
  32.         db      prog_name
  33.         org     codnam+10
  34.         db      '"',CODE,':'
  35.         db      RANDOMIZE,USR,'8',#0E,0,0
  36.         dw      call_add
  37.         db      0,#0D
  38. linlen  =       $-linzac
  39. baslen  =       $-baszac
  40.  
  41.         EMPTYTAP tape_file
  42.         SAVETAP  tape_file,BASIC,prog_name,baszac,baslen,1
  43.         SAVETAP  tape_file,CODE,prog_name,start_add,code_len,start_add
  44.  
  45.         ENDM
  46.