* ASL wersja robocza›*     etykiety + inne :(›*     ale to "chodzi"›* Zenon/DIAL 18.01.2003›* dla magazynu SERIOUS #13››› opt %100101› org $8000››buf0 equ 0›buf equ $3500›colpm0s equ $02c0›dmactls equ $022f›hposp0 equ $d000›pmbase equ $d407›pmcntl equ $d01d›sizep0 equ $d008›players equ $a000›› lda 710› pha› lda #0› sta 710› ldx #$00› txa›l1 sta players+$400,x› inx› bne l1› ldx #$41›l2 lda #$0f› sta players+$470,x› dex› bpl l2› lda #$06› ldx #$42› sta players+$470,x› ldx #$ff› sta players+$370,x› lda #$3e› sta dmactls› lda >players› sta pmbase› lda #$02› sta pmcntl› lda #$7c› sta hposp0› lda #$00› sta sizep0› lda #$05› sta colpm0s› lda #1› sta 766› sta 752› lda #0› sta 207› jsr $f420› lda #1› sta 84› ldx <txt1› ldy >txt1› jsr $c642› ldx <txt2› ldy >txt2› jsr $c642› ldx <txt3› ldy >txt3› jsr $c642› ldx <txt4› ldy >txt4› jsr $c642› ldx <txt5› ldy >txt5› jsr $c642› ldx <txt0› ldy >txt0› jsr $c642› ldx <txt8› ldy >txt8› jsr $c642› ldx <txt9› ldy >txt9› jsr $c642› lda #19› sta 84› ldx <txt6› ldy >txt6› jsr $c642› ldx <txt7› ldy >txt7› jsr $c642› jsr ad› ldx #8›s1 jsr adr› dex› bpl s1› jsr adr› ldx #8› lda #24›d ldy #2› sec› sbc #1› sta (203),y› ldy #38› sta (203),y› pha› clc› lda 203› adc #40› sta 203› lda 204› adc #0› sta 204› pla› dex› bne d› lda <buf› sta buf0› lda >buf› sta buf0+1› ldy #15› lda #0›zer sta (buf0),y› dey› bpl zer› ldy #16› lda #$40› sta buf0+1› lda #0›z1 sta (buf0),y› iny› cpy #32› bne z1›wyk lda <buf› sta buf0› lda >buf› sta buf0+1›wyk2 sec› lda buf0› sbc <buf› pha› lda buf0+1› sbc >buf› tax› pla› ldy #227› jsr pwor› ldy #0›wyk1 clc› lda 88› adc <404› sta 203› lda 89› adc >404› sta 204› ldx #8› lda (0),y› pha›znak lda #63› sta 209› lda (0),y› asl @› sta (0),y› bcc sk0› lda #82› sta 209›sk0 lda 209› sta (203),y› jsr adr› dex› bne znak› pla› sta (0),y› iny› cpy #33› bne wyk1› jsr adr› jsr adr› jsr adr› ldy #16› lda #16› sta 205› lda (0),y› sta 206› ldy #10›bin lda 206› asl @› sta 206› lda 205› adc #0› dey› sta (203),y› iny› iny› iny› cpy #26› bne bin›klaw lda #255› sta 764› lda #6› sta $02d9› lda #1› sta $02da›kl ldx #1› stx 205› lda 764› cmp #7› beq min› cmp #6› beq dod› ldx #16› stx 205› lda 764› cmp #7+128› beq min› cmp #6+128› beq dod› cmp #15› beq mt› cmp #14› beq mt1› cmp #28› beq stop› cmp #10› beq pom› jmp kl›stop lda #0› sta 766› sta 752› lda #14› sta $02d9› lda #3› sta $02da› pla› sta 710› rts powrot do DOSa›min lda #255› sta 764› sec› lda 0› sbc 205› sta 0› lda 1› sbc #0› sta 1› cmp #$34› bne dol› jmp dod›dol jmp wyk2›dod  clc› lda 0› adc 205› sta 0› lda 1› adc #0› sta 1› cmp #$40› bne sun› jmp min›sun jmp wyk2›mt dec 207› lda 207› ldy #146› jsr phex› jmp klaw›mt1 inc 207› lda 207› ldy #146› jsr phex› jmp klaw›pom ldy #171› lda #48+128› sta (88),y› lda <buf+16› sta buf0› lda >buf+16› sta buf0+1› ldy #0 indeks bufora›dal lda 54016› sta (buf0),y› lda 53279› cmp #6› beq fine› lda 207› eor #$ff› tax›opu inx› bne opu› iny› bne dal› inc 1› lda 1› cmp #$40› bne dal›fine ldy #171› lda #48› sta (88),y› jmp wyk›pwor jsr phex› txa›phex pha› jsr pxdig› pla› lsr @› lsr @› lsr @› lsr @›pxdig and #%00001111› ora #%00010000› cmp #26› bcc *+4› adc #6› sta (88),y› dey› rts›adr clc› lda 203› adc #40› sta 203› lda 204› adc #0› sta 204› rts›ad lda 88› sta 203› lda 89› sta 204› rts›txt1 dta c'         Analizator (ASL)',b(155)›txt2 dta b(155)›txt3 dta c' ',b(156),c' ',b(157),c'ˆ - Takt pomiaru >00<'›     dta b(155)›txt4 dta c'  ð ˆ - Pomiar',b(155)›txt5 dta c' ',b(158),c' ',b(159),c'ˆ - Oscyloskop - ',b(155)›txt0 dta c' ÅÓÈ - DOS',b(155)›txt6 dta c'      bit  7 6 5 4 3 2 1 0  bit',b(155)›txt7 dta c'          ',b(155)›txt8 dta c'                          Zenon/DIAL',b(155)›txt9 dta c'                           16.01.2003',b(155)› org $02e0› dta a($8000)› end›››