#11 Article 61 Posted at 1987/01/26 02:21:37 by SHINOBU (MAP055) [PRG.PACK]

Subject: ｻｲｾｲ･ﾌﾟﾛｸﾞﾗﾑ ｿｰｽ(6809)

ORG $2000
 CLR $FD0F
 LDX #$8000
 LDU #$2506
 CLR C1,PCR
 CLR C2,PCR
LOOP1:LBSR BITIN
 BCS HAFE
WORD:LDA #1
WORD1:PSHS A
 LDB #4
 CLRA
WORD2:LBSR BITIN
 ROLA
 DECB
 BNE WORD2
 TST C2,PCR
 BNE WORD3
 LSLA
 LSLA
 LSLA
 LSLA
 STA M1,PCR
 INC C2,PCR
 BRA WORD4
WORD3:ORA M1,PCR
 STA ,X+
 DEC C2,PCR
WORD4:PULS A
 DECA
 BNE WORD1
 CMPX #$BE80
 BPL PUT
 BRA LOOP1
HAFE:LDB #4
 CLRA
LOOP2:LBSR BITIN
 ROLA
 DECB
 BNE LOOP2
 PSHS A
 LDB #3
 CLRA
LOOP3:LBSR BITIN
 ROLA
 DECB
 BNE LOOP3
 CLRB
LOOP4:LBSR BITIN
 ROLB
 DECA
 BPL LOOP4
 PULS A
 STA D1,PCR
 LSLA
 LSLA
 LSLA
 LSLA
 STA D2,PCR
LOOP5:TST C2,PCR
 BNE LOOP6
 LDA D2,PCR
 STA M1,PCR
 INC C2,PCR
 BRA LOOP8
LOOP6:LDA M1,PCR
 ORA D1,PCR
 STA ,X+
 CMPX #$BE80
 BNE LOOP7
PUT: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
 LDB #$40
 LDU #$FCC0
SLOOP2:LDA ,Y+
 STA ,U+
 DECB
 BNE SLOOP2
 CLR $FD05
 PULS A
 LDU SADR,PCR
 LEAU 64,U
 STU SADR,PCR
 DECA
 BNE SLOOP3
 TST $FD0F
 RTS
LOOP7:DEC <C2,PCR
LOOP8:DECB
 CMPB #$FF
 BNE LOOP5
 LBRA LOOP1
BITIN:PSHS A
 TST <C1,PCR
 BNE LOOP9
 LDA ,U+
 STA <M2,PCR
 LDA #8
 STA <C1,PCR
LOOP9:DEC <C1,PCR
 LSL <M2,PCR
 PULS A,PC
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 $D3BF
 FDB 1
 FCB $91
 FDB $D3C0
SADR:FDB $0000
 FDB 64
 FCB $90
M1:RMB 1
M2:RMB 1
D1:RMB 1
D2:RMB 1
C1:RMB 1
C2:RMB 1