File-Manager/MOD1/COPY.Z80
2025-04-04 00:37:36 +10:00

104 lines
2.9 KiB
Plaintext
Executable File

;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ Copy ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
;º º
;º Copy FILENAME.EXT to: º
;º °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° º
;ºÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄĺ
;º [ Copy ] [ Cancel ] º
;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
; ޝ¨á â¥«ì ­ ç «ì­®£® ®ª­  ª®¯¨à®¢ ­¨ï
dial_copy:
dw 0902h,074Ch ; Yo,Xo,lenY,lenX
db "Copy",0 ; â¨â« ®ª­ 
;
db TextLine
dw 0202h ; Yo,Xo
db "Copy "
copy_name:
db "FILENAME.EXT"," to:",0 ; ¨¬ï ä ©«  (®áâ â®ª § ¯. ¯à®¡¥« ¬¨)
;
db HLine
dw 0401h ; Yo,Xo
db 74 ; ¤«¨­  «¨­¨¨
db "Ä" ; ᨬ¢®« § ¯®«­¥­¨ï
;
db Button ; ­®¬¥à ®¡ê¥ªâ 
dw 051Bh ; Yo,Xo
db "[ &Copy ]",0 ; ¨¬ï ¡ãâ®­ 
db 2Ch ; ᪥­-ª®¤ hot-ª« ¢¨è¨
db cmOkey ; ­®¬¥à ª®¬ ­¤ë
db 1 ; ª®­â¥ªáâ
;
db Button ; ­®¬¥à ®¡ê¥ªâ 
dw 0527h ; Yo,Xo
db "[ Ca&ncel ]",0 ; ¨¬ï ¡ãâ®­ 
db 2Fh ; ᪥­-ª®¤ hot-ª« ¢¨è¨
db cmCancel ; ­®¬¥à ª®¬ ­¤ë
db 2 ; ª®­â¥ªáâ
;
db InputLine ; å à ªâ¥à ®¡ê¥ªâ 
dw 0302h ; Yo,Xo
db 72 ; ¤«¨­  áâப¨
db 0 ; ª®­â¥ªáâ
dw input_line_copy ; ¡ãä¥à áâப¨ ¢¢®¤ 
;
db -1 ; ª®­¥æ ®¯¨á â¥«ï
;ÉÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ Copy ÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍ»
;º º
;º Copying the file º
;º FILENAME.EXT to: º
;º A:\FILENAME.EXT º
;º °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° º
;ºÄÄÄÄÄÄÄÄÄÄ Total: 0,000,000,000 ÄÄÄÄÄÄÄÄÄĺ
;º °°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°°° º
;º º
;ÈÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍÍͼ
; ޝ¨á â¥«ì ®ª­  ¯à®æ¥áá  ª®¯¨à®¢ ­¨ï
dial_copy_total_process:
dw 0912h,0A2Ch ; Yo,Xo,lenY,lenX
db "Copy",0 ; â¨â« ®ª­ 
;
db TextLine
dw 0202h ; Yo,Xo
db "Copying the file",0
;
db TextLine
dw 0302h ; Yo,Xo
copy_name1:
db "FILENAME.EXT"," to:",0 ; ¨¬ï ä ©«  (®áâ â®ª § ¯. ¯à®¡¥« ¬¨)
;
db TextLine
dw 0402h ; Yo,Xo
copy_name2:
db 'A:\FILENAME.EXT ',0 ; 34 ¡ ©â 
;
db HLine
dw 0601h ; Yo,Xo
db 42 ; ¤«¨­  «¨­¨¨
db "Ä" ; ᨬ¢®« § ¯®«­¥­¨ï
;
db TextLine
dw 060Bh ; Yo,Xo
db " Total: "
db "0,000,000,000 ",0
; 2-ï «¨­¥©ª  (®¡é ï)
db ProcesLine
dw 0702h ; Y,X ¯®«®¦.
db 40 ; ¤«¨­  «¨­¥©ª¨
dw max_file_bytes1 ;  ¤à¥á ï祩ª¨ á MAX ç¨á«®¬
dw curr_bytes1 ;  ¤à¥á ï祩ª¨ á ⥪. ç¨á«®¬
subrout_process1:
dw copy_file ; á®åà.  ¤à¥á ¯/¯à®£à ¬¬ë ¯à®æ¥áá 
; 1-ï «¨­¥©ª 
db ProcesLine
dw 0502h ; Y,X ¯®«®¦.
db 40 ; ¤«¨­  «¨­¥©ª¨
dw max_file_bytes ;  ¤à¥á ï祩ª¨ á MAX ç¨á«®¬
dw curr_bytes ;  ¤à¥á ï祩ª¨ á ⥪. ç¨á«®¬
subrout_process:
dw copy_file ; á®åà.  ¤à¥á ¯/¯à®£à ¬¬ë ¯à®æ¥áá 
;
db -1 ; ª®­¥æ ®¯¨á â¥«ï