From 5974924ac160fa86af18f408de75d0965d1630dc Mon Sep 17 00:00:00 2001
From: mgcaret <mgcaret@users.noreply.github.com>
Date: Sat, 4 Nov 2017 00:00:13 -0700
Subject: [PATCH] create proof-of-concept diretory and add afp.cvtime.s

---
 poc/afp.cvtime.s | 174 +++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 174 insertions(+)
 create mode 100644 poc/afp.cvtime.s

diff --git a/poc/afp.cvtime.s b/poc/afp.cvtime.s
new file mode 100644
index 0000000..5f01ba8
--- /dev/null
+++ b/poc/afp.cvtime.s
@@ -0,0 +1,174 @@
+; %help
+; afp.cvtime -- Test AppleTalk time/date conversion.
+;
+; syntax:   afp.cvtime [-a int] [-s int] [-z]
+;
+; This program verifies unusual behavior in the AppleTalk card's handling
+; of the ConvertTime call.
+;
+; The card "remembers" the seconds that were given to it by the last AFP
+; to P8 time conversion, and uses them when converting from P8 to AFP.
+;
+; This program has a fixed time in it, use -a and -s to add and subtract
+; seconds.
+;
+; Use -z to perform a conversion to Jan 1, 2000 12:00 AM between converting
+; to and from, and note the difference in the converted forward vs converted
+; back values.
+; %hend
+
+.pc02
+.include  "davex-mg.inc"
+
+prbyte    = $fdda
+
+myptr     = xczpage
+
+          DX_start $ae00 ; load address
+          DX_info $01,$12,dx_cc_iie_or_iigs,$00
+          DX_ptab
+          DX_parm 'a',t_int3    ; add
+          DX_parm 's',t_int3    ; subtract
+          DX_parm 'z',t_nil     ; zero
+          DX_end_ptab
+          DX_desc "Display AppleTalk info."
+          DX_main
+          cli                   ; appletalk requires interrupt
+          ; do this before error for testing
+          ldy   #<From1
+          lda   #>From1
+          jsr   print4          ; print original From1
+          jsr   mycr          
+          ATcall inforeq
+          bcc   :+
+          jmp   noatalk
+:         lda   #'a'|$80
+          jsr   xgetparm_ch
+          bcs   :+
+          sta   toadd+1
+          stx   toadd+2
+          sty   toadd+3
+:         lda   #'s'|$80
+          jsr   xgetparm_ch
+          bcs   :+
+          sta   tosub+1
+          stx   tosub+2
+          sty   tosub+3
+          ; big-endian add any specified # of seconds
+:         clc
+          ldx   #$03
+:         lda   From1,x
+          adc   toadd,x
+          sta   From1,x
+          dex
+          bpl   :-
+          ; big-endian subtract any specified # of seconds
+          sec
+          ldx   #$03
+:         lda   From1,x
+          sbc   tosub,x
+          sta   From1,x
+          dex
+          bpl   :-
+          ldy   #<From1
+          lda   #>From1
+          jsr   print4          ; print adjusted From1
+          jsr   mycr
+          ; Now perform network to P8 conversion
+          ATcall Net2P8
+          bcs   cnverr
+          ldy   #<To1
+          lda   #>To1
+          jsr   print4          ; display converted-to bytes
+          jsr   mycr
+          ; Display in human-readable format
+          ldy   To1
+          lda   To1+1
+          jsr   xpr_date_ay
+          lda   #' '|$80
+          jsr   cout
+          ldy   To1+2
+          lda   To1+3
+          jsr   xpr_time_ay
+          jsr   mycr
+          lda   #'z'|$80
+          jsr   xgetparm_ch
+          bcs   :+
+          ; This should reset the saved seconds number
+          ATcall ResetSec
+          bcs   cnverr
+          ; Copy to reverse conversion
+:         ldx   #$03
+:         lda   To1,x
+          sta   From2,x
+          dex
+          bpl   :-
+          ; Perform P8 to network conversion
+          ATcall P82Net
+          bcs   cnverr
+          ldy   #<To2
+          lda   #>To2
+          jsr   print4          ; display converted-back bytes
+          jsr   mycr
+          rts
+cnverr:   lda   #$01
+          jsr   xredirect
+          jsr   xmess
+          asc_hi "Conversion error!"
+          .byte $8d,$00
+          bra   exiterr
+noatalk:  lda   #$01
+          jsr   xredirect
+          jsr   xmess
+          asc_hi "AppleTalk offline!"
+          .byte $8d,$00
+exiterr:  lda   #$ff
+          jsr   xredirect
+          jmp   xerr
+;
+.proc     print4
+          sta   myptr+1
+          sty   myptr
+          ldy   #$00
+:         lda   (myptr),y
+          jsr   prbyte
+          iny
+          cpy   #$04
+          bne   :-
+          ldy   myptr
+          rts
+.endproc
+.proc     mycr
+          lda   #$8d
+          jmp   cout
+.endproc
+;
+toadd:    .res 4,0              ; BIG ENDIAN
+tosub:    .res 4,0              ; BIG ENDIAN
+;
+inforeq:  .byte 0,2             ; sync GetInfo
+          .word $0000           ; result code
+          .dword $00000000      ; completion address
+thisnet:  .word $0000           ; this network #
+abridge:  .byte $00             ; local bridge
+hwid:     .byte $00             ; hardware ID, IIgs only
+romver:   .word $00             ; ROM version, IIgs only
+nodenum:  .byte $00             ; node number
+; Convert time parameters - network to P8
+Net2P8:   .byte 0,$34           ; sync ConvertTime
+          .word $0000           ; result
+          .byte $00             ; 0 = from AFP to ProDOS, 1 = reverse
+From1:    .byte $21,$90,$14,$cd ; BIG ENDIAN, 4-Nov-17 6:03:57 AM GMT
+To1:      .dword $00000000      ; P8 Time
+; Convert time parameters - P8 to network
+P82Net:   .byte 0,$34           ; sync ConvertTime
+          .word $0000           ; result
+          .byte $01             ; 1 = ProDOS to AFP
+From2:    .dword $00000000      ; P8 Time
+To2:      .dword $00000000      ; BIG ENDIAN
+ResetSec: .byte 0,$34           ; sync ConvertTime
+          .word $0000           ; result
+          .byte $00             ; 0 = from AFP to ProDOS, 1 = reverse
+          .dword $00000000      ; BIG ENDIAN, Jan 1, 2000 12:00 AM GMT
+          .dword $00000000      ; P8 Time
+          DX_end