Home » CEEFAX disks » telesoftware16.adl » 19-05-89/Actilog\AS

19-05-89/Actilog\AS

This website contains an archive of files for the Acorn Electron, BBC Micro, Acorn Archimedes, Commodore 16 and Commodore 64 computers, which Dominic Ford has rescued from his private collection of floppy disks and cassettes.

Some of these files were originally commercial releases in the 1980s and 1990s, but they are now widely available online. I assume that copyright over them is no longer being asserted. If you own the copyright and would like files to be removed, please contact me.

Tape/disk: Home » CEEFAX disks » telesoftware16.adl
Filename: 19-05-89/Actilog\AS
Read OK: ✔
File size: 22A4 bytes
Load address: 0000
Exec address: FFFFFFFF
File contents
;**********************************************************
;*                                                        *
;*                    ACTILOG                             *
;*                                                        *
;*              BY   RAY   SMITH  1987                    *
;*                                                        *
;**********************************************************
;
;PURPOSE: CREATES AND UPDATES A TIME/DATE LOG
;ENTRY CONDITIONS: USE ACTILOG n WHERE n IS AN OPTIONAL NOTE UP TO 20
;                  CHARACTERS
;
;RESULT: AN ASCII FILE CALLED ACTIVITY.LOG IS UPDATED WITH DATE, TIME AND NOTE 
;        OBTAINED FROM FIRST TWENTY CHARACTERS OF COMMAND TAIL

;ERRORLEVEL   EQU     1   IF DOS VERSION LOWER THAN 2
;             EQU     2   IF PROBLEMS OPENING FILE
;             EQU     3   IF IMPOSSIBLE TO CREATE FILE FROM SCRATCH
;             EQU     4   IF FILE COULD NOT BE WRITTEN TO

;Equates used by the program
CR            EQU     0DH               ;ASCII carriage return
LF            EQU     0AH               ;ASCII line feed
RECORD_LENGTH EQU     40                ;Length of Data Record

;DOS INTERUPT 21H function calls
@GETDATE      EQU     2AH               ;Get the system date
@GETTIME      EQU     2CH               ;Get the system time
@GETVERS      EQU     30H               ;Get MS-Dos version number
@CREATE       EQU     3CH               ;Create a new file 
@OPEN         EQU     3DH               ;Open a file
@CLOSE        EQU     3EH               ;Close a file
@WRITE        EQU     40H               ;Write to a file
@MOVEPOINTER  EQU     42H               ;Move filepointer
@TERMINATE    EQU     4CH               ;Terminate and return to Dos.


;START OF MAIN PROGRAM
;*********************
START         PROC    NEAR

              MOV     AH,@GETVERS       ;Get MS-Dos Version No.
              INT     21H
              CMP     AL,2              ;is it version 2 or Greater?
              JGE     OPEN_FILE         ;if so, continue, else put the
              MOV     AL,1              ;Return code in AL register
              JMPS    EXIT              ;and exit from program

OPEN_FILE     MOV     AL,01H            ;access mode = write only
              LEA     DX,FILENAME       ;Address of file name                  
              MOV     AH,@OPEN          ;Open an ASCIIZ file specificaton
              INT     21H               ;CALL DOS
              JNC     OPEN_OK           ;carryflag is set if open failed
              CMP     AL,2              ;Check if failure for non-exist file
              JE      CREATE_FILE       ;File does not exist so create it,
              MOV     AL,2              ;otherwise put the return code in
              JMPS    EXIT              ;the AL register and exit program

CREATE_FILE   MOV     CX,0              ;File attribute normal
              LEA     DX,FILENAME       ;get offset of ASCIIZ file spec 
              MOV     AH,@CREATE        ;and create a new file
              INT     21H               ;CALL DOS
              JNC     OPEN_OK           ;continue if creation was ok
              MOV     AL,3              ;otherwise put the return code in
              JMPS    EXIT              ;the AL register and exit program

OPEN_OK       MOV     HANDLE,AX         ;Store the DOS handle, and continue  

;Now set the pointer to the end of the file, ready for next entry.

SET_POINTER   MOV     CX,0              ;Most significant half of offset
              MOV     DX,0              ;Least significant half of offset
              MOV     BX,HANDLE         ;get the file handle
              MOV     AL,2              ;Method 'from end of file'
              MOV     AH,@MOVEPOINTER   ;set pointer to end of file
              INT     21H               ;CALL DOS

              CALL    GET_DATA          ;now construct the data buffer
                                        ;and write the record from there
WRITE_RECORD  LEA     DX,DAY            ;get data address
              MOV     CX,RECORD_LENGTH  ;length of record to be written
              MOV     BX,HANDLE         ;get the file handle
              MOV     AH,@WRITE         ;write function
              INT     21H               ;CALL DOS
              JC      WRITE_FAILED      ;carry flag set indicates failure
              CMP     AX,RECORD_LENGTH  ;was the full record written?
              JE      WRITE_OK          ;if so, exit, 

WRITE_FAILED  CALL    CLOSE_FILE        ;otherwise close the file
              MOV     AL,4              ;but set ERRORLEVEL 4
              JMPS    EXIT              ;and exit

WRITE_OK      CALL    CLOSE_FILE        ;write was succesful, so close file
              MOV     AL,0              ;set ERRORLEVEL 0

EXIT          MOV     AH,@TERMINATE     ;Exit program with return code
              INT     21H               ;Transfer to DOS

              ENDP                      ;END OF MAIN PROGRAM

;SUBROUTINES
;***********
CLOSE_FILE    PROC    NEAR              ;subroutine to close file handlle
              MOV     BX,HANDLE         ;get handle
              CMP     BX,0              ;check it is not zero
              JE      EXIT_CLOSE        ;if it is, do NOT close it
              MOV     AH,@CLOSE         ;function to close handle
              INT     21H               ;CALL DOS
EXIT_CLOSE    RET                       ;end of subroutine
              ENDP

GET_DATA      PROC    NEAR              ;Writes data into record area
              MOV     AH,@GETDATE       ;Get the system date
              INT     21H               ;CALL DOS
              MOV     AL,DL             ;DOS days number
              AAM                       ;split into two digits
              XCHG    AL,AH             ;and swap them into correct order
              OR      [OFFSET(DAY)],AX  ;write into data area
              MOV     AL,DH             ;DOS month number
              AAM                       ;split into two digits
              XCHG    AL,AH             ;and swap them into correct order
              OR      [OFFSET(MONTH)],AX ;Write into data area
              MOV     AX,CX             ;DOS year number
              SUB     AX,1900           ;Subtract 1900 to get last two digits
              AAM                       ;split into two digits
              XCHG    AL,AH             ;and swap them into correct order
              OR      [OFFSET(YEAR)],AX ;write into data area
              MOV     AH,@GETTIME       ;Get the system time
              INT     21H               ;CALL DOS
              MOV     AL,CH             ;DOS hours number
              AAM                       ;split into two digits
              XCHG    AL,AH             ;and swap them into correct order
              OR      [OFFSET(HOURS)],AX ;Write into data area
              MOV     AL,CL             ;DOS minutes number
              AAM                       ;split into two digits
              XCHG    AL,AH             ;and swap them into correct order
              OR      [OFFSET(MINUTES)],AX ;Write into data area
;Now get the command tail which provides the text
              MOV     AX,DS             ;Ensure ES=DS
              MOV     ES,AX
              MOV     DI,OFFSET(TEXT)   ;Set destination address for text
              MOV     SI,80H            ;location of command tail in PCP
              MOV     AL,[SI]           ;get length of command tail
              MOV     AH,0              ;AX=length of tail
              CMP     AL,0              ;check length
              JE      EXIT_DATA         ;and exit if length is zero
              CMP     AL,21             ;check if greater than twenty chars.
              JLE     LEN_OK            ;and continue if not
              MOV     AX,21             ;otherwise truncate to twenty chars.
LEN_OK        MOV     CX,AX             ;get length into CX
              INC     SI                ;step over the length byte of PCP
              CLD                       ;set the direction flag
TRANSFER_TAIL MOVSB                     ;and transfer command tail into
              LOOP    TRANSFER_TAIL     ;the data area.
EXIT_DATA     RET                       ;job done, so return to main program
              ENDP

;DATA AREA
;file handle used by DOS
HANDLE        DW      0
;ASCIIZ file specification which will hold data
FILENAME      DB      'C:\ACTIVITY.LOG                                      ',0
;Data area used by program to build up text
DAY           DB      '00-'
MONTH         DB      '00-'
YEAR          DB      '00  '
HOURS         DB      '00:'
MINUTES       DB      '00 '
TEXT          DB      '                      ',CR,LF


00000000  3b 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |;***************|
00000010  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
00000030  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 0d 0a 3b 2a 20  |***********..;* |
00000040  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000070  20 20 20 20 20 20 20 2a  0d 0a 3b 2a 20 20 20 20  |       *..;*    |
00000080  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000090  41 43 54 49 4c 4f 47 20  20 20 20 20 20 20 20 20  |ACTILOG         |
000000a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000000b0  20 20 20 20 2a 0d 0a 3b  2a 20 20 20 20 20 20 20  |    *..;*       |
000000c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
000000f0  20 2a 0d 0a 3b 2a 20 20  20 20 20 20 20 20 20 20  | *..;*          |
00000100  20 20 20 20 42 59 20 20  20 52 41 59 20 20 20 53  |    BY   RAY   S|
00000110  4d 49 54 48 20 20 31 39  38 37 20 20 20 20 20 20  |MITH  1987      |
00000120  20 20 20 20 20 20 20 20  20 20 20 20 20 20 2a 0d  |              *.|
00000130  0a 3b 2a 20 20 20 20 20  20 20 20 20 20 20 20 20  |.;*             |
00000140  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
*
00000160  20 20 20 20 20 20 20 20  20 20 20 2a 0d 0a 3b 2a  |           *..;*|
00000170  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |****************|
*
000001a0  2a 2a 2a 2a 2a 2a 2a 2a  2a 0d 0a 3b 0d 0a 3b 50  |*********..;..;P|
000001b0  55 52 50 4f 53 45 3a 20  43 52 45 41 54 45 53 20  |URPOSE: CREATES |
000001c0  41 4e 44 20 55 50 44 41  54 45 53 20 41 20 54 49  |AND UPDATES A TI|
000001d0  4d 45 2f 44 41 54 45 20  4c 4f 47 0d 0a 3b 45 4e  |ME/DATE LOG..;EN|
000001e0  54 52 59 20 43 4f 4e 44  49 54 49 4f 4e 53 3a 20  |TRY CONDITIONS: |
000001f0  55 53 45 20 41 43 54 49  4c 4f 47 20 6e 20 57 48  |USE ACTILOG n WH|
00000200  45 52 45 20 6e 20 49 53  20 41 4e 20 4f 50 54 49  |ERE n IS AN OPTI|
00000210  4f 4e 41 4c 20 4e 4f 54  45 20 55 50 20 54 4f 20  |ONAL NOTE UP TO |
00000220  32 30 0d 0a 3b 20 20 20  20 20 20 20 20 20 20 20  |20..;           |
00000230  20 20 20 20 20 20 20 43  48 41 52 41 43 54 45 52  |       CHARACTER|
00000240  53 0d 0a 3b 0d 0a 3b 52  45 53 55 4c 54 3a 20 41  |S..;..;RESULT: A|
00000250  4e 20 41 53 43 49 49 20  46 49 4c 45 20 43 41 4c  |N ASCII FILE CAL|
00000260  4c 45 44 20 41 43 54 49  56 49 54 59 2e 4c 4f 47  |LED ACTIVITY.LOG|
00000270  20 49 53 20 55 50 44 41  54 45 44 20 57 49 54 48  | IS UPDATED WITH|
00000280  20 44 41 54 45 2c 20 54  49 4d 45 20 41 4e 44 20  | DATE, TIME AND |
00000290  4e 4f 54 45 20 0d 0a 3b  20 20 20 20 20 20 20 20  |NOTE ..;        |
000002a0  4f 42 54 41 49 4e 45 44  20 46 52 4f 4d 20 46 49  |OBTAINED FROM FI|
000002b0  52 53 54 20 54 57 45 4e  54 59 20 43 48 41 52 41  |RST TWENTY CHARA|
000002c0  43 54 45 52 53 20 4f 46  20 43 4f 4d 4d 41 4e 44  |CTERS OF COMMAND|
000002d0  20 54 41 49 4c 0d 0a 0d  0a 3b 45 52 52 4f 52 4c  | TAIL....;ERRORL|
000002e0  45 56 45 4c 20 20 20 45  51 55 20 20 20 20 20 31  |EVEL   EQU     1|
000002f0  20 20 20 49 46 20 44 4f  53 20 56 45 52 53 49 4f  |   IF DOS VERSIO|
00000300  4e 20 4c 4f 57 45 52 20  54 48 41 4e 20 32 0d 0a  |N LOWER THAN 2..|
00000310  3b 20 20 20 20 20 20 20  20 20 20 20 20 20 45 51  |;             EQ|
00000320  55 20 20 20 20 20 32 20  20 20 49 46 20 50 52 4f  |U     2   IF PRO|
00000330  42 4c 45 4d 53 20 4f 50  45 4e 49 4e 47 20 46 49  |BLEMS OPENING FI|
00000340  4c 45 0d 0a 3b 20 20 20  20 20 20 20 20 20 20 20  |LE..;           |
00000350  20 20 45 51 55 20 20 20  20 20 33 20 20 20 49 46  |  EQU     3   IF|
00000360  20 49 4d 50 4f 53 53 49  42 4c 45 20 54 4f 20 43  | IMPOSSIBLE TO C|
00000370  52 45 41 54 45 20 46 49  4c 45 20 46 52 4f 4d 20  |REATE FILE FROM |
00000380  53 43 52 41 54 43 48 0d  0a 3b 20 20 20 20 20 20  |SCRATCH..;      |
00000390  20 20 20 20 20 20 20 45  51 55 20 20 20 20 20 34  |       EQU     4|
000003a0  20 20 20 49 46 20 46 49  4c 45 20 43 4f 55 4c 44  |   IF FILE COULD|
000003b0  20 4e 4f 54 20 42 45 20  57 52 49 54 54 45 4e 20  | NOT BE WRITTEN |
000003c0  54 4f 0d 0a 0d 0a 3b 45  71 75 61 74 65 73 20 75  |TO....;Equates u|
000003d0  73 65 64 20 62 79 20 74  68 65 20 70 72 6f 67 72  |sed by the progr|
000003e0  61 6d 0d 0a 43 52 20 20  20 20 20 20 20 20 20 20  |am..CR          |
000003f0  20 20 45 51 55 20 20 20  20 20 30 44 48 20 20 20  |  EQU     0DH   |
00000400  20 20 20 20 20 20 20 20  20 20 20 20 3b 41 53 43  |            ;ASC|
00000410  49 49 20 63 61 72 72 69  61 67 65 20 72 65 74 75  |II carriage retu|
00000420  72 6e 0d 0a 4c 46 20 20  20 20 20 20 20 20 20 20  |rn..LF          |
00000430  20 20 45 51 55 20 20 20  20 20 30 41 48 20 20 20  |  EQU     0AH   |
00000440  20 20 20 20 20 20 20 20  20 20 20 20 3b 41 53 43  |            ;ASC|
00000450  49 49 20 6c 69 6e 65 20  66 65 65 64 0d 0a 52 45  |II line feed..RE|
00000460  43 4f 52 44 5f 4c 45 4e  47 54 48 20 45 51 55 20  |CORD_LENGTH EQU |
00000470  20 20 20 20 34 30 20 20  20 20 20 20 20 20 20 20  |    40          |
00000480  20 20 20 20 20 20 3b 4c  65 6e 67 74 68 20 6f 66  |      ;Length of|
00000490  20 44 61 74 61 20 52 65  63 6f 72 64 0d 0a 0d 0a  | Data Record....|
000004a0  3b 44 4f 53 20 49 4e 54  45 52 55 50 54 20 32 31  |;DOS INTERUPT 21|
000004b0  48 20 66 75 6e 63 74 69  6f 6e 20 63 61 6c 6c 73  |H function calls|
000004c0  0d 0a 40 47 45 54 44 41  54 45 20 20 20 20 20 20  |..@GETDATE      |
000004d0  45 51 55 20 20 20 20 20  32 41 48 20 20 20 20 20  |EQU     2AH     |
000004e0  20 20 20 20 20 20 20 20  20 20 3b 47 65 74 20 74  |          ;Get t|
000004f0  68 65 20 73 79 73 74 65  6d 20 64 61 74 65 0d 0a  |he system date..|
00000500  40 47 45 54 54 49 4d 45  20 20 20 20 20 20 45 51  |@GETTIME      EQ|
00000510  55 20 20 20 20 20 32 43  48 20 20 20 20 20 20 20  |U     2CH       |
00000520  20 20 20 20 20 20 20 20  3b 47 65 74 20 74 68 65  |        ;Get the|
00000530  20 73 79 73 74 65 6d 20  74 69 6d 65 0d 0a 40 47  | system time..@G|
00000540  45 54 56 45 52 53 20 20  20 20 20 20 45 51 55 20  |ETVERS      EQU |
00000550  20 20 20 20 33 30 48 20  20 20 20 20 20 20 20 20  |    30H         |
00000560  20 20 20 20 20 20 3b 47  65 74 20 4d 53 2d 44 6f  |      ;Get MS-Do|
00000570  73 20 76 65 72 73 69 6f  6e 20 6e 75 6d 62 65 72  |s version number|
00000580  0d 0a 40 43 52 45 41 54  45 20 20 20 20 20 20 20  |..@CREATE       |
00000590  45 51 55 20 20 20 20 20  33 43 48 20 20 20 20 20  |EQU     3CH     |
000005a0  20 20 20 20 20 20 20 20  20 20 3b 43 72 65 61 74  |          ;Creat|
000005b0  65 20 61 20 6e 65 77 20  66 69 6c 65 20 0d 0a 40  |e a new file ..@|
000005c0  4f 50 45 4e 20 20 20 20  20 20 20 20 20 45 51 55  |OPEN         EQU|
000005d0  20 20 20 20 20 33 44 48  20 20 20 20 20 20 20 20  |     3DH        |
000005e0  20 20 20 20 20 20 20 3b  4f 70 65 6e 20 61 20 66  |       ;Open a f|
000005f0  69 6c 65 0d 0a 40 43 4c  4f 53 45 20 20 20 20 20  |ile..@CLOSE     |
00000600  20 20 20 45 51 55 20 20  20 20 20 33 45 48 20 20  |   EQU     3EH  |
00000610  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 43 6c  |             ;Cl|
00000620  6f 73 65 20 61 20 66 69  6c 65 0d 0a 40 57 52 49  |ose a file..@WRI|
00000630  54 45 20 20 20 20 20 20  20 20 45 51 55 20 20 20  |TE        EQU   |
00000640  20 20 34 30 48 20 20 20  20 20 20 20 20 20 20 20  |  40H           |
00000650  20 20 20 20 3b 57 72 69  74 65 20 74 6f 20 61 20  |    ;Write to a |
00000660  66 69 6c 65 0d 0a 40 4d  4f 56 45 50 4f 49 4e 54  |file..@MOVEPOINT|
00000670  45 52 20 20 45 51 55 20  20 20 20 20 34 32 48 20  |ER  EQU     42H |
00000680  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 4d  |              ;M|
00000690  6f 76 65 20 66 69 6c 65  70 6f 69 6e 74 65 72 0d  |ove filepointer.|
000006a0  0a 40 54 45 52 4d 49 4e  41 54 45 20 20 20 20 45  |.@TERMINATE    E|
000006b0  51 55 20 20 20 20 20 34  43 48 20 20 20 20 20 20  |QU     4CH      |
000006c0  20 20 20 20 20 20 20 20  20 3b 54 65 72 6d 69 6e  |         ;Termin|
000006d0  61 74 65 20 61 6e 64 20  72 65 74 75 72 6e 20 74  |ate and return t|
000006e0  6f 20 44 6f 73 2e 0d 0a  0d 0a 0d 0a 3b 53 54 41  |o Dos.......;STA|
000006f0  52 54 20 4f 46 20 4d 41  49 4e 20 50 52 4f 47 52  |RT OF MAIN PROGR|
00000700  41 4d 0d 0a 3b 2a 2a 2a  2a 2a 2a 2a 2a 2a 2a 2a  |AM..;***********|
00000710  2a 2a 2a 2a 2a 2a 2a 2a  2a 2a 0d 0a 53 54 41 52  |**********..STAR|
00000720  54 20 20 20 20 20 20 20  20 20 50 52 4f 43 20 20  |T         PROC  |
00000730  20 20 4e 45 41 52 0d 0a  0d 0a 20 20 20 20 20 20  |  NEAR....      |
00000740  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00000750  41 48 2c 40 47 45 54 56  45 52 53 20 20 20 20 20  |AH,@GETVERS     |
00000760  20 20 3b 47 65 74 20 4d  53 2d 44 6f 73 20 56 65  |  ;Get MS-Dos Ve|
00000770  72 73 69 6f 6e 20 4e 6f  2e 0d 0a 20 20 20 20 20  |rsion No...     |
00000780  20 20 20 20 20 20 20 20  20 49 4e 54 20 20 20 20  |         INT    |
00000790  20 32 31 48 0d 0a 20 20  20 20 20 20 20 20 20 20  | 21H..          |
000007a0  20 20 20 20 43 4d 50 20  20 20 20 20 41 4c 2c 32  |    CMP     AL,2|
000007b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 69  |              ;i|
000007c0  73 20 69 74 20 76 65 72  73 69 6f 6e 20 32 20 6f  |s it version 2 o|
000007d0  72 20 47 72 65 61 74 65  72 3f 0d 0a 20 20 20 20  |r Greater?..    |
000007e0  20 20 20 20 20 20 20 20  20 20 4a 47 45 20 20 20  |          JGE   |
000007f0  20 20 4f 50 45 4e 5f 46  49 4c 45 20 20 20 20 20  |  OPEN_FILE     |
00000800  20 20 20 20 3b 69 66 20  73 6f 2c 20 63 6f 6e 74  |    ;if so, cont|
00000810  69 6e 75 65 2c 20 65 6c  73 65 20 70 75 74 20 74  |inue, else put t|
00000820  68 65 0d 0a 20 20 20 20  20 20 20 20 20 20 20 20  |he..            |
00000830  20 20 4d 4f 56 20 20 20  20 20 41 4c 2c 31 20 20  |  MOV     AL,1  |
00000840  20 20 20 20 20 20 20 20  20 20 20 20 3b 52 65 74  |            ;Ret|
00000850  75 72 6e 20 63 6f 64 65  20 69 6e 20 41 4c 20 72  |urn code in AL r|
00000860  65 67 69 73 74 65 72 0d  0a 20 20 20 20 20 20 20  |egister..       |
00000870  20 20 20 20 20 20 20 4a  4d 50 53 20 20 20 20 45  |       JMPS    E|
00000880  58 49 54 20 20 20 20 20  20 20 20 20 20 20 20 20  |XIT             |
00000890  20 3b 61 6e 64 20 65 78  69 74 20 66 72 6f 6d 20  | ;and exit from |
000008a0  70 72 6f 67 72 61 6d 0d  0a 0d 0a 4f 50 45 4e 5f  |program....OPEN_|
000008b0  46 49 4c 45 20 20 20 20  20 4d 4f 56 20 20 20 20  |FILE     MOV    |
000008c0  20 41 4c 2c 30 31 48 20  20 20 20 20 20 20 20 20  | AL,01H         |
000008d0  20 20 20 3b 61 63 63 65  73 73 20 6d 6f 64 65 20  |   ;access mode |
000008e0  3d 20 77 72 69 74 65 20  6f 6e 6c 79 0d 0a 20 20  |= write only..  |
000008f0  20 20 20 20 20 20 20 20  20 20 20 20 4c 45 41 20  |            LEA |
00000900  20 20 20 20 44 58 2c 46  49 4c 45 4e 41 4d 45 20  |    DX,FILENAME |
00000910  20 20 20 20 20 20 3b 41  64 64 72 65 73 73 20 6f  |      ;Address o|
00000920  66 20 66 69 6c 65 20 6e  61 6d 65 20 20 20 20 20  |f file name     |
00000930  20 20 20 20 20 20 20 20  20 20 20 20 20 0d 0a 20  |             .. |
00000940  20 20 20 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |             MOV|
00000950  20 20 20 20 20 41 48 2c  40 4f 50 45 4e 20 20 20  |     AH,@OPEN   |
00000960  20 20 20 20 20 20 20 3b  4f 70 65 6e 20 61 6e 20  |       ;Open an |
00000970  41 53 43 49 49 5a 20 66  69 6c 65 20 73 70 65 63  |ASCIIZ file spec|
00000980  69 66 69 63 61 74 6f 6e  0d 0a 20 20 20 20 20 20  |ificaton..      |
00000990  20 20 20 20 20 20 20 20  49 4e 54 20 20 20 20 20  |        INT     |
000009a0  32 31 48 20 20 20 20 20  20 20 20 20 20 20 20 20  |21H             |
000009b0  20 20 3b 43 41 4c 4c 20  44 4f 53 0d 0a 20 20 20  |  ;CALL DOS..   |
000009c0  20 20 20 20 20 20 20 20  20 20 20 4a 4e 43 20 20  |           JNC  |
000009d0  20 20 20 4f 50 45 4e 5f  4f 4b 20 20 20 20 20 20  |   OPEN_OK      |
000009e0  20 20 20 20 20 3b 63 61  72 72 79 66 6c 61 67 20  |     ;carryflag |
000009f0  69 73 20 73 65 74 20 69  66 20 6f 70 65 6e 20 66  |is set if open f|
00000a00  61 69 6c 65 64 0d 0a 20  20 20 20 20 20 20 20 20  |ailed..         |
00000a10  20 20 20 20 20 43 4d 50  20 20 20 20 20 41 4c 2c  |     CMP     AL,|
00000a20  32 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |2              ;|
00000a30  43 68 65 63 6b 20 69 66  20 66 61 69 6c 75 72 65  |Check if failure|
00000a40  20 66 6f 72 20 6e 6f 6e  2d 65 78 69 73 74 20 66  | for non-exist f|
00000a50  69 6c 65 0d 0a 20 20 20  20 20 20 20 20 20 20 20  |ile..           |
00000a60  20 20 20 4a 45 20 20 20  20 20 20 43 52 45 41 54  |   JE      CREAT|
00000a70  45 5f 46 49 4c 45 20 20  20 20 20 20 20 3b 46 69  |E_FILE       ;Fi|
00000a80  6c 65 20 64 6f 65 73 20  6e 6f 74 20 65 78 69 73  |le does not exis|
00000a90  74 20 73 6f 20 63 72 65  61 74 65 20 69 74 2c 0d  |t so create it,.|
00000aa0  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4d  |.              M|
00000ab0  4f 56 20 20 20 20 20 41  4c 2c 32 20 20 20 20 20  |OV     AL,2     |
00000ac0  20 20 20 20 20 20 20 20  20 3b 6f 74 68 65 72 77  |         ;otherw|
00000ad0  69 73 65 20 70 75 74 20  74 68 65 20 72 65 74 75  |ise put the retu|
00000ae0  72 6e 20 63 6f 64 65 20  69 6e 0d 0a 20 20 20 20  |rn code in..    |
00000af0  20 20 20 20 20 20 20 20  20 20 4a 4d 50 53 20 20  |          JMPS  |
00000b00  20 20 45 58 49 54 20 20  20 20 20 20 20 20 20 20  |  EXIT          |
00000b10  20 20 20 20 3b 74 68 65  20 41 4c 20 72 65 67 69  |    ;the AL regi|
00000b20  73 74 65 72 20 61 6e 64  20 65 78 69 74 20 70 72  |ster and exit pr|
00000b30  6f 67 72 61 6d 0d 0a 0d  0a 43 52 45 41 54 45 5f  |ogram....CREATE_|
00000b40  46 49 4c 45 20 20 20 4d  4f 56 20 20 20 20 20 43  |FILE   MOV     C|
00000b50  58 2c 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |X,0             |
00000b60  20 3b 46 69 6c 65 20 61  74 74 72 69 62 75 74 65  | ;File attribute|
00000b70  20 6e 6f 72 6d 61 6c 0d  0a 20 20 20 20 20 20 20  | normal..       |
00000b80  20 20 20 20 20 20 20 4c  45 41 20 20 20 20 20 44  |       LEA     D|
00000b90  58 2c 46 49 4c 45 4e 41  4d 45 20 20 20 20 20 20  |X,FILENAME      |
00000ba0  20 3b 67 65 74 20 6f 66  66 73 65 74 20 6f 66 20  | ;get offset of |
00000bb0  41 53 43 49 49 5a 20 66  69 6c 65 20 73 70 65 63  |ASCIIZ file spec|
00000bc0  20 0d 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  | ..             |
00000bd0  20 4d 4f 56 20 20 20 20  20 41 48 2c 40 43 52 45  | MOV     AH,@CRE|
00000be0  41 54 45 20 20 20 20 20  20 20 20 3b 61 6e 64 20  |ATE        ;and |
00000bf0  63 72 65 61 74 65 20 61  20 6e 65 77 20 66 69 6c  |create a new fil|
00000c00  65 0d 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |e..             |
00000c10  20 49 4e 54 20 20 20 20  20 32 31 48 20 20 20 20  | INT     21H    |
00000c20  20 20 20 20 20 20 20 20  20 20 20 3b 43 41 4c 4c  |           ;CALL|
00000c30  20 44 4f 53 0d 0a 20 20  20 20 20 20 20 20 20 20  | DOS..          |
00000c40  20 20 20 20 4a 4e 43 20  20 20 20 20 4f 50 45 4e  |    JNC     OPEN|
00000c50  5f 4f 4b 20 20 20 20 20  20 20 20 20 20 20 3b 63  |_OK           ;c|
00000c60  6f 6e 74 69 6e 75 65 20  69 66 20 63 72 65 61 74  |ontinue if creat|
00000c70  69 6f 6e 20 77 61 73 20  6f 6b 0d 0a 20 20 20 20  |ion was ok..    |
00000c80  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00000c90  20 20 41 4c 2c 33 20 20  20 20 20 20 20 20 20 20  |  AL,3          |
00000ca0  20 20 20 20 3b 6f 74 68  65 72 77 69 73 65 20 70  |    ;otherwise p|
00000cb0  75 74 20 74 68 65 20 72  65 74 75 72 6e 20 63 6f  |ut the return co|
00000cc0  64 65 20 69 6e 0d 0a 20  20 20 20 20 20 20 20 20  |de in..         |
00000cd0  20 20 20 20 20 4a 4d 50  53 20 20 20 20 45 58 49  |     JMPS    EXI|
00000ce0  54 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |T              ;|
00000cf0  74 68 65 20 41 4c 20 72  65 67 69 73 74 65 72 20  |the AL register |
00000d00  61 6e 64 20 65 78 69 74  20 70 72 6f 67 72 61 6d  |and exit program|
00000d10  0d 0a 0d 0a 4f 50 45 4e  5f 4f 4b 20 20 20 20 20  |....OPEN_OK     |
00000d20  20 20 4d 4f 56 20 20 20  20 20 48 41 4e 44 4c 45  |  MOV     HANDLE|
00000d30  2c 41 58 20 20 20 20 20  20 20 20 20 3b 53 74 6f  |,AX         ;Sto|
00000d40  72 65 20 74 68 65 20 44  4f 53 20 68 61 6e 64 6c  |re the DOS handl|
00000d50  65 2c 20 61 6e 64 20 63  6f 6e 74 69 6e 75 65 20  |e, and continue |
00000d60  20 0d 0a 0d 0a 3b 4e 6f  77 20 73 65 74 20 74 68  | ....;Now set th|
00000d70  65 20 70 6f 69 6e 74 65  72 20 74 6f 20 74 68 65  |e pointer to the|
00000d80  20 65 6e 64 20 6f 66 20  74 68 65 20 66 69 6c 65  | end of the file|
00000d90  2c 20 72 65 61 64 79 20  66 6f 72 20 6e 65 78 74  |, ready for next|
00000da0  20 65 6e 74 72 79 2e 0d  0a 0d 0a 53 45 54 5f 50  | entry.....SET_P|
00000db0  4f 49 4e 54 45 52 20 20  20 4d 4f 56 20 20 20 20  |OINTER   MOV    |
00000dc0  20 43 58 2c 30 20 20 20  20 20 20 20 20 20 20 20  | CX,0           |
00000dd0  20 20 20 3b 4d 6f 73 74  20 73 69 67 6e 69 66 69  |   ;Most signifi|
00000de0  63 61 6e 74 20 68 61 6c  66 20 6f 66 20 6f 66 66  |cant half of off|
00000df0  73 65 74 0d 0a 20 20 20  20 20 20 20 20 20 20 20  |set..           |
00000e00  20 20 20 4d 4f 56 20 20  20 20 20 44 58 2c 30 20  |   MOV     DX,0 |
00000e10  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 4c 65  |             ;Le|
00000e20  61 73 74 20 73 69 67 6e  69 66 69 63 61 6e 74 20  |ast significant |
00000e30  68 61 6c 66 20 6f 66 20  6f 66 66 73 65 74 0d 0a  |half of offset..|
00000e40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4d 4f  |              MO|
00000e50  56 20 20 20 20 20 42 58  2c 48 41 4e 44 4c 45 20  |V     BX,HANDLE |
00000e60  20 20 20 20 20 20 20 20  3b 67 65 74 20 74 68 65  |        ;get the|
00000e70  20 66 69 6c 65 20 68 61  6e 64 6c 65 0d 0a 20 20  | file handle..  |
00000e80  20 20 20 20 20 20 20 20  20 20 20 20 4d 4f 56 20  |            MOV |
00000e90  20 20 20 20 41 4c 2c 32  20 20 20 20 20 20 20 20  |    AL,2        |
00000ea0  20 20 20 20 20 20 3b 4d  65 74 68 6f 64 20 27 66  |      ;Method 'f|
00000eb0  72 6f 6d 20 65 6e 64 20  6f 66 20 66 69 6c 65 27  |rom end of file'|
00000ec0  0d 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00000ed0  4d 4f 56 20 20 20 20 20  41 48 2c 40 4d 4f 56 45  |MOV     AH,@MOVE|
00000ee0  50 4f 49 4e 54 45 52 20  20 20 3b 73 65 74 20 70  |POINTER   ;set p|
00000ef0  6f 69 6e 74 65 72 20 74  6f 20 65 6e 64 20 6f 66  |ointer to end of|
00000f00  20 66 69 6c 65 0d 0a 20  20 20 20 20 20 20 20 20  | file..         |
00000f10  20 20 20 20 20 49 4e 54  20 20 20 20 20 32 31 48  |     INT     21H|
00000f20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00000f30  43 41 4c 4c 20 44 4f 53  0d 0a 0d 0a 20 20 20 20  |CALL DOS....    |
00000f40  20 20 20 20 20 20 20 20  20 20 43 41 4c 4c 20 20  |          CALL  |
00000f50  20 20 47 45 54 5f 44 41  54 41 20 20 20 20 20 20  |  GET_DATA      |
00000f60  20 20 20 20 3b 6e 6f 77  20 63 6f 6e 73 74 72 75  |    ;now constru|
00000f70  63 74 20 74 68 65 20 64  61 74 61 20 62 75 66 66  |ct the data buff|
00000f80  65 72 0d 0a 20 20 20 20  20 20 20 20 20 20 20 20  |er..            |
00000f90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00000fa0  20 20 20 20 20 20 20 20  20 20 20 20 3b 61 6e 64  |            ;and|
00000fb0  20 77 72 69 74 65 20 74  68 65 20 72 65 63 6f 72  | write the recor|
00000fc0  64 20 66 72 6f 6d 20 74  68 65 72 65 0d 0a 57 52  |d from there..WR|
00000fd0  49 54 45 5f 52 45 43 4f  52 44 20 20 4c 45 41 20  |ITE_RECORD  LEA |
00000fe0  20 20 20 20 44 58 2c 44  41 59 20 20 20 20 20 20  |    DX,DAY      |
00000ff0  20 20 20 20 20 20 3b 67  65 74 20 64 61 74 61 20  |      ;get data |
00001000  61 64 64 72 65 73 73 0d  0a 20 20 20 20 20 20 20  |address..       |
00001010  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 43  |       MOV     C|
00001020  58 2c 52 45 43 4f 52 44  5f 4c 45 4e 47 54 48 20  |X,RECORD_LENGTH |
00001030  20 3b 6c 65 6e 67 74 68  20 6f 66 20 72 65 63 6f  | ;length of reco|
00001040  72 64 20 74 6f 20 62 65  20 77 72 69 74 74 65 6e  |rd to be written|
00001050  0d 0a 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |..              |
00001060  4d 4f 56 20 20 20 20 20  42 58 2c 48 41 4e 44 4c  |MOV     BX,HANDL|
00001070  45 20 20 20 20 20 20 20  20 20 3b 67 65 74 20 74  |E         ;get t|
00001080  68 65 20 66 69 6c 65 20  68 61 6e 64 6c 65 0d 0a  |he file handle..|
00001090  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4d 4f  |              MO|
000010a0  56 20 20 20 20 20 41 48  2c 40 57 52 49 54 45 20  |V     AH,@WRITE |
000010b0  20 20 20 20 20 20 20 20  3b 77 72 69 74 65 20 66  |        ;write f|
000010c0  75 6e 63 74 69 6f 6e 0d  0a 20 20 20 20 20 20 20  |unction..       |
000010d0  20 20 20 20 20 20 20 49  4e 54 20 20 20 20 20 32  |       INT     2|
000010e0  31 48 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1H              |
000010f0  20 3b 43 41 4c 4c 20 44  4f 53 0d 0a 20 20 20 20  | ;CALL DOS..    |
00001100  20 20 20 20 20 20 20 20  20 20 4a 43 20 20 20 20  |          JC    |
00001110  20 20 57 52 49 54 45 5f  46 41 49 4c 45 44 20 20  |  WRITE_FAILED  |
00001120  20 20 20 20 3b 63 61 72  72 79 20 66 6c 61 67 20  |    ;carry flag |
00001130  73 65 74 20 69 6e 64 69  63 61 74 65 73 20 66 61  |set indicates fa|
00001140  69 6c 75 72 65 0d 0a 20  20 20 20 20 20 20 20 20  |ilure..         |
00001150  20 20 20 20 20 43 4d 50  20 20 20 20 20 41 58 2c  |     CMP     AX,|
00001160  52 45 43 4f 52 44 5f 4c  45 4e 47 54 48 20 20 3b  |RECORD_LENGTH  ;|
00001170  77 61 73 20 74 68 65 20  66 75 6c 6c 20 72 65 63  |was the full rec|
00001180  6f 72 64 20 77 72 69 74  74 65 6e 3f 0d 0a 20 20  |ord written?..  |
00001190  20 20 20 20 20 20 20 20  20 20 20 20 4a 45 20 20  |            JE  |
000011a0  20 20 20 20 57 52 49 54  45 5f 4f 4b 20 20 20 20  |    WRITE_OK    |
000011b0  20 20 20 20 20 20 3b 69  66 20 73 6f 2c 20 65 78  |      ;if so, ex|
000011c0  69 74 2c 20 0d 0a 0d 0a  57 52 49 54 45 5f 46 41  |it, ....WRITE_FA|
000011d0  49 4c 45 44 20 20 43 41  4c 4c 20 20 20 20 43 4c  |ILED  CALL    CL|
000011e0  4f 53 45 5f 46 49 4c 45  20 20 20 20 20 20 20 20  |OSE_FILE        |
000011f0  3b 6f 74 68 65 72 77 69  73 65 20 63 6c 6f 73 65  |;otherwise close|
00001200  20 74 68 65 20 66 69 6c  65 0d 0a 20 20 20 20 20  | the file..     |
00001210  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00001220  20 41 4c 2c 34 20 20 20  20 20 20 20 20 20 20 20  | AL,4           |
00001230  20 20 20 3b 62 75 74 20  73 65 74 20 45 52 52 4f  |   ;but set ERRO|
00001240  52 4c 45 56 45 4c 20 34  0d 0a 20 20 20 20 20 20  |RLEVEL 4..      |
00001250  20 20 20 20 20 20 20 20  4a 4d 50 53 20 20 20 20  |        JMPS    |
00001260  45 58 49 54 20 20 20 20  20 20 20 20 20 20 20 20  |EXIT            |
00001270  20 20 3b 61 6e 64 20 65  78 69 74 0d 0a 0d 0a 57  |  ;and exit....W|
00001280  52 49 54 45 5f 4f 4b 20  20 20 20 20 20 43 41 4c  |RITE_OK      CAL|
00001290  4c 20 20 20 20 43 4c 4f  53 45 5f 46 49 4c 45 20  |L    CLOSE_FILE |
000012a0  20 20 20 20 20 20 20 3b  77 72 69 74 65 20 77 61  |       ;write wa|
000012b0  73 20 73 75 63 63 65 73  66 75 6c 2c 20 73 6f 20  |s succesful, so |
000012c0  63 6c 6f 73 65 20 66 69  6c 65 0d 0a 20 20 20 20  |close file..    |
000012d0  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
000012e0  20 20 41 4c 2c 30 20 20  20 20 20 20 20 20 20 20  |  AL,0          |
000012f0  20 20 20 20 3b 73 65 74  20 45 52 52 4f 52 4c 45  |    ;set ERRORLE|
00001300  56 45 4c 20 30 0d 0a 0d  0a 45 58 49 54 20 20 20  |VEL 0....EXIT   |
00001310  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 41  |       MOV     A|
00001320  48 2c 40 54 45 52 4d 49  4e 41 54 45 20 20 20 20  |H,@TERMINATE    |
00001330  20 3b 45 78 69 74 20 70  72 6f 67 72 61 6d 20 77  | ;Exit program w|
00001340  69 74 68 20 72 65 74 75  72 6e 20 63 6f 64 65 0d  |ith return code.|
00001350  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 49  |.              I|
00001360  4e 54 20 20 20 20 20 32  31 48 20 20 20 20 20 20  |NT     21H      |
00001370  20 20 20 20 20 20 20 20  20 3b 54 72 61 6e 73 66  |         ;Transf|
00001380  65 72 20 74 6f 20 44 4f  53 0d 0a 0d 0a 20 20 20  |er to DOS....   |
00001390  20 20 20 20 20 20 20 20  20 20 20 45 4e 44 50 20  |           ENDP |
000013a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000013b0  20 20 20 20 20 3b 45 4e  44 20 4f 46 20 4d 41 49  |     ;END OF MAI|
000013c0  4e 20 50 52 4f 47 52 41  4d 0d 0a 0d 0a 3b 53 55  |N PROGRAM....;SU|
000013d0  42 52 4f 55 54 49 4e 45  53 0d 0a 3b 2a 2a 2a 2a  |BROUTINES..;****|
000013e0  2a 2a 2a 2a 2a 2a 2a 0d  0a 43 4c 4f 53 45 5f 46  |*******..CLOSE_F|
000013f0  49 4c 45 20 20 20 20 50  52 4f 43 20 20 20 20 4e  |ILE    PROC    N|
00001400  45 41 52 20 20 20 20 20  20 20 20 20 20 20 20 20  |EAR             |
00001410  20 3b 73 75 62 72 6f 75  74 69 6e 65 20 74 6f 20  | ;subroutine to |
00001420  63 6c 6f 73 65 20 66 69  6c 65 20 68 61 6e 64 6c  |close file handl|
00001430  6c 65 0d 0a 20 20 20 20  20 20 20 20 20 20 20 20  |le..            |
00001440  20 20 4d 4f 56 20 20 20  20 20 42 58 2c 48 41 4e  |  MOV     BX,HAN|
00001450  44 4c 45 20 20 20 20 20  20 20 20 20 3b 67 65 74  |DLE         ;get|
00001460  20 68 61 6e 64 6c 65 0d  0a 20 20 20 20 20 20 20  | handle..       |
00001470  20 20 20 20 20 20 20 43  4d 50 20 20 20 20 20 42  |       CMP     B|
00001480  58 2c 30 20 20 20 20 20  20 20 20 20 20 20 20 20  |X,0             |
00001490  20 3b 63 68 65 63 6b 20  69 74 20 69 73 20 6e 6f  | ;check it is no|
000014a0  74 20 7a 65 72 6f 0d 0a  20 20 20 20 20 20 20 20  |t zero..        |
000014b0  20 20 20 20 20 20 4a 45  20 20 20 20 20 20 45 58  |      JE      EX|
000014c0  49 54 5f 43 4c 4f 53 45  20 20 20 20 20 20 20 20  |IT_CLOSE        |
000014d0  3b 69 66 20 69 74 20 69  73 2c 20 64 6f 20 4e 4f  |;if it is, do NO|
000014e0  54 20 63 6c 6f 73 65 20  69 74 0d 0a 20 20 20 20  |T close it..    |
000014f0  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00001500  20 20 41 48 2c 40 43 4c  4f 53 45 20 20 20 20 20  |  AH,@CLOSE     |
00001510  20 20 20 20 3b 66 75 6e  63 74 69 6f 6e 20 74 6f  |    ;function to|
00001520  20 63 6c 6f 73 65 20 68  61 6e 64 6c 65 0d 0a 20  | close handle.. |
00001530  20 20 20 20 20 20 20 20  20 20 20 20 20 49 4e 54  |             INT|
00001540  20 20 20 20 20 32 31 48  20 20 20 20 20 20 20 20  |     21H        |
00001550  20 20 20 20 20 20 20 3b  43 41 4c 4c 20 44 4f 53  |       ;CALL DOS|
00001560  0d 0a 45 58 49 54 5f 43  4c 4f 53 45 20 20 20 20  |..EXIT_CLOSE    |
00001570  52 45 54 20 20 20 20 20  20 20 20 20 20 20 20 20  |RET             |
00001580  20 20 20 20 20 20 20 20  20 20 3b 65 6e 64 20 6f  |          ;end o|
00001590  66 20 73 75 62 72 6f 75  74 69 6e 65 0d 0a 20 20  |f subroutine..  |
000015a0  20 20 20 20 20 20 20 20  20 20 20 20 45 4e 44 50  |            ENDP|
000015b0  0d 0a 0d 0a 47 45 54 5f  44 41 54 41 20 20 20 20  |....GET_DATA    |
000015c0  20 20 50 52 4f 43 20 20  20 20 4e 45 41 52 20 20  |  PROC    NEAR  |
000015d0  20 20 20 20 20 20 20 20  20 20 20 20 3b 57 72 69  |            ;Wri|
000015e0  74 65 73 20 64 61 74 61  20 69 6e 74 6f 20 72 65  |tes data into re|
000015f0  63 6f 72 64 20 61 72 65  61 0d 0a 20 20 20 20 20  |cord area..     |
00001600  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00001610  20 41 48 2c 40 47 45 54  44 41 54 45 20 20 20 20  | AH,@GETDATE    |
00001620  20 20 20 3b 47 65 74 20  74 68 65 20 73 79 73 74  |   ;Get the syst|
00001630  65 6d 20 64 61 74 65 0d  0a 20 20 20 20 20 20 20  |em date..       |
00001640  20 20 20 20 20 20 20 49  4e 54 20 20 20 20 20 32  |       INT     2|
00001650  31 48 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |1H              |
00001660  20 3b 43 41 4c 4c 20 44  4f 53 0d 0a 20 20 20 20  | ;CALL DOS..    |
00001670  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00001680  20 20 41 4c 2c 44 4c 20  20 20 20 20 20 20 20 20  |  AL,DL         |
00001690  20 20 20 20 3b 44 4f 53  20 64 61 79 73 20 6e 75  |    ;DOS days nu|
000016a0  6d 62 65 72 0d 0a 20 20  20 20 20 20 20 20 20 20  |mber..          |
000016b0  20 20 20 20 41 41 4d 20  20 20 20 20 20 20 20 20  |    AAM         |
000016c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 73  |              ;s|
000016d0  70 6c 69 74 20 69 6e 74  6f 20 74 77 6f 20 64 69  |plit into two di|
000016e0  67 69 74 73 0d 0a 20 20  20 20 20 20 20 20 20 20  |gits..          |
000016f0  20 20 20 20 58 43 48 47  20 20 20 20 41 4c 2c 41  |    XCHG    AL,A|
00001700  48 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 61  |H             ;a|
00001710  6e 64 20 73 77 61 70 20  74 68 65 6d 20 69 6e 74  |nd swap them int|
00001720  6f 20 63 6f 72 72 65 63  74 20 6f 72 64 65 72 0d  |o correct order.|
00001730  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4f  |.              O|
00001740  52 20 20 20 20 20 20 5b  4f 46 46 53 45 54 28 44  |R      [OFFSET(D|
00001750  41 59 29 5d 2c 41 58 20  20 3b 77 72 69 74 65 20  |AY)],AX  ;write |
00001760  69 6e 74 6f 20 64 61 74  61 20 61 72 65 61 0d 0a  |into data area..|
00001770  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4d 4f  |              MO|
00001780  56 20 20 20 20 20 41 4c  2c 44 48 20 20 20 20 20  |V     AL,DH     |
00001790  20 20 20 20 20 20 20 20  3b 44 4f 53 20 6d 6f 6e  |        ;DOS mon|
000017a0  74 68 20 6e 75 6d 62 65  72 0d 0a 20 20 20 20 20  |th number..     |
000017b0  20 20 20 20 20 20 20 20  20 41 41 4d 20 20 20 20  |         AAM    |
000017c0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000017d0  20 20 20 3b 73 70 6c 69  74 20 69 6e 74 6f 20 74  |   ;split into t|
000017e0  77 6f 20 64 69 67 69 74  73 0d 0a 20 20 20 20 20  |wo digits..     |
000017f0  20 20 20 20 20 20 20 20  20 58 43 48 47 20 20 20  |         XCHG   |
00001800  20 41 4c 2c 41 48 20 20  20 20 20 20 20 20 20 20  | AL,AH          |
00001810  20 20 20 3b 61 6e 64 20  73 77 61 70 20 74 68 65  |   ;and swap the|
00001820  6d 20 69 6e 74 6f 20 63  6f 72 72 65 63 74 20 6f  |m into correct o|
00001830  72 64 65 72 0d 0a 20 20  20 20 20 20 20 20 20 20  |rder..          |
00001840  20 20 20 20 4f 52 20 20  20 20 20 20 5b 4f 46 46  |    OR      [OFF|
00001850  53 45 54 28 4d 4f 4e 54  48 29 5d 2c 41 58 20 3b  |SET(MONTH)],AX ;|
00001860  57 72 69 74 65 20 69 6e  74 6f 20 64 61 74 61 20  |Write into data |
00001870  61 72 65 61 0d 0a 20 20  20 20 20 20 20 20 20 20  |area..          |
00001880  20 20 20 20 4d 4f 56 20  20 20 20 20 41 58 2c 43  |    MOV     AX,C|
00001890  58 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 44  |X             ;D|
000018a0  4f 53 20 79 65 61 72 20  6e 75 6d 62 65 72 0d 0a  |OS year number..|
000018b0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 53 55  |              SU|
000018c0  42 20 20 20 20 20 41 58  2c 31 39 30 30 20 20 20  |B     AX,1900   |
000018d0  20 20 20 20 20 20 20 20  3b 53 75 62 74 72 61 63  |        ;Subtrac|
000018e0  74 20 31 39 30 30 20 74  6f 20 67 65 74 20 6c 61  |t 1900 to get la|
000018f0  73 74 20 74 77 6f 20 64  69 67 69 74 73 0d 0a 20  |st two digits.. |
00001900  20 20 20 20 20 20 20 20  20 20 20 20 20 41 41 4d  |             AAM|
00001910  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001920  20 20 20 20 20 20 20 3b  73 70 6c 69 74 20 69 6e  |       ;split in|
00001930  74 6f 20 74 77 6f 20 64  69 67 69 74 73 0d 0a 20  |to two digits.. |
00001940  20 20 20 20 20 20 20 20  20 20 20 20 20 58 43 48  |             XCH|
00001950  47 20 20 20 20 41 4c 2c  41 48 20 20 20 20 20 20  |G    AL,AH      |
00001960  20 20 20 20 20 20 20 3b  61 6e 64 20 73 77 61 70  |       ;and swap|
00001970  20 74 68 65 6d 20 69 6e  74 6f 20 63 6f 72 72 65  | them into corre|
00001980  63 74 20 6f 72 64 65 72  0d 0a 20 20 20 20 20 20  |ct order..      |
00001990  20 20 20 20 20 20 20 20  4f 52 20 20 20 20 20 20  |        OR      |
000019a0  5b 4f 46 46 53 45 54 28  59 45 41 52 29 5d 2c 41  |[OFFSET(YEAR)],A|
000019b0  58 20 3b 77 72 69 74 65  20 69 6e 74 6f 20 64 61  |X ;write into da|
000019c0  74 61 20 61 72 65 61 0d  0a 20 20 20 20 20 20 20  |ta area..       |
000019d0  20 20 20 20 20 20 20 4d  4f 56 20 20 20 20 20 41  |       MOV     A|
000019e0  48 2c 40 47 45 54 54 49  4d 45 20 20 20 20 20 20  |H,@GETTIME      |
000019f0  20 3b 47 65 74 20 74 68  65 20 73 79 73 74 65 6d  | ;Get the system|
00001a00  20 74 69 6d 65 0d 0a 20  20 20 20 20 20 20 20 20  | time..         |
00001a10  20 20 20 20 20 49 4e 54  20 20 20 20 20 32 31 48  |     INT     21H|
00001a20  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |               ;|
00001a30  43 41 4c 4c 20 44 4f 53  0d 0a 20 20 20 20 20 20  |CALL DOS..      |
00001a40  20 20 20 20 20 20 20 20  4d 4f 56 20 20 20 20 20  |        MOV     |
00001a50  41 4c 2c 43 48 20 20 20  20 20 20 20 20 20 20 20  |AL,CH           |
00001a60  20 20 3b 44 4f 53 20 68  6f 75 72 73 20 6e 75 6d  |  ;DOS hours num|
00001a70  62 65 72 0d 0a 20 20 20  20 20 20 20 20 20 20 20  |ber..           |
00001a80  20 20 20 41 41 4d 20 20  20 20 20 20 20 20 20 20  |   AAM          |
00001a90  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 73 70  |             ;sp|
00001aa0  6c 69 74 20 69 6e 74 6f  20 74 77 6f 20 64 69 67  |lit into two dig|
00001ab0  69 74 73 0d 0a 20 20 20  20 20 20 20 20 20 20 20  |its..           |
00001ac0  20 20 20 58 43 48 47 20  20 20 20 41 4c 2c 41 48  |   XCHG    AL,AH|
00001ad0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 61 6e  |             ;an|
00001ae0  64 20 73 77 61 70 20 74  68 65 6d 20 69 6e 74 6f  |d swap them into|
00001af0  20 63 6f 72 72 65 63 74  20 6f 72 64 65 72 0d 0a  | correct order..|
00001b00  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4f 52  |              OR|
00001b10  20 20 20 20 20 20 5b 4f  46 46 53 45 54 28 48 4f  |      [OFFSET(HO|
00001b20  55 52 53 29 5d 2c 41 58  20 3b 57 72 69 74 65 20  |URS)],AX ;Write |
00001b30  69 6e 74 6f 20 64 61 74  61 20 61 72 65 61 0d 0a  |into data area..|
00001b40  20 20 20 20 20 20 20 20  20 20 20 20 20 20 4d 4f  |              MO|
00001b50  56 20 20 20 20 20 41 4c  2c 43 4c 20 20 20 20 20  |V     AL,CL     |
00001b60  20 20 20 20 20 20 20 20  3b 44 4f 53 20 6d 69 6e  |        ;DOS min|
00001b70  75 74 65 73 20 6e 75 6d  62 65 72 0d 0a 20 20 20  |utes number..   |
00001b80  20 20 20 20 20 20 20 20  20 20 20 41 41 4d 20 20  |           AAM  |
00001b90  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
00001ba0  20 20 20 20 20 3b 73 70  6c 69 74 20 69 6e 74 6f  |     ;split into|
00001bb0  20 74 77 6f 20 64 69 67  69 74 73 0d 0a 20 20 20  | two digits..   |
00001bc0  20 20 20 20 20 20 20 20  20 20 20 58 43 48 47 20  |           XCHG |
00001bd0  20 20 20 41 4c 2c 41 48  20 20 20 20 20 20 20 20  |   AL,AH        |
00001be0  20 20 20 20 20 3b 61 6e  64 20 73 77 61 70 20 74  |     ;and swap t|
00001bf0  68 65 6d 20 69 6e 74 6f  20 63 6f 72 72 65 63 74  |hem into correct|
00001c00  20 6f 72 64 65 72 0d 0a  20 20 20 20 20 20 20 20  | order..        |
00001c10  20 20 20 20 20 20 4f 52  20 20 20 20 20 20 5b 4f  |      OR      [O|
00001c20  46 46 53 45 54 28 4d 49  4e 55 54 45 53 29 5d 2c  |FFSET(MINUTES)],|
00001c30  41 58 20 3b 57 72 69 74  65 20 69 6e 74 6f 20 64  |AX ;Write into d|
00001c40  61 74 61 20 61 72 65 61  0d 0a 3b 4e 6f 77 20 67  |ata area..;Now g|
00001c50  65 74 20 74 68 65 20 63  6f 6d 6d 61 6e 64 20 74  |et the command t|
00001c60  61 69 6c 20 77 68 69 63  68 20 70 72 6f 76 69 64  |ail which provid|
00001c70  65 73 20 74 68 65 20 74  65 78 74 0d 0a 20 20 20  |es the text..   |
00001c80  20 20 20 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |           MOV  |
00001c90  20 20 20 41 58 2c 44 53  20 20 20 20 20 20 20 20  |   AX,DS        |
00001ca0  20 20 20 20 20 3b 45 6e  73 75 72 65 20 45 53 3d  |     ;Ensure ES=|
00001cb0  44 53 0d 0a 20 20 20 20  20 20 20 20 20 20 20 20  |DS..            |
00001cc0  20 20 4d 4f 56 20 20 20  20 20 45 53 2c 41 58 0d  |  MOV     ES,AX.|
00001cd0  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4d  |.              M|
00001ce0  4f 56 20 20 20 20 20 44  49 2c 4f 46 46 53 45 54  |OV     DI,OFFSET|
00001cf0  28 54 45 58 54 29 20 20  20 3b 53 65 74 20 64 65  |(TEXT)   ;Set de|
00001d00  73 74 69 6e 61 74 69 6f  6e 20 61 64 64 72 65 73  |stination addres|
00001d10  73 20 66 6f 72 20 74 65  78 74 0d 0a 20 20 20 20  |s for text..    |
00001d20  20 20 20 20 20 20 20 20  20 20 4d 4f 56 20 20 20  |          MOV   |
00001d30  20 20 53 49 2c 38 30 48  20 20 20 20 20 20 20 20  |  SI,80H        |
00001d40  20 20 20 20 3b 6c 6f 63  61 74 69 6f 6e 20 6f 66  |    ;location of|
00001d50  20 63 6f 6d 6d 61 6e 64  20 74 61 69 6c 20 69 6e  | command tail in|
00001d60  20 50 43 50 0d 0a 20 20  20 20 20 20 20 20 20 20  | PCP..          |
00001d70  20 20 20 20 4d 4f 56 20  20 20 20 20 41 4c 2c 5b  |    MOV     AL,[|
00001d80  53 49 5d 20 20 20 20 20  20 20 20 20 20 20 3b 67  |SI]           ;g|
00001d90  65 74 20 6c 65 6e 67 74  68 20 6f 66 20 63 6f 6d  |et length of com|
00001da0  6d 61 6e 64 20 74 61 69  6c 0d 0a 20 20 20 20 20  |mand tail..     |
00001db0  20 20 20 20 20 20 20 20  20 4d 4f 56 20 20 20 20  |         MOV    |
00001dc0  20 41 48 2c 30 20 20 20  20 20 20 20 20 20 20 20  | AH,0           |
00001dd0  20 20 20 3b 41 58 3d 6c  65 6e 67 74 68 20 6f 66  |   ;AX=length of|
00001de0  20 74 61 69 6c 0d 0a 20  20 20 20 20 20 20 20 20  | tail..         |
00001df0  20 20 20 20 20 43 4d 50  20 20 20 20 20 41 4c 2c  |     CMP     AL,|
00001e00  30 20 20 20 20 20 20 20  20 20 20 20 20 20 20 3b  |0              ;|
00001e10  63 68 65 63 6b 20 6c 65  6e 67 74 68 0d 0a 20 20  |check length..  |
00001e20  20 20 20 20 20 20 20 20  20 20 20 20 4a 45 20 20  |            JE  |
00001e30  20 20 20 20 45 58 49 54  5f 44 41 54 41 20 20 20  |    EXIT_DATA   |
00001e40  20 20 20 20 20 20 3b 61  6e 64 20 65 78 69 74 20  |      ;and exit |
00001e50  69 66 20 6c 65 6e 67 74  68 20 69 73 20 7a 65 72  |if length is zer|
00001e60  6f 0d 0a 20 20 20 20 20  20 20 20 20 20 20 20 20  |o..             |
00001e70  20 43 4d 50 20 20 20 20  20 41 4c 2c 32 31 20 20  | CMP     AL,21  |
00001e80  20 20 20 20 20 20 20 20  20 20 20 3b 63 68 65 63  |           ;chec|
00001e90  6b 20 69 66 20 67 72 65  61 74 65 72 20 74 68 61  |k if greater tha|
00001ea0  6e 20 74 77 65 6e 74 79  20 63 68 61 72 73 2e 0d  |n twenty chars..|
00001eb0  0a 20 20 20 20 20 20 20  20 20 20 20 20 20 20 4a  |.              J|
00001ec0  4c 45 20 20 20 20 20 4c  45 4e 5f 4f 4b 20 20 20  |LE     LEN_OK   |
00001ed0  20 20 20 20 20 20 20 20  20 3b 61 6e 64 20 63 6f  |         ;and co|
00001ee0  6e 74 69 6e 75 65 20 69  66 20 6e 6f 74 0d 0a 20  |ntinue if not.. |
00001ef0  20 20 20 20 20 20 20 20  20 20 20 20 20 4d 4f 56  |             MOV|
00001f00  20 20 20 20 20 41 58 2c  32 31 20 20 20 20 20 20  |     AX,21      |
00001f10  20 20 20 20 20 20 20 3b  6f 74 68 65 72 77 69 73  |       ;otherwis|
00001f20  65 20 74 72 75 6e 63 61  74 65 20 74 6f 20 74 77  |e truncate to tw|
00001f30  65 6e 74 79 20 63 68 61  72 73 2e 0d 0a 4c 45 4e  |enty chars...LEN|
00001f40  5f 4f 4b 20 20 20 20 20  20 20 20 4d 4f 56 20 20  |_OK        MOV  |
00001f50  20 20 20 43 58 2c 41 58  20 20 20 20 20 20 20 20  |   CX,AX        |
00001f60  20 20 20 20 20 3b 67 65  74 20 6c 65 6e 67 74 68  |     ;get length|
00001f70  20 69 6e 74 6f 20 43 58  0d 0a 20 20 20 20 20 20  | into CX..      |
00001f80  20 20 20 20 20 20 20 20  49 4e 43 20 20 20 20 20  |        INC     |
00001f90  53 49 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |SI              |
00001fa0  20 20 3b 73 74 65 70 20  6f 76 65 72 20 74 68 65  |  ;step over the|
00001fb0  20 6c 65 6e 67 74 68 20  62 79 74 65 20 6f 66 20  | length byte of |
00001fc0  50 43 50 0d 0a 20 20 20  20 20 20 20 20 20 20 20  |PCP..           |
00001fd0  20 20 20 43 4c 44 20 20  20 20 20 20 20 20 20 20  |   CLD          |
00001fe0  20 20 20 20 20 20 20 20  20 20 20 20 20 3b 73 65  |             ;se|
00001ff0  74 20 74 68 65 20 64 69  72 65 63 74 69 6f 6e 20  |t the direction |
00002000  66 6c 61 67 0d 0a 54 52  41 4e 53 46 45 52 5f 54  |flag..TRANSFER_T|
00002010  41 49 4c 20 4d 4f 56 53  42 20 20 20 20 20 20 20  |AIL MOVSB       |
00002020  20 20 20 20 20 20 20 20  20 20 20 20 20 20 3b 61  |              ;a|
00002030  6e 64 20 74 72 61 6e 73  66 65 72 20 63 6f 6d 6d  |nd transfer comm|
00002040  61 6e 64 20 74 61 69 6c  20 69 6e 74 6f 0d 0a 20  |and tail into.. |
00002050  20 20 20 20 20 20 20 20  20 20 20 20 20 4c 4f 4f  |             LOO|
00002060  50 20 20 20 20 54 52 41  4e 53 46 45 52 5f 54 41  |P    TRANSFER_TA|
00002070  49 4c 20 20 20 20 20 3b  74 68 65 20 64 61 74 61  |IL     ;the data|
00002080  20 61 72 65 61 2e 0d 0a  45 58 49 54 5f 44 41 54  | area...EXIT_DAT|
00002090  41 20 20 20 20 20 52 45  54 20 20 20 20 20 20 20  |A     RET       |
000020a0  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000020b0  3b 6a 6f 62 20 64 6f 6e  65 2c 20 73 6f 20 72 65  |;job done, so re|
000020c0  74 75 72 6e 20 74 6f 20  6d 61 69 6e 20 70 72 6f  |turn to main pro|
000020d0  67 72 61 6d 0d 0a 20 20  20 20 20 20 20 20 20 20  |gram..          |
000020e0  20 20 20 20 45 4e 44 50  0d 0a 0d 0a 3b 44 41 54  |    ENDP....;DAT|
000020f0  41 20 41 52 45 41 0d 0a  3b 66 69 6c 65 20 68 61  |A AREA..;file ha|
00002100  6e 64 6c 65 20 75 73 65  64 20 62 79 20 44 4f 53  |ndle used by DOS|
00002110  0d 0a 48 41 4e 44 4c 45  20 20 20 20 20 20 20 20  |..HANDLE        |
00002120  44 57 20 20 20 20 20 20  30 0d 0a 3b 41 53 43 49  |DW      0..;ASCI|
00002130  49 5a 20 66 69 6c 65 20  73 70 65 63 69 66 69 63  |IZ file specific|
00002140  61 74 69 6f 6e 20 77 68  69 63 68 20 77 69 6c 6c  |ation which will|
00002150  20 68 6f 6c 64 20 64 61  74 61 0d 0a 46 49 4c 45  | hold data..FILE|
00002160  4e 41 4d 45 20 20 20 20  20 20 44 42 20 20 20 20  |NAME      DB    |
00002170  20 20 27 43 3a 5c 41 43  54 49 56 49 54 59 2e 4c  |  'C:\ACTIVITY.L|
00002180  4f 47 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |OG              |
00002190  20 20 20 20 20 20 20 20  20 20 20 20 20 20 20 20  |                |
000021a0  20 20 20 20 20 20 20 20  27 2c 30 0d 0a 3b 44 61  |        ',0..;Da|
000021b0  74 61 20 61 72 65 61 20  75 73 65 64 20 62 79 20  |ta area used by |
000021c0  70 72 6f 67 72 61 6d 20  74 6f 20 62 75 69 6c 64  |program to build|
000021d0  20 75 70 20 74 65 78 74  0d 0a 44 41 59 20 20 20  | up text..DAY   |
000021e0  20 20 20 20 20 20 20 20  44 42 20 20 20 20 20 20  |        DB      |
000021f0  27 30 30 2d 27 0d 0a 4d  4f 4e 54 48 20 20 20 20  |'00-'..MONTH    |
00002200  20 20 20 20 20 44 42 20  20 20 20 20 20 27 30 30  |     DB      '00|
00002210  2d 27 0d 0a 59 45 41 52  20 20 20 20 20 20 20 20  |-'..YEAR        |
00002220  20 20 44 42 20 20 20 20  20 20 27 30 30 20 20 27  |  DB      '00  '|
00002230  0d 0a 48 4f 55 52 53 20  20 20 20 20 20 20 20 20  |..HOURS         |
00002240  44 42 20 20 20 20 20 20  27 30 30 3a 27 0d 0a 4d  |DB      '00:'..M|
00002250  49 4e 55 54 45 53 20 20  20 20 20 20 20 44 42 20  |INUTES       DB |
00002260  20 20 20 20 20 27 30 30  20 27 0d 0a 54 45 58 54  |     '00 '..TEXT|
00002270  20 20 20 20 20 20 20 20  20 20 44 42 20 20 20 20  |          DB    |
00002280  20 20 27 20 20 20 20 20  20 20 20 20 20 20 20 20  |  '             |
00002290  20 20 20 20 20 20 20 20  20 27 2c 43 52 2c 4c 46  |         ',CR,LF|
000022a0  0d 0a 0d 0a                                       |....|
000022a4
19-05-89/Actilog\AS.m0
19-05-89/Actilog\AS.m1
19-05-89/Actilog\AS.m2
19-05-89/Actilog\AS.m4
19-05-89/Actilog\AS.m5

© Dominic Ford 2021–2024.

Our privacy policy is here.
Last updated: 28 Jul 2024, 23:31 UTC
Website designed by .