Oakland CPM Archive

home *** CD-ROM | disk | FTP | other *** search

/ Oakland CPM Archive / oakcpm.iso / sigm / vol131 / datentim.src < prev next >

Wrap

Text File | 1984-04-29 | 4KB | 481 lines

name datentimestamp entry datentimestamp ext date ext mid ext name_date ext str2integer ext time datentimestamp: ENTR D,2,60 STMT D,4097 JR L2318 L2317 DB ' : : ',8 L2318 LXI H,L2317+8 XCHG PUSH IX POP H LXI B,-11 DADD B XCHG LXI B,9 LDDR STMT D,4098 JR L2326 L2325 DB ' 91/ / ',10 L2326 LXI H,L2325+10 XCHG PUSH IX POP H LXI B,-45 DADD B XCHG LXI B,11 LDDR STMT D,4099 PUSH IX POP H LXI B,-11 DADD B PUSH H CALL TIME STMT D,4100 PUSH IX POP H LXI B,-45 DADD B PUSH H PUSH IX POP H DCX H DCX H DCX H PUSH H MVI B,2 PUSH B INX S CALL DATE STMT D,4101 LXI H,-256 DADD S SPHL PUSH IX POP H LXI B,-45 DADD B SPSH S,255 LXI H,1 PUSH H LXI H,2 PUSH H CALL MID STMT M,4101 LXI H,255 DADD S XCHG PUSH IX POP H LXI B,-35 DADD B XCHG LXI B,10 LDDR LXI H,256 DADD S SPHL STMT D,4102 PUSH IX POP H LXI B,-35 DADD B SPSH S,255 PUSH IX POP H LXI B,-7 DADD B PUSH H MVI B,2 PUSH B INX S PUSH IX POP H LXI B,-5 DADD B PUSH H MVI B,2 PUSH B INX S CALL STR2INTEGER STMT M,4102 JRNC L2370 INR A L2370 MOV L,A XRA A MOV H,A RCHK H,0,1 MOV 0(IX),L STMT D,4103 LXI H,-256 DADD S SPHL PUSH IX POP H LXI B,-45 DADD B SPSH S,255 LXI H,4 PUSH H LXI H,5 PUSH H CALL MID STMT M,4103 LXI H,255 DADD S XCHG PUSH IX POP H LXI B,-25 DADD B XCHG LXI B,10 LDDR LXI H,256 DADD S SPHL STMT D,4104 PUSH IX POP H LXI B,-25 DADD B SPSH S,255 PUSH IX POP H DCX H PUSH H MVI B,2 PUSH B INX S PUSH IX POP H LXI B,-5 DADD B PUSH H MVI B,2 PUSH B INX S CALL STR2INTEGER STMT M,4104 JRNC L2418 INR A L2418 MOV L,A XRA A MOV H,A RCHK H,0,1 MOV 0(IX),L STMT D,4105 LXI H,-256 DADD S SPHL PUSH IX POP H LXI B,-45 DADD B SPSH S,255 LXI H,7 PUSH H LXI H,10 PUSH H CALL MID STMT M,4105 LXI H,255 DADD S XCHG PUSH IX POP H LXI B,-20 DADD B XCHG LXI B,5 LDDR LXI H,256 DADD S SPHL STMT D,4106 PUSH IX POP H LXI B,-20 DADD B SPSH S,255 PUSH IX POP H LXI B,-9 DADD B PUSH H MVI B,2 PUSH B INX S PUSH IX POP H LXI B,-5 DADD B PUSH H MVI B,2 PUSH B INX S CALL STR2INTEGER STMT M,4106 JRNC L2466 INR A L2466 MOV L,A XRA A MOV H,A RCHK H,0,1 MOV 0(IX),L STMT D,4107 MOV L,-8(IX) MOV H,-7(IX) PUSH H MOV L,-2(IX) MOV H,-1(IX) PUSH H MOV L,-10(IX) MOV H,-9(IX) PUSH H PUSH IX POP H DCX H DCX H DCX H PUSH H MVI B,2 PUSH B INX S PUSH IX POP H LXI B,-35 DADD B PUSH H PUSH IX POP H LXI B,-25 DADD B PUSH H CALL NAME_DATE STMT D,4108 CMP 10(IX) JNC L2526 STMT D,4109 MOV H,9(IX) MOV L,8(IX) PUSH H MOV H,A MOV L,A XTHL PUSH H MOV H,A MOV L,A PUSH H LXI H,1 LPUSH H,2 LXI H,1793 PUSH H LXI B,10 PUSH B LXI H,-10 DADD S SPHL XCHG PUSH IX POP H LXI B,-34 DADD B LXI B,10 LDIR LXI H,769 PUSH H LXI B,1 PUSH B LXI H,32 MOV H,L PUSH H INX S LXI H,1793 PUSH H LXI B,10 PUSH B LXI H,-10 DADD S SPHL XCHG PUSH IX POP H LXI B,-44 DADD B LXI B,10 LDIR LXI H,515 PUSH H MOV L,-2(IX) MOV H,-1(IX) PUSH H LXI H,769 PUSH H LXI B,1 PUSH B LXI H,32 MOV H,L PUSH H INX S LXI H,1793 PUSH H LXI B,5 PUSH B LXI H,-5 DADD S SPHL XCHG PUSH IX POP H LXI B,-24 DADD B LXI B,5 LDIR JR L2586 L2585 DB ' ',2 L2586 LXI H,769 PUSH H LXI B,2 PUSH B LXI H,-2 DADD S SPHL XCHG LXI H,L2585+0 LXI B,2 LDIR LXI H,1793 PUSH H LXI B,9 PUSH B LXI H,-9 DADD S SPHL XCHG PUSH IX POP H LXI B,-19 DADD B LXI B,9 LDIR LXI B,78 CALL L111 JMP L2593 L2526 STMT D,4110 LXI H,1793 PUSH H LXI B,10 PUSH B LXI H,-10 DADD S SPHL XCHG PUSH IX POP H LXI B,-34 DADD B LXI B,10 LDIR LXI H,769 PUSH H LXI B,1 PUSH B LXI H,32 MOV H,L PUSH H INX S LXI H,1793 PUSH H LXI B,10 PUSH B LXI H,-10 DADD S SPHL XCHG PUSH IX POP H LXI B,-44 DADD B LXI B,10 LDIR LXI H,515 PUSH H MOV L,-2(IX) MOV H,-1(IX) PUSH H LXI H,769 PUSH H LXI B,1 PUSH B LXI H,32 MOV H,L PUSH H INX S LXI H,1793 PUSH H LXI B,5 PUSH B LXI H,-5 DADD S SPHL XCHG PUSH IX POP H LXI B,-24 DADD B LXI B,5 LDIR JR L2643 L2642 DB ' ',2 L2643 LXI H,769 PUSH H LXI B,2 PUSH B LXI H,-2 DADD S SPHL XCHG LXI H,L2642+0 LXI B,2 LDIR LXI H,1793 PUSH H LXI B,9 PUSH B LXI H,-9 DADD S SPHL XCHG PUSH IX POP H LXI B,-19 DADD B LXI B,9 LDIR LXI B,70 CALL L111 L2593 STMT D,4111 EXIT D,3 END DATENTIMESTAMP