#11 Article 60 Posted at 1987/01/26 02:14:53 by SHINOBU (MAP055) [PRG.PACK]
Subject: ｱｼｭｸ･ﾌﾟﾛｸﾞﾗﾑ ｿｰｽ(6809)
ORG $2000 CLR $FD0F LDU #0 STU SADR,PCR LDY #$8000 LDA #250 SLOOP3:PSHS A LBSR HLT LEAX COM,PCR LDU #$FC82 LDB #24 LOOP:LDA ,X+ STA ,U+ DECB BNE LOOP CLR $FD05 LBSR HLT LDB #$40 LDU #$FCC0 SLOOP2:LDA ,U+ STA ,Y+ DECB BNE SLOOP2 LDA #$80 STA $FC80 CLR $FD05 PULS A LDU SADR,PCR LEAU 64,U STU SADR,PCR DECA BNE SLOOP3 LDX #$8000 LDU #$2506 LDA #8 STA C1,PCR CLR C2,PCR LOOP1:BSR HSET LOOP5:CLRB LDA M1,PCR LOOP6:BSR HSET CMPA M1,PCR BEQ LOOP7 BSR DSET BRA LOOP5 LOOP7:INCB CMPB #$FF BNE LOOP6 BSR DSET BRA LOOP1 HSET:PSHS A,B CLR M1,PCR LDB C2,PCR BNE HSET2 CMPX #$BE80 BNE HSET4 PULS A,B,Y BSR DSET LBSR FLUSH STU $2504 TST $FD0F RTS HSET2:BSR LOOP2 PULS A,B,PC HSET4:BSR LOOP4 PULS A,B,PC LOOP4:LDA ,X+ LDB #2 BRA LOOP3 LOOP2:LDA M2,PCR LOOP3:LSLA ROL M1,PCR LSLA ROL M1,PCR LSLA ROL M1,PCR LSLA ROL M1,PCR DECB STA M2,PCR STB C2,PCR RTS DSET:LSLA LSLA LSLA LSLA TSTB BEQ WORD COMA COMA LBSR BITSET PSHS B LDB #4 LOOP8:LSLA BSR BITSET DECB BNE LOOP8 PULS B LDA #7 LOOP10:LSLB BCS LOOP9 TSTA BEQ LOOP9 DECA BRA LOOP10 LOOP9:PSHS A,B,CC LSLA LSLA LSLA LSLA LSLA LDB #3 LOOP11:LSLA BSR BITSET DECB BNE LOOP11 PULS A,B,CC LOOP12:BSR BITSET DECA BMI LOOP13 LSLB BRA LOOP12 LOOP13:RTS WORD:CLRB BSR BITSET LDB #4 WORD1:LSLA BSR BITSET DECB BNE WORD1 RTS BITSET:PSHS A LDA M3,PCR ROLA STA M3,PCR DEC C1,PCR BNE LOOP14 STA ,U+ LDA #8 STA C1,PCR LOOP14:PULS A,PC FLUSH:LDA C1,PCR CMPA #8 BEQ LOOP15 CLRA BSR BITSET BRA FLUSH LOOP15:RTS HLT:LDA $FD05 BMI HLT LDA #$80 STA $FD05 HLT1:LDA $FD05 BPL HLT1 RTS COM:FCB $3F FCC /YAMAUCHI/ FCB $91 FDB $D409 FDB $D3FF FDB 1 FCB $91 SADR:FDB $0 FDB $D3C0 FDB 64 FCB $90 M1:RMB 1 M2:RMB 1 M3:RMB 1 C1:RMB 1 C2:RMB 1