01       .OPT NO LIST
02 ;SAVE #D1:SELFTEST.M65
10 ;
50 ; *= 51799
55       .PAGE "Self Test Data"
60        LIST  
0840     .LOCAL 
051799 STSCIX .BYTE 0 Memory test
051800   .BYTE ?19-STSCDT Ram
051801   .BYTE ?22-STSCDT Dbl space
051802   .BYTE ?209-STSCDT Space bar
051803   .BYTE ?228-STSCDT Sh
051804   .BYTE ?228-STSCDT Sh
051805   .BYTE ?232-STSCDT B s
051806   .BYTE ?41-STSCDT Keyboard
051807   .BYTE ?235-STSCDT Up arrow
051808   .BYTE ?238-STSCDT Voice #
051809 STSCDT .SBYTE "  MEMORY TEST"
051822   .SBYTE "   ROM"
051828 ?19 .SBYTE "RAM"
051831 ?22 .SBYTE "  "
051833   .SBYTE "KEYBOARD TEST"
051846   .SBYTE "   "
051849   .SBYTE +$80,'R
051850 ?41 .SBYTE +$80,'1
051851   .SBYTE 32
051852   .SBYTE +$80,'2
051853   .SBYTE 32
051854   .SBYTE +$80,'3
051855   .SBYTE 32
051856   .SBYTE +$80,'4
051857   .SBYTE 32
051858   .SBYTE +$80,'H
051859   .SBYTE 32
051860   .SBYTE +$80,'A
051861   .SBYTE 32
051862   .SBYTE +$80,'B
051863   .SBYTE "   ",27
051867   .SBYTE " 1 2 3 4 5 6 7 8 9 0 < > "
051892   .SBYTE +$80,"B S"
051895   .SBYTE "   "
051898   .SBYTE +$80,127,127
051900   .SBYTE " Q W E R T Y U I O P - = "
051925   .SBYTE +$80,"RT"
051927   .SBYTE "   "
051930   .SBYTE +$80,32,28,32
051933   .SBYTE " A S D F G H J K L ; + * "
051958   .SBYTE +$80,'C
051959   .SBYTE "   "
051962   .SBYTE +$80," SH "
051966   .SBYTE " Z X C V B N M , . / "
051987   .SBYTE +$80," SH "
051991   .SBYTE "        "
051999   .SBYTE +$80," S P A C E   B A R "
052018 ?209 .SBYTE " S P A C E   B A R "
052037 ?228 .SBYTE " SH "
052041 ?232 .SBYTE "B S"
052044 ?235 .SBYTE 32,28,32
052047 ?238 .SBYTE "VOICE #"
052054 ADD18 LDY #17 Subroutine
052056   LDA #0      for parallel
052058   CLC         device handler
052059 ?ADD18A ADC (ZCHAIN),Y
052061   DEY         Add 18 bytes
052062   BPL ?ADD18A and any carry
052064   ADC #0      then invert it
052066   EOR #$FF    (1's complement)
052068   RTS         Return c=0
052069   .BYTE 0,0,0,0,0,0,0,0 Unused
052077   .BYTE 0,0,0,0,0,0,0,0
052085   .BYTE 0,0,0,0,0,0,0,0
052093   .BYTE 0,0,0,0,0,0,0,0
052101   .BYTE 0,0,0,0,0,0,0,0
052109   .BYTE 0,0,0,0,0,0,0,0
052117   .BYTE 0,0,0,0,0,0,0,0
052125   .BYTE 0,0,0,0,0,0,0,0
052133   .BYTE 0,0,0,0,0,0,0,0
052141   .BYTE 0,0,0,0,0,0,0,0
052149   .BYTE 0,0,0,0,0,0,0,0
052157   .BYTE 0,0,0,0,0,0,0,0
052165   .BYTE 0,0,0,0,0,0,0,0
052173   .BYTE 0,0,0,0,0,0,0,0
052181   .BYTE 0,0,0,0,0,0,0,0
052189   .BYTE 0,0,0,0,0,0,0,0
052197   .BYTE 0,0,0,0,0,0,0,0
052205   .BYTE 0,0,0,0,0,0,0,0
052213   .BYTE 0,0,0,0,0,0,0,0
052221   .BYTE 0,0,0
