Syzygy Magazine 7/Syzygy_Magazine_7_1999___pl_Disk_2_of_2_Side_B.atr/hip.arc/SHOWHIP.MAE

Text File | 1999-09-28 | 2KB | 1 lines

showhip =*¢?ptr=$15¢?bp0=$30¢?bp1=$32¢?dl0=$34¢?dl1=$36¢?hgh=$38¢?col=$39¢?aux=$3a¢¢sta?ptr¢stx?ptr+1¢¢ldy#$09¢lda(?ptr),y¢sta?bp0,y¢dey¢bpl*-6¢¢iny¢sec¢lda#$f0¢sbc?hgh¢sta?aux¢lsr¢lsr¢lsr¢lsr¢beq?lem¢tax¢lda#$70¢jsr?put¢dex¢bne*-4¢¢?lemsec¢lda?aux¢and#$0e¢sbc#$02¢asl¢asl¢asl¢ora#$80¢jsr?put¢sty?aux¢¢lsr?hgh¢?mdljsr?lms¢ldx#-2¢?l0lda?bp0+2,x¢sta(?dl0),y¢lda?bp1+2,x¢sta(?dl1),y¢iny¢inx¢bne?l0¢jsr?nln¢jsr?lms¢ldx#-2¢?l1lda?bp1+2,x¢sta(?dl0),y¢lda?bp0+2,x¢sta(?dl1),y¢iny¢inx¢bne?l1¢jsr?nln¢lda#$06¢ldx#?dl0¢jsr?add¢ldy?aux¢dec?hgh¢bne?mdl¢¢lda#$41¢jsr?put¢sty?aux¢¢ldy#$07¢ldx#$03¢lda(?ptr),y¢sta?bp0,x¢dey¢dex¢bpl*-6¢ldy?aux¢ldx#-2¢?cdllda?bp0+2,x¢sta(?dl1),y¢lda?bp1+2,x¢sta(?dl0),y¢iny¢inx¢bne?cdl¢¢lda#<?dli0¢sta$0200¢lda#>?dli0¢sta$0201¢¢inc$42¢inc$d400¢¢lda?bp0+1¢sta$d403¢lda?bp0¢sta$d402¢¢asl$d40e¢¢lda?col¢and#$f0¢sta?cl2+1¢ora#$0e¢sta?clo+1¢ldx#$08¢sta$d012,x¢sbc#$02¢dex¢bne*-6¢adc#$02¢sta$d012¢ora#$08¢ldy$02c5¢sta$02c5¢¢lda$d40b¢bne*-3¢¢lda#$22¢sta$d400¢rts¢¢?nlnlda#$28¢ldx#?bp0¢?addpha¢clc¢adc$00,x¢sta$00,x¢bcc*+5¢inc$01,x¢clc¢pla¢adc$02,x¢sta$02,x¢bcc*+4¢inc$03,x¢rts¢¢?lmslda#$cf¢?putsta(?dl0),y¢sta(?dl1),y¢iny¢rts¢¢?dli0pha¢lda#<?dli1¢sta$0200¢lda#>?dli1¢sta$0201¢lda#$80¢sta$d40a¢sta$d01b¢?clolda#$00¢sta$d01a¢pla¢rti¢¢?dli1pha¢lda#<?dli0¢sta$0200¢lda#>?dli0¢sta$0201¢lda#$40¢sta$d40a¢sta$d01b¢?cl0lda#$00¢sta$d01a¢pla¢rti¢