� OSBITS Module B/osb08
+� Using AND masking to force upper case
� Version 1.2  25.12.86
( 
2*KEY1MO.3|M|NL.|M
< 
Fosrdch=&FFE0
Posasci=&FFE3
Uosnewl=&FFE7
Zosbyte=&FFF4
d� code% 50
n 
x1mask%=&DF : � any case AND mask% = upper case
� 
�� pass%=0 � 3 � 3
�P%=code%
� 
�[OPT pass%
�
.start
�=JSR osrdch          \ Grab next character in input buffer
�*CMP #27             \ Is it an ESCAPE?
�BEQ escape
� 
�7STA accustore       \ Store Accumulator temporarily
�5� #mask%          \ � character, in A, with mask%
� 

CMP #32

BBCS modify          \ If result after � is legit then print it

9LDA accustore       \ Else restore the original value

".modify

,-JSR osasci          \ Print the character

6
JMP start

@ 

J.escape

T,LDA #126            \ Acknowledge ESCAPE

^JSR osbyte

hJSR osnewl

rRTS

| 

�5.accustore  BRK     \ Temporary Accumulator store

�]

��

�� code%
�

00000000  0d 00 0a 1b f4 20 4f 53  42 49 54 53 20 4d 6f 64  |..... OSBITS Mod|
00000010  75 6c 65 20 42 2f 6f 73  62 30 38 0d 00 14 2b f4  |ule B/osb08...+.|
00000020  20 55 73 69 6e 67 20 41  4e 44 20 6d 61 73 6b 69  | Using AND maski|
00000030  6e 67 20 74 6f 20 66 6f  72 63 65 20 75 70 70 65  |ng to force uppe|
00000040  72 20 63 61 73 65 0d 00  1e 1b f4 20 56 65 72 73  |r case..... Vers|
00000050  69 6f 6e 20 31 2e 32 20  20 32 35 2e 31 32 2e 38  |ion 1.2  25.12.8|
00000060  36 0d 00 28 05 20 0d 00  32 15 2a 4b 45 59 31 4d  |6..(. ..2.*KEY1M|
00000070  4f 2e 33 7c 4d 7c 4e 4c  2e 7c 4d 0d 00 3c 05 20  |O.3|M|NL.|M..<. |
00000080  0d 00 46 10 6f 73 72 64  63 68 3d 26 46 46 45 30  |..F.osrdch=&FFE0|
00000090  0d 00 50 10 6f 73 61 73  63 69 3d 26 46 46 45 33  |..P.osasci=&FFE3|
000000a0  0d 00 55 10 6f 73 6e 65  77 6c 3d 26 46 46 45 37  |..U.osnewl=&FFE7|
000000b0  0d 00 5a 10 6f 73 62 79  74 65 3d 26 46 46 46 34  |..Z.osbyte=&FFF4|
000000c0  0d 00 64 0e de 20 63 6f  64 65 25 20 35 30 0d 00  |..d.. code% 50..|
000000d0  6e 05 20 0d 00 78 31 6d  61 73 6b 25 3d 26 44 46  |n. ..x1mask%=&DF|
000000e0  20 3a 20 f4 20 61 6e 79  20 63 61 73 65 20 41 4e  | : . any case AN|
000000f0  44 20 6d 61 73 6b 25 20  3d 20 75 70 70 65 72 20  |D mask% = upper |
00000100  63 61 73 65 0d 00 82 05  20 0d 00 8c 15 e3 20 70  |case.... ..... p|
00000110  61 73 73 25 3d 30 20 b8  20 33 20 88 20 33 0d 00  |ass%=0 . 3 . 3..|
00000120  96 0c 50 25 3d 63 6f 64  65 25 0d 00 a0 05 20 0d  |..P%=code%.... .|
00000130  00 aa 0e 5b 4f 50 54 20  70 61 73 73 25 0d 00 b4  |...[OPT pass%...|
00000140  0a 2e 73 74 61 72 74 0d  00 be 3d 4a 53 52 20 6f  |..start...=JSR o|
00000150  73 72 64 63 68 20 20 20  20 20 20 20 20 20 20 5c  |srdch          \|
00000160  20 47 72 61 62 20 6e 65  78 74 20 63 68 61 72 61  | Grab next chara|
00000170  63 74 65 72 20 69 6e 20  69 6e 70 75 74 20 62 75  |cter in input bu|
00000180  66 66 65 72 0d 00 c8 2a  43 4d 50 20 23 32 37 20  |ffer...*CMP #27 |
00000190  20 20 20 20 20 20 20 20  20 20 20 20 5c 20 49 73  |            \ Is|
000001a0  20 69 74 20 61 6e 20 45  53 43 41 50 45 3f 0d 00  | it an ESCAPE?..|
000001b0  d2 0e 42 45 51 20 65 73  63 61 70 65 0d 00 dc 05  |..BEQ escape....|
000001c0  20 0d 00 e6 37 53 54 41  20 61 63 63 75 73 74 6f  | ...7STA accusto|
000001d0  72 65 20 20 20 20 20 20  20 5c 20 53 74 6f 72 65  |re       \ Store|
000001e0  20 41 63 63 75 6d 75 6c  61 74 6f 72 20 74 65 6d  | Accumulator tem|
000001f0  70 6f 72 61 72 69 6c 79  0d 00 f0 35 80 20 23 6d  |porarily...5. #m|
00000200  61 73 6b 25 20 20 20 20  20 20 20 20 20 20 5c 20  |ask%          \ |
00000210  80 20 63 68 61 72 61 63  74 65 72 2c 20 69 6e 20  |. character, in |
00000220  41 2c 20 77 69 74 68 20  6d 61 73 6b 25 0d 00 fa  |A, with mask%...|
00000230  05 20 0d 01 04 0b 43 4d  50 20 23 33 32 0d 01 0e  |. ....CMP #32...|
00000240  42 42 43 53 20 6d 6f 64  69 66 79 20 20 20 20 20  |BBCS modify     |
00000250  20 20 20 20 20 5c 20 49  66 20 72 65 73 75 6c 74  |     \ If result|
00000260  20 61 66 74 65 72 20 80  20 69 73 20 6c 65 67 69  | after . is legi|
00000270  74 20 74 68 65 6e 20 70  72 69 6e 74 20 69 74 0d  |t then print it.|
00000280  01 18 39 4c 44 41 20 61  63 63 75 73 74 6f 72 65  |..9LDA accustore|
00000290  20 20 20 20 20 20 20 5c  20 45 6c 73 65 20 72 65  |       \ Else re|
000002a0  73 74 6f 72 65 20 74 68  65 20 6f 72 69 67 69 6e  |store the origin|
000002b0  61 6c 20 76 61 6c 75 65  0d 01 22 0b 2e 6d 6f 64  |al value.."..mod|
000002c0  69 66 79 0d 01 2c 2d 4a  53 52 20 6f 73 61 73 63  |ify..,-JSR osasc|
000002d0  69 20 20 20 20 20 20 20  20 20 20 5c 20 50 72 69  |i          \ Pri|
000002e0  6e 74 20 74 68 65 20 63  68 61 72 61 63 74 65 72  |nt the character|
000002f0  0d 01 36 0d 4a 4d 50 20  73 74 61 72 74 0d 01 40  |..6.JMP start..@|
00000300  05 20 0d 01 4a 0b 2e 65  73 63 61 70 65 0d 01 54  |. ..J..escape..T|
00000310  2c 4c 44 41 20 23 31 32  36 20 20 20 20 20 20 20  |,LDA #126       |
00000320  20 20 20 20 20 5c 20 41  63 6b 6e 6f 77 6c 65 64  |     \ Acknowled|
00000330  67 65 20 45 53 43 41 50  45 0d 01 5e 0e 4a 53 52  |ge ESCAPE..^.JSR|
00000340  20 6f 73 62 79 74 65 0d  01 68 0e 4a 53 52 20 6f  | osbyte..h.JSR o|
00000350  73 6e 65 77 6c 0d 01 72  07 52 54 53 0d 01 7c 05  |snewl..r.RTS..|.|
00000360  20 0d 01 86 35 2e 61 63  63 75 73 74 6f 72 65 20  | ...5.accustore |
00000370  20 42 52 4b 20 20 20 20  20 5c 20 54 65 6d 70 6f  | BRK     \ Tempo|
00000380  72 61 72 79 20 41 63 63  75 6d 75 6c 61 74 6f 72  |rary Accumulator|
00000390  20 73 74 6f 72 65 0d 01  90 05 5d 0d 01 9a 05 ed  | store....].....|
000003a0  0d 01 a4 0b d6 20 63 6f  64 65 25 0d ff           |..... code%..|
000003ad