復活!CP/M ワンボードマイコンでCP/Mを!
CP/MがTK−80互換のワンボードマイコンの上で復活します
ND80ZVとMYCPU80の上でCP/Mが走ります!
[第77回]
●ファンクションコール0BHのテスト
BIOSプログラムを修正しましたので、あらためてファンクションコール0BHのテストをしてみます。
[第68回]のテストプログラムを少し変更しました。
下は変更したテストプログラム(FNC0BT5.TXT)です。
表示のためのサブルーチンは変更していませんから省略してあります。
; BDOS function0B test 5 ;2012/3/28 ; ORG $8100 FCALL=$8005 ; LOOP:LD C,0B CALL FCALL PUSH AF CALL B2HEXDP POP AF OR A JP NZ,KEYIN NEXT:CALL SPDP JP LOOP KEYIN:LD C,01 CALL FCALL PUSH AF CALL B2HEXDP POP AF CP 01;^A JP Z,STOP CP 1A;^Z RET Z JP NEXT STOP:LD A,3F;? CALL ADP JP KEYIN ; |
2012/3/29 13:40 fnc0bt5.txt END=8194 ; BDOS function0B test 5 ;2012/3/28 ; ORG $8100 FCALL=$8005 ; 8100 0E0B LOOP:LD C,0B 8102 CD0580 CALL FCALL 8105 F5 PUSH AF 8106 CD5981 CALL B2HEXDP 8109 F1 POP AF 810A B7 OR A 810B C21481 JP NZ,KEYIN 810E CD3B81 NEXT:CALL SPDP 8111 C30081 JP LOOP 8114 0E01 KEYIN:LD C,01 8116 CD0580 CALL FCALL 8119 F5 PUSH AF 811A CD5981 CALL B2HEXDP 811D F1 POP AF 811E FE01 CP 01;^A 8120 CA2981 JP Z,STOP 8123 FE1A CP 1A;^Z 8125 C8 RET Z 8126 C30E81 JP NEXT 8129 3E3F STOP:LD A,3F;? 812B CD3D81 CALL ADP 812E C31481 JP KEYIN ; |
logfile nd80zlog\03291340.txt open ND80ZVに接続しました 0001 0000 - z 1000 00C3 - *** nd80z3 basic **** >/ld cpm22j.bin,bc00 loading CPM22J.BIN ...1749(5961)bytes loaded,from BC00 to D348 >/ld fnc0bt5.bin,8100 loading FNC0BT5.BIN ...0095(149)bytes loaded,from 8100 to 8194 >jp d233 a> |
a>save 1 fnc0bt5.com a>fnc0bt5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01a61 00 00 00 00 00 01a61 00 01a61 00 00 00 00 00 00 00 00 00 00 00 00 0 0 00 00 00 00 00 00 01b62 00 00 00 01b62 01b62 01b62 01b62 00 01b62 01b62 01b62 01b62 01b62 01b62 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01c63 01c63 00 00 00 01c63 01c63 01c63 01c63 01c63 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0 0 00 00 00 00 00 00 00 00 00 0101?d64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 09 01 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01 09 00 00 01 09 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0 0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0 0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 > > |
>jp d233 a>fnc0bt5 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01a61 00 00 01a61 00 0 0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01b62 01b62 00 01b62 00 01b62 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 01c63 01c63 01c63 00 00 00 00 01c63 01c63 01c63 00 00 00 00 00 00 00 00 00 00 0 0 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 0101?d64 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 011A a> |
; BDOS function0B test 6 ;2012/3/29 ; ORG $8100 FCALL=$8005 ; LD A,00 LOOP:PUSH AF CALL B2HEXDP POP AF INC A JP LOOP ; |
2012/3/29 14:11 fnc0bt6.txt END=816E ; BDOS function0B test 6 ;2012/3/29 ; ORG $8100 FCALL=$8005 ; 8100 3E00 LD A,00 8102 F5 LOOP:PUSH AF 8103 CD3381 CALL B2HEXDP 8106 F1 POP AF 8107 3C INC A 8108 C30281 JP LOOP ; |
logfile nd80zlog\03291411.txt open ND80ZVに接続しました 0001 0000 - z 1000 00C3 - *** nd80z3 basic **** >/ld fnc0bt6.bin,8100 loading FNC0BT6.BIN ...006f(111)bytes loaded,from 8100 to 816E >jp d233 a>save 1 fnc0bt6.com a>fnc0bt6 000102030405060708090A0B0C0D0E0F101112131415161718191A1B1C1D1E1F2021222324252627 28292A2B2C2D2E2F303132333435363738393A3B3C3D3E3F404142434445464748494A4B4C4D4E4F 505152535455565758595A5B5C5D5E5F606162636465666768696A6B6C6D6E6F7071727374757677 78797A7B7C7D7E7F808182838485868788898A8B8C8D8E8F909192939495969798999A9B9C9D9E9F A0A1A2A3A4A5A6A7A8A9AAABACADAEAFB0B1B2B3B4B5B6B7B8B9BABBBCBDBEBFC0C1C2C3C4C5C6C7 C8C9CACBCCCDCECFD0D1D2D3D4D5D6D7D8D9DADBDCDDDEDFE0E1E2E3E4E5E6E7E8E9EAEBECEDEEEF F0F1F2F3F4F5F6F7F8F9FAFBFCFDFEFF000102030405060708090A0B0C0D0E0F1011121314151617 18191A1B1C1D1E> ERR: 1 > >0000 00C3 - リモート接続を終了しました logfile closed at Thu Mar 29 14:12:46 2012 |