Syzygy Magazine 7/Syzygy_Magazine_7_1999___pl_Disk_2_of_2_Side_B.atr/lekcja.arc/ASC2LONG.MAE

Text File | 1999-09-09 | 966b | 1 lines

; ASCII string ==> 24-bit word¢; In:AX- string pointer¢; Out:Z=1- non numeric¢;AXY- 24-bit word¢¢a2long=*¢?ptr=$15¢?lng=$32¢?ax=$35¢¢sta?ptr¢stx?ptr+1¢ldy#$00¢sty?lng¢sty?lng+1¢sty?lng+2¢¢lda(?ptr),y¢cmp#'$¢bne?dec¢¢?hexiny; HEX¢lda(?ptr),y¢jsr?cdc¢bcc?skp¢cmp#'A¢bcc?ext¢cmp#'F+1¢bcs?ext¢sbc#$06¢?skpand#$0f¢¢ldx#$04¢?m16asl?lng¢rol?lng+1¢rol?lng+2¢dex¢bne?m16¢ora?lng¢sta?lng¢jmp?hex¢¢?declda(?ptr),y; DEC¢jsr?cdc¢bcs?fin¢and#$0f¢pha¢¢asl?lng¢rol?lng+1¢rol?lng+2¢¢lda?lng+1¢sta?ax¢lda?lng+2¢sta?ax+1¢¢lda?lng¢asl¢rol?ax¢rol?ax+1¢asl¢rol?ax¢rol?ax+1¢¢ldx#-3¢?addadc?lng+3,x¢sta?lng+3,x¢lda?ax+3,x¢inx¢bne?add¢¢pla¢adc?lng¢sta?lng¢bcc?nxt¢inc?lng+1¢bne?nxt¢inc?lng+2¢?nxtiny¢bne?dec¢¢?extdey¢?fintya¢php¢lda?lng¢ldx?lng+1¢ldy?lng+2¢plp¢rts¢¢?cdccmp#'0        ; check dec digit¢bcc?sec¢cmp#'9+1¢.he24¢?secsec¢rts¢