Serious Magazine 5/Serious_Magazine_05_1999_Dial_pl_Side_B.atr/sstuff05.arc/KROGER.ARC/ICT6502.ASM

Assembly Source File | 1988-09-01 | 8KB | 1 lines

*  6502¢* Illegal¢*  Codes¢* Tester¢*¢* Kroger/Quasimodos¢* 14 III 1999¢¢ opt 21¢¢rand equ $d20a¢¢ciov equ $e456¢iocb equ $340¢comm equ iocb+2¢addr equ iocb+4¢size equ iocb+8¢mode equ iocb+10¢¢l1 equ $80¢l2 equ $81¢l3 equ $82¢l4 equ $83¢l5 equ $84¢tu equ $85¢ta equ $86¢wh equ $87¢n equ $88¢er equ $89¢¢pom1 equ $90¢¢ org $9000¢¢ ldx #16¢ lda #3¢ sta comm,x¢ lda <name¢ sta addr,x¢ lda >name¢ sta addr+1,x¢ lda #8¢ sta mode,x¢ jsr ciov¢¢ lda #11¢ sta comm,x¢ lda <tx1¢ sta addr,x¢ lda >tx1¢ sta addr+1,x¢ lda <ln1¢ sta size,x¢ lda >ln1¢ sta size+1,x¢ jsr ciov¢¢ lda #0¢ sta n¢ sta er¢¢ lda #0¢ sta pom1¢ lda #$9f¢ sta pom1+1¢¢ lda rand¢ sta l1¢ lda rand¢ sta l2¢ sta a0+1¢ sta a1+1¢ sta a2+1¢ sta a3+1¢ lda rand¢ sta l5¢ sta a4+1¢ lda rand¢ sta wh¢¢* IJמבב¢¢ lda l1¢ and l2¢ sta l3¢¢ lda l1¢a0 dta b($2b),b(0)¢ sta l4¢ php¢ cmp l3¢ beq b0¢¢ jsr e¢¢b0 equ *¢ lda l4¢ and #$80¢ sta l4¢ clc¢ asl @¢ rol @¢ sta l4¢ pla¢ and #1¢ cmp l4¢ beq b1¢¢ jsr e¢¢b1 equ *¢ inc n¢ lda l1¢a1 dta b($b),b(0)¢ sta l4¢ php¢ cmp l3¢ beq b2¢¢ jsr e¢¢b2 equ *¢ lda l4¢ and #$80¢ sta l4¢ clc¢ asl @¢ rol @¢ sta l4¢ pla¢ and #1¢ cmp l4¢ beq b3¢¢ jsr e¢¢* IJמצפ¢¢b3 equ *¢ inc n¢ lda l1¢ and l2¢ lsr @¢ sta l3¢¢ lda l1¢a2 dta b($4b),b(0)¢ cmp l3¢ beq b4¢¢ jsr e¢¢* IJמקן¢¢b4 equ *¢ inc n¢ lda l1¢ and l2¢ sta l3¢¢ lda l1¢a3 dta b($ab),b(0)¢ cmp l3¢ beq b5¢¢ jsr e¢¢b5 equ *¢ cpx l3¢ beq b6¢¢ jsr e¢¢* IJצאן¢¢b6 equ *¢ inc n¢ lda l1¢ and l2¢ sec¢ sbc l5¢ sta l3¢¢ lda l1¢ ldx l2¢a4 dta b($cb),b(0)¢ cpx l3¢ beq b7¢¢ jsr e¢¢* גבסIJ¢¢b7 equ *¢ inc n¢ ldy wh¢ lda l1¢ sta $9f00,y¢¢ sec¢ sbc #1¢ sta l3¢ lda l2¢ cmp l3¢¢ php¢ pla¢ and #%10000011¢ sta l3¢¢ lda l2¢ dta b($d3),b($90)¢ php¢ pla¢ and #%10000011¢ cmp l3¢ beq b8¢¢ jsr e¢¢b8 equ *¢ inc n¢ ldx #0¢ lda l1¢ sta $9f00¢¢ lda l2¢ dta b($c3),b($90)¢ php¢ pla¢ and #%10000011¢ cmp l3¢ beq b9¢¢ jsr e¢¢b9 equ *¢ inc n¢ lda l1¢ sta $9f00¢¢ lda l2¢ dta b($cf),a($9f00)¢ php¢ pla¢ and #%10000011¢ cmp l3¢ beq b10¢¢ jsr e¢¢b10 equ *¢ inc n¢ lda l1¢ ldy wh¢ sta $9f00,y¢¢ lda l2¢ dta b($db),a($9f00)¢ php¢ pla¢ and #%10000011¢ cmp l3¢ beq b11¢¢ jsr e¢¢b11 equ *¢ inc n¢ ldx wh¢ lda l1¢ sta $9f00,x¢¢ lda l2¢ dta b($df),a($9f00)¢ php¢ pla¢ and #%10000011¢ cmp l3¢ beq b12¢¢ jsr e¢¢b12 equ *¢ inc n¢ lda l1¢ sta $9f00¢¢ lda l2¢ dta b($c7),b(l1)¢ php¢ pla¢ and #%10000011¢ cmp l3¢ beq b13¢¢ jsr e¢¢b13 equ *¢ inc n¢ lda l1¢ inc l1¢¢ ldx #0¢ lda l2¢ dta b($d7),b(l1)¢ php¢ pla¢ and #%10000011¢ cmp l3¢ beq b14¢¢ jsr e¢¢* חמצא¢¢b14 equ *¢ inc n¢ lda l1¢ clc¢ adc #1¢ sta l3¢¢ sec¢ lda l2¢ sbc l3¢ sta l3¢¢ ldy wh¢ lda l1¢ sta $9f00,y¢¢ lda l2¢ sec¢ dta b($f3),b(pom1)¢ cmp l3¢ beq b15¢¢ jsr e¢¢b15 equ *¢ inc n¢ lda l1¢ sta $9f00¢¢ ldx #0¢ lda l2¢ sec¢ dta b($e3),b(pom1)¢ cmp l3¢ beq b16¢¢ jsr e¢¢b16 equ *¢ inc n¢ lda l1¢ sta $9f00¢¢ sec¢ lda l2¢ dta b($ef),a($9f00)¢ cmp l3¢ beq b17¢¢ jsr e¢¢b17 equ *¢ inc n¢ ldy wh¢ lda l1¢ sta $9f00,y¢¢ sec¢ lda l2¢ dta b($fb),a($9f00)¢ cmp l3¢ beq b18¢¢ jsr e¢¢b18 equ *¢ inc n¢ ldx wh¢ lda l1¢ sta $9f00,x¢¢ sec¢ lda l2¢ dta b($ff),a($9f00)¢ cmp l3¢ beq b19¢¢ jsr e¢¢b19 equ *¢ inc n¢ lda l1¢ sta tu¢¢ sec¢ lda l2¢ dta b($e7),b(tu)¢ cmp l3¢ beq b20¢¢ jsr e¢¢b20 equ *¢ inc n¢ lda l1¢ sta tu¢¢ ldx #0¢ sec¢ lda l2¢ dta b($f7),b(tu)¢ cmp l3¢ beq b21¢¢ jsr e¢¢* כגבן¢¢b21 equ *¢ inc n¢ lda l1¢ sta $9f00¢¢ ldx #0¢ dta b($a3),b(pom1)¢ cmp l1¢ bne r0¢ cpx l1¢ beq b22¢¢r0 jsr e¢¢b22 equ *¢ inc n¢ ldy wh¢ lda l1¢ sta $9f00,y¢¢ dta b($b3),b(pom1)¢ cmp l1¢ bne r1¢ cpx l1¢ beq b23¢¢r1 jsr e¢¢b23 equ *¢ inc n¢ dta b($af),a($9f00)¢ cmp l1¢ bne r2¢ cpx l1¢ beq b24¢¢r2 jsr e¢¢b24 equ *¢ inc n¢ lda l1¢ ldy wh¢ sta $9f00,y¢¢ dta b($bf),a($9f00)¢ cmp l1¢ bne r3¢ cpx l1¢ beq b25¢¢r3 jsr e¢¢b25 equ *¢ inc n¢ dta b($a7),b(l1)¢ cmp l1¢ bne r4¢ cpx l1¢ beq b26¢¢r4 jsr e¢¢b26 equ *¢ inc n¢ ldy #0¢ dta b($b7),b(l1)¢ cmp l1¢ bne r5¢ cpx l1¢ beq b27¢¢r5 jsr e¢¢* פכIJמ¢¢¢b27 equ *¢ inc n¢ sec¢ lda l1¢ rol @¢ and l2¢ sta l3¢¢ ldy wh¢ lda l1¢ sta $9f00,y¢¢ lda l2¢ sec¢ dta b($33),b(pom1)¢ cmp l3¢ beq b28¢¢ jsr e¢¢b28 equ *¢ inc n¢ lda l1¢ sta $9f00¢ ldx #0¢ lda l2¢ sec¢ dta b($23),b(pom1)¢ cmp l3¢ beq b29¢¢ jsr e¢¢b29 equ *¢ inc n¢ lda l1¢ sta $9f00¢ lda l2¢ sec¢ dta b($2f),a($9f00)¢ cmp l3¢ beq b30¢¢ jsr e¢¢b30 equ *¢ inc n¢ ldy wh¢ lda l1¢ sta $9f00,y¢¢ lda l2¢ sec¢ dta b($3b),a($9f00)¢ cmp l3¢ beq b31¢¢ jsr e¢¢b31 equ *¢ inc n¢ ldx wh¢ lda l1¢ sta $9f00,x¢¢ lda l2¢ sec¢ dta b($3f),a($9f00)¢ cmp l3¢ beq b32¢¢ jsr e¢¢b32 equ *¢ inc n¢ lda l1¢ sta tu¢ lda l2¢ sec¢ dta b($27),b(tu)¢ cmp l3¢ beq b33¢¢ jsr e¢¢b33 equ *¢ inc n¢ lda l1¢ sta tu¢ ldx #0¢ lda l2¢ sec¢ dta b($37),b(tu)¢ cmp l3¢ beq b34¢¢ jsr e¢¢* פפIJג¢¢b34 equ *¢ inc n¢ lda l2¢ sta tu¢¢ clc¢ lda l1¢ ror @¢ adc tu¢ sta l3¢¢ ldy wh¢ lda l1¢ sta $9f00,y¢ clc¢ lda tu¢ dta b($73),b(pom1)¢ cmp l3¢ beq b35¢¢ jsr e¢¢b35 equ *¢ inc n¢ lda l1¢ sta $9f00¢ ldx #0¢ clc¢ lda tu¢ dta b($63),b(pom1)¢ cmp l3¢ beq b36¢¢ jsr e¢¢b36 equ *¢ inc n¢ lda l1¢ sta $9f00¢ clc¢ lda tu¢ dta b($6f),a($9f00)¢ cmp l3¢ beq b37¢¢ jsr e¢¢b37 equ *¢ inc n¢ ldy wh¢ lda l1¢ sta $9f00,y¢ clc¢ lda tu¢ dta b($7b),a($9f00)¢ cmp l3¢ beq b38¢¢ jsr e¢¢b38 equ *¢ inc n¢ ldx wh¢ lda l1¢ sta $9f00,x¢ clc¢ lda tu¢ dta b($7f),a($9f00)¢ cmp l3¢ beq b39¢¢ jsr e¢¢b39 equ *¢ inc n¢ lda l1¢ sta ta¢ clc¢ lda tu¢ dta b($67),b(ta)¢ cmp l3¢ beq b40¢¢ jsr e¢¢b40 equ *¢ inc n¢ lda l1¢ sta ta¢ ldx #0¢ clc¢ lda tu¢ dta b($77),b(ta)¢ cmp l3¢ beq b41¢¢ jsr e¢¢* צכנפ¢¢b41 equ *¢ inc n¢ lda l2¢ sta tu¢¢ lda l1¢ asl @¢ ora tu¢ sta l3¢¢ ldy wh¢ lda l1¢ sta $9f00,y¢ lda tu¢ dta b($13),b(pom1)¢ cmp l3¢ beq b42¢¢ jsr e¢¢b42 equ *¢ inc n¢ lda l1¢ sta $9f00¢ ldx #0¢ lda tu¢ dta b($03),b(pom1)¢ cmp l3¢ beq b43¢¢ jsr e¢¢b43 equ *¢ inc n¢ lda l1¢ sta $9f00¢ lda tu¢ dta b($0f),a($9f00)¢ cmp l3¢ beq b44¢¢ jsr e¢¢b44 equ *¢ inc n¢ ldy wh¢ lda l1¢ sta $9f00,y¢ lda tu¢ dta b($1b),a($9f00)¢ cmp l3¢ beq b45¢¢ jsr e¢¢b45 equ *¢ inc n¢ ldx wh¢ lda l1¢ sta $9f00,x¢ lda tu¢ dta b($1f),a($9f00)¢ cmp l3¢ beq b46¢¢ jsr e¢¢b46 equ *¢ inc n¢ lda l1¢ sta ta¢ lda tu¢ dta b($07),b(ta)¢ cmp l3¢ beq b47¢¢ jsr e¢¢b47 equ *¢ inc n¢ lda l1¢ sta ta¢ ldx #0¢ lda tu¢ dta b($17),b(ta)¢ cmp l3¢ beq b48¢¢ jsr e¢¢* צפןפ¢¢b48 equ *¢ inc n¢ lda l2¢ sta tu¢¢ lda l1¢ lsr @¢ eor tu¢ sta l3¢¢ lda l1¢ sta $9f00¢ ldx #0¢ lda tu¢ dta b($43),b(pom1)¢ cmp l3¢ beq b49¢¢ jsr e¢¢b49 equ *¢ inc n¢ ldy wh¢ lda l1¢ sta $9f00,y¢ lda tu¢ dta b($53),b(pom1)¢ cmp l3¢ beq b50¢¢ jsr e¢¢b50 equ *¢ inc n¢ lda l1¢ sta $9f00¢ lda tu¢ dta b($4f),a($9f00)¢ cmp l3¢ beq b51¢¢ jsr e¢¢b51 equ *¢ inc n¢ ldy wh¢ lda l1¢ sta $9f00,y¢ lda tu¢ dta b($5b),a($9f00)¢ cmp l3¢ beq b52¢¢ jsr e¢¢b52 equ *¢ inc n¢ ldx wh¢ lda l1¢ sta $9f00,x¢ lda tu¢ dta b($5f),a($9f00)¢ cmp l3¢ beq b53¢¢ jsr e¢¢b53 equ *¢ inc n¢ lda l1¢ sta ta¢ lda tu¢ dta b($47),b(ta)¢ cmp l3¢ beq b54¢¢ jsr e¢¢b54 equ *¢ inc n¢ lda l1¢ sta ta¢ ldx #0¢ lda tu¢ dta b($57),b(ta)¢ cmp l3¢ beq b55¢¢ jsr e¢¢* צקבן¢¢b55 equ *¢ inc n¢ lda l1¢ and l2¢ sta l3¢¢ lda l1¢ ldx l2¢ dta b($8f),a($9f00)¢ lda $9f00¢ cmp l3¢ beq b56¢¢ jsr e¢¢b56 equ *¢ inc n¢ lda l1¢ ldx l2¢ dta b($87),b(ta)¢ lda ta¢ cmp l3¢ beq b57¢¢ jsr e¢¢b57 equ *¢ inc n¢ ldy #0¢ lda l1¢ ldx l2¢ dta b($97),b(ta)¢ lda ta,y¢ cmp l3¢ beq b58¢¢ jsr e¢¢b58 equ *¢ lda er¢ bne b59¢¢ ldx #16¢ lda #11¢ sta comm,x¢ lda <tx3¢ sta addr,x¢ lda >tx3¢ sta addr+1,x¢ lda <ln3¢ sta size,x¢ lda >ln3¢ sta size+1,x¢ jsr ciov¢¢b59 equ *¢ lda #12¢ sta comm,x¢ jmp ciov¢¢* -¢¢codes equ *¢ dta c'2B0B4BABCBD3C3CF'¢ dta c'DBDFC7D7F3E3EFFB'¢ dta c'FFE7F7A3B3AFBFA7'¢ dta c'B733232F3B3F2737'¢ dta c'73636F7B7F677713'¢ dta c'030F1B1F07174353'¢ dta c'4F5B5F47578F879F'¢¢e equ *¢ pha¢ txa¢ pha¢ tya¢ pha¢¢ lda er¢ bne e_¢¢ ldx #16¢ lda #11¢ sta comm,x¢ lda <tx2¢ sta addr,x¢ lda >tx2¢ sta addr+1,x¢ lda <ln2¢ sta size,x¢ lda >ln2¢ sta size+1,x¢ jsr ciov¢¢ inc er¢¢e_ equ *¢ ldx #16¢ lda #11¢ sta comm,x¢¢ lda n¢ asl @¢ clc¢ adc <codes¢ sta addr,x¢ lda >codes¢ adc #0¢ sta addr+1,x¢ lda #2¢ sta size,x¢ lda #0¢ sta size+1,x¢ jsr ciov¢¢ lda <tx4¢ sta addr,x¢ lda >tx4¢ sta addr+1,x¢ lda <ln4¢ sta size,x¢ lda >ln4¢ sta size+1,x¢ jsr ciov¢¢ pla¢ tay¢ pla¢ tax¢ pla¢ rts¢¢¢name dta c'E:'¢¢tx1 equ *¢ dta b(155)¢ dta c'6502 Illegal Codes Tester 1.0',b(155)¢ dta c'-----------------------------',b(155),b(¢155)¢ dta c'Written by Kr0ger/Quasimodos!',b(155)¢ dta b(155),b(155)¢ln1 equ *-tx1¢¢tx2 equ *¢ dta c'I don''t know following codes:'¢ dta b(155)¢ln2 equ *-tx2¢¢tx3 equ *¢ dta c'OK !!!'¢ dta b(155),b(155)¢ln3 equ *-tx3¢¢tx4 equ *¢ dta b(155)¢ln4 equ *-tx4¢